object EditorForm: TEditorForm
- Left = 246
- Top = 166
+ Left = 57
+ Top = 150
Width = 640
Height = 449
HorzScrollBar.Visible = False
Top = 30
Width = 632
Height = 346
- ActivePage = RocalRuleTab
+ ActivePage = EditorTab
Align = alClient
MultiLine = True
- TabIndex = 4
+ TabIndex = 0
TabOrder = 0
OnChange = EditorPageChange
object EditorTab: TTabSheet
end
end
object BoardtopTab: TTabSheet
- Caption = #26495#12488#12483#12503
+ Caption = #26495#12488#12483#12503#30011#20687
ImageIndex = 3
object TitlePictureBrowser: TWebBrowser
Left = 0
end
object BoardTop: TMenuItem
AutoCheck = True
- Caption = #26495#12488#12483#12503
+ Caption = #26495#12488#12483#12503#30011#20687
GroupIndex = 1
OnClick = BoardTopClick
end
- object Rule: TMenuItem
+ object LocalRule: TMenuItem
AutoCheck = True
Caption = #12525#12540#12459#12523#12523#12540#12523
GroupIndex = 1
- OnClick = RuleClick
+ OnClick = LocalRuleClick
end
object N1: TMenuItem
Caption = '-'
Caption = #26495#24773#22577
object SETTINGTXT2: TMenuItem
Action = GetSETTINGTXTAction
- end
- object HeadTXT1: TMenuItem
- Action = GetHeadTXTAction
+ Caption = #26495#24773#22577#21462#24471
end
object OP1: TMenuItem
Action = GetTitlePictureAction
end
+ object HeadTXT1: TMenuItem
+ Action = GetHeadTXTAction
+ end
end
end
object ToolBarImageList: TImageList
CalcCapasityAction: TAction;
N4: TMenuItem;
N5: TMenuItem;
- Rule: TMenuItem;
+ LocalRule: TMenuItem;
LocalEdit: TMemo;
procedure EditorPageChange(Sender: TObject);
procedure GetTitlePictureActionExecute(Sender: TObject);
procedure GetHeadTXTActionExecute(Sender: TObject);
procedure CalcCapasityActionExecute(Sender: TObject);
- procedure RuleClick(Sender: TObject);
+ procedure LocalRuleClick(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
FThreadItem: TThreadItem;
try
BoardtopTab.TabVisible := ini.Readbool('EditorForm', 'BoardTopTab', False);
BoardTop.Checked := BoardtopTab.TabVisible;
- RocalRuleTab.TabVisible := ini.Readbool('EditorForm', 'RocalRureTab', False);
- HeadTXT1.Checked := RocalRuleTab.TabVisible;
+ RocalRuleTab.TabVisible := ini.ReadBool('EditorForm', 'LocalRuleTab', False);
+ LocalRule.Checked := RocalRuleTab.TabVisible;
finally
ini.Free;
end;
StatusBar.Panels[0].Text := '\97e\97Ê:' + IntToStr(Length(body)) + ' byte';
end;
-procedure TEditorForm.RuleClick(Sender: TObject);
+procedure TEditorForm.LocalRuleClick(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create(GikoSys.Setting.GetFileName);
try
- RocalRuleTab.TabVisible := Rule.Checked;
+ RocalRuleTab.TabVisible := LocalRule.Checked;
ini.WriteBool('EditorForm', 'LocalRuleTab', RocalRuleTab.TabVisible);
finally
ini.Free;