From 46a8fb020bbf622868a942f364191c027d174e02 Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Thu, 29 Feb 2024 14:26:53 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8Dborder=E4=B8=80=E4=BA=9B?=
 =?UTF-8?q?=E9=97=AE=E9=A2=98?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 docx/border/TSDocxBorder.tsf      | 5 +++--
 docx/border/TSDocxBorderTable.tsf | 1 +
 docx/border/TSDocxBorders.tsf     | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/docx/border/TSDocxBorder.tsf b/docx/border/TSDocxBorder.tsf
index ff6dc53..85b9bef 100644
--- a/docx/border/TSDocxBorder.tsf
+++ b/docx/border/TSDocxBorder.tsf
@@ -50,9 +50,9 @@ End;
 Function TSDocxBorder.Apply();virtual;
 Begin
 	border_.Update("first");
-End
+End;
 
-// property
+// Properties
 Function TSDocxBorder.WriteArtStyle(value);virtual;
 Begin
 	case value of
@@ -437,6 +437,7 @@ End;
 Function TSDocxBorder.WriteVisible(value);virtual;
 Begin
 	v := value ? "single" : "nil";
+	border_.Val := v;
 End;
 Function TSDocxBorder.ReadVisible();virtual;
 Begin
diff --git a/docx/border/TSDocxBorderTable.tsf b/docx/border/TSDocxBorderTable.tsf
index c303d11..01bbae2 100644
--- a/docx/border/TSDocxBorderTable.tsf
+++ b/docx/border/TSDocxBorderTable.tsf
@@ -38,6 +38,7 @@ Begin
 	table_ := table;
 	border_type_ := borderType;
 	cell_border_ := false;
+	class(TSDocxBorder).Init(nil);
 
 	case border_type_ of
 		TSDocxEnumerations.wdBorderBottom():
diff --git a/docx/border/TSDocxBorders.tsf b/docx/border/TSDocxBorders.tsf
index 296e7d3..264d2fc 100644
--- a/docx/border/TSDocxBorders.tsf
+++ b/docx/border/TSDocxBorders.tsf
@@ -97,4 +97,4 @@ Begin
 	return self[Index];
 End;
 
-// property
+// Properties