editset.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,428,347" caption="閫夐」" bordericons="1" borderstyle="0" scrollbars="0" backcolor="$8000000F">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="sheet1" bounds="5,4,421,334" hSourceEditor="0">
<borderA name="borderA1" lib="border.tbl" bounds="5,26,421,292" origin="99,77" locked="true"/>
<pagecontrol name="PageControl1" lib="controls.tbl" bounds="5,4,104,27" origin="42,16.5" Items="&apos;瀹氬埗
棰滆壊&apos;" TabIndex="0">
<programe>
published function OnClick(Sender)
n = Sender.ItemAtCursor()
Sender.TabIndex=n
n=n+1
layers[1].visible=(n=1)
layers[2].visible=(n=2)
if n = 1 then
  CheckBox1.Focused = true
  ShowWindow( hSourceEditor, 0 )
else
  d = GetFocusedText()
  if d &lt;&gt; 0 then
    d.Focused = false
  end if
  ListBox1.Focused = true
  ShowWindow( hSourceEditor, 5 )
end if
end function
</programe>
</pagecontrol>
<Button name="Button1" lib="controls.tbl" bounds="167,304,239,334" origin="196,315" Caption="&apos;搴旂敤(A)&apos;" Default="false" Enable="true" Focused="false">
<programe>
published function OnClick(Sender)
IniFile1.SetInteger( &quot;UseTabChar&quot;, BoolToInteger( CheckBox1.Checked ) )
IniFile1.SetInteger( &quot;Indent&quot;, BoolToInteger( CheckBox2.Checked ) )
IniFile1.SetInteger( &quot;UnIndent&quot;, BoolToInteger( CheckBox3.Checked ) )
IniFile1.SetInteger( &quot;FindTextAtCursor&quot;, BoolToInteger( CheckBox4.Checked ) )
IniFile1.SetInteger( &quot;UseSyntaxHighlight&quot;, BoolToInteger( CheckBox5.Checked ) )
if IsNumber( Edit1.Value ) then
  n = Val( Edit1.Value )
  if n &lt; 1 then
    n = 1
  end if
  if n &gt; 8 then
    n = 8
  end if
else
  n = 8
end if
IniFile1.SetInteger( &quot;TabLength&quot;, n )

if IsNumber( Edit2.Value ) then
  n = Val( Edit2.Value )
  if n &lt; 0 then
    n = 0
  end if
  if n &gt; 16 then
    n = 16
  end if
else
  n = 0
end if
IniFile1.SetInteger( &quot;LineInterval&quot;, n )

IniFile1.SetString( &quot;FontName&quot;, ComboBox1.Value )

if IsNumber( Edit5.Value ) then
  n = Val( Edit5.Value )
  if n &lt; 10 then
    n = 10
  end if
  if n &gt; 72 then
    n = 72
  end if
else
  n = 10
end if
IniFile1.SetInteger( &quot;FontSize&quot;, n )

SaveColorPattern()

IDE_ResetSettings( 0 )
end function
</programe>
</Button>
<Button name="Button2" lib="controls.tbl" bounds="255,304,327,334" origin="284,315" Caption="&apos;纭