table.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 163 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="722" range="0,0,1024,768" backcolor="$8000000F">
<page name="page" bounds="0,0,210,296" visible="false"/>
<sheet name="sheet1">
<element name="element1" origin="136,116" bounds="16,64,456,392">
<rect name="rect1" origin="108,124" bounds="16,64,456,392" backcolor="$E0E0E0" pattern="1"/>
<text name="text1" origin="46.666667,94" bounds="16,64,162.666666,228" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<text name="text2" origin="46.666667,154" bounds="16,228,162.666666,392" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<text name="text3" origin="108,94" bounds="162.666666,64,309.333334,228" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<text name="text4" origin="108,154" bounds="162.666666,228,309.333334,392" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<text name="text5" origin="169.333333,94" bounds="309.333334,64,456,228" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<text name="text6" origin="169.333333,154" bounds="309.333334,228,456,392" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<programe>
<!--
public function SetColRow(ACol,ARow)
while UnitCount > 1
  DeleteUnit( Units[1] )
wend
x = Rect1.Left
w = Rect1.Width / ACol
h = Rect1.Height / ARow
i = 0
while i < ACol
  j = 0
  y = Rect1.Top
  while j < ARow
    d = AddUnit( "text", x, y, w, h )
    d.Border = 15
    y = y + h
    j = j + 1
  wend
  x = x + w
  i = i + 1
wend
end function
-->
</programe>
</element>
<Static name="Static1" origin="52,32" bounds="32,24,66,40" Caption="rows:" Enable="true" FocusedUnit="">
<text name="Text1" origin="36,34" bounds="32,24,66,40" backcolor="$8000000F" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" multiline="false" textalign="4" text="rows:"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
property Enable read GetEnable write SetEnable editor Bool
property FocusedUnit read FFocusedUnit write FFocusedUnit editor GetFocusedUnit
private function GetCaption()
return Text1.Text
end function
private function GetEnable()
return Enabled
end function
public function GetFocusedUnit()
i=0
FocusedUnits.Clear()
while i < Parent.UnitCount
  d = Parent.Units[i]
  if d.HasProperty( "Focused" ) then
    FocusedUnits[FocusedUnits.Count] = d.Name
  end if
  i = i + 1
wend
return FocusedUnits
end function
private function Initialize(Sender)
FFocusedUnit = ""
FocusedUnits = Array( 10 )
end function
private function SetCaption(AValue)
Text1.Text = AValue
Refresh()
end function
private function SetEnable(AValue)
if AValue
  Text1.FontColor = $80000008
else
  Text1.FontColor = $80000011
end if
Enabled = AValue
end function
-->
</programe>
</Static>
<Static name="Static2" origin="212,32" bounds="192,24,226,40" Caption="cols:" Enable="true" FocusedUnit="">
<text name="Text1" origin="196,34" bounds="192,24,226,40" backcolor="$8000000F" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" multiline="false" textalign="4" text="cols:"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
property Enable read GetEnable write SetEnable editor Bool
property FocusedUnit read FFocusedUnit write FFocusedUnit editor GetFocusedUnit
private function GetCaption()
return Text1.Text
end function
private function GetEnable()
return Enabled
end function
public function GetFocusedUnit()
i=0
FocusedUnits.Clear()
while i < Parent.UnitCount
  d = Parent.Units[i]
  if d.HasProperty( "Focused" ) then
    FocusedUnits[FocusedUnits.Count] = d.Name
  end if
  i = i + 1
wend
return FocusedUnits
end function
private function Initialize(Sender)
FFocusedUnit = ""
FocusedUnits = Array( 10 )
end function
private function SetCaption(AValue)
Text1.Text = AValue
Refresh()
end function
private function SetEnable(AValue)
if AValue
  Text1.FontColor = $80000008
else
  Text1.FontColor = $80000011
end if
Enabled = AValue
end function
-->
</programe>
</Static>
<SpinEdit name="SpinEdit1" origin="94.5,33.5" bounds="72,24,176,43" Enable="true" Focused="false" label="Text1" Max="32" Min="1" Value="2">
<element name="Element2" origin="56,28" bounds="72,24,176,43">
<line name="Line1" origin="199,41" linecolor="$80000010">
<points>
72,43,6
72,24,2
176,24,2
</points>
</line>
<line name="Line2" origin="200,40" linecolor="$80000014">
<points>
72,43,6
176,43,2
176,24,2
</points>
</line>
</element>
<element name="Element1" origin="-7.4,-46.55" bounds="159,25,175,42" Enable="true">
<鎸夐挳k name="Element2" origin="195,56" bounds="159,25,175,33">
<rect name="Rect1" origin="249.40361,74" bounds="159,25,175,33" linetype="0" backcolor="$8000000F" pattern="1"/>
<Framea name="Framea1" origin="248.40361,73" bounds="159,25,175,33">
<line name="Line1" origin="247,73" linecolor="$80000014">
<points>
159,33,6
159,25,2
175,25,2
</points>
</line>
<line name="Line2" origin="247,73" linecolor="$80000010">
<points>
159,33,6
175,33,2
175,25,2
</points>
</line>
</Framea>
<杈规