FWarnYenTNotExist: boolean;
FWarnScopeChangeInSynchronize: boolean;
FNeedConfirmBeforeSend: boolean;
+ FShowRuler: boolean;
procedure SetDblClkInsert(const Value: boolean);
procedure SetDefaultScript(const Value: String);
procedure SetIgnoreTimeCritical(const Value: boolean);
procedure SetWarnScopeChangeInSynchronize(const Value: boolean);
procedure SetWarnYenTNotExist(const Value: boolean);
procedure SetNeedConfirmBeforeSend(const Value: boolean);
+ procedure SetShowRuler(const Value: boolean);
public
property NoSendGhostList: boolean read FNoSendGhostList write SetNoSendGhostList;
property ConfirmOnExit: boolean read FConfirmOnExit write SetConfirmOnExit;
property MarkErrorColor: TColor read FMarkErrorColor write SetMarkErrorColor;
property BgColor: TColor read FBgColor write SetBgColor;
property DefaultScript: String read GetDefaultScript write SetDefaultScript;
+ property ShowRuler: boolean read FShowRuler write SetShowRuler;
property DblClkInsert: boolean read FDblClkInsert write SetDblClkInsert;
property ShowToolBar: boolean read FShowToolBar write SetShowToolBar;
property ShowConstBar: boolean read FShowConstBar write SetShowConstBar;
NoConfirm := FIni.ReadBool('System', 'NoConfirm', false);
IgnoreTimeCritical := FIni.ReadBool('System', 'IgnoreTimeCritical', false);
FDefaultScript.CommaText := FIni.ReadString('System', 'DefaultScript', '\t\h\s[0]|\e');
+ ShowRuler := FIni.ReadBool('System', 'ShowRuler', false);
//
try
TalkColorH := StringToColor(FIni.ReadString('System', 'TalkColorH', 'clBlack'));
FIni.WriteBool('System', 'ShowToolBar', ShowToolBar);
FIni.WriteBool('System', 'ShowConstBar', ShowConstBar);
FIni.WriteString('System', 'DefaultScript', FDefaultScript.CommaText);
+ FIni.WriteBool('System', 'ShowRuler', ShowRuler);
FIni.WriteInteger('System', 'WhenReturn', Ord(WhenReturn));
FIni.WriteInteger('System', 'WhenShiftReturn', Ord(WhenShiftReturn));
FIni.WriteInteger('System', 'WhenCtrlReturn', Ord(WhenCtrlReturn));
FNeedConfirmBeforeSend := Value;
end;
+procedure TBottlePrefs.SetShowRuler(const Value: boolean);
+begin
+ FShowRuler := Value;
+end;
+
{ TChannelListItem }
procedure TChannelListItem.SetGhost(const Value: String);
object frmSetting: TfrmSetting
- Left = 375
- Top = 297
+ Left = 405
+ Top = 326
Anchors = [akLeft, akTop, akRight, akBottom]
BorderStyle = bsDialog
Caption = #35373#23450
Top = 8
Width = 379
Height = 306
- ActivePage = tstColor
+ ActivePage = tstGeneral
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
object tstGeneral: TTabSheet
end
object lblGhostDropDownCount: TLabel
Left = 16
- Top = 200
+ Top = 208
Width = 159
Height = 12
Caption = 'IfGhost'#26368#22823#12489#12525#12483#12503#12480#12454#12531#25968'(&N)'
end
object grpLocalConfirm: TGroupBox
Left = 8
- Top = 80
+ Top = 112
Width = 353
- Height = 49
+ Height = 41
Caption = #12525#12540#12459#12523#30906#35469
TabOrder = 1
object cbxIgnoreTimeCritical: TCheckBox
end
object rgpTabPosition: TRadioGroup
Left = 8
- Top = 136
+ Top = 160
Width = 353
- Height = 49
+ Height = 41
Hint = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622#12434#22793#26356
Caption = #12481#12515#12531#12493#12523#12479#12502#12398#20301#32622
Columns = 2
end
object spnGhostDropDownCount: TSpinEdit
Left = 184
- Top = 195
+ Top = 203
Width = 65
Height = 21
MaxValue = 100
TabOrder = 3
Value = 40
end
+ object cbxShowRuler: TCheckBox
+ Left = 8
+ Top = 80
+ Width = 209
+ Height = 17
+ Caption = #12523#12540#12521#12540#12434#34920#31034#12377#12427'(&R)'
+ TabOrder = 6
+ end
end
object tstColor: TTabSheet
Caption = #33394#20998#12369
ImageIndex = 1
object gbxColor: TGroupBox
Left = 8
- Top = 16
+ Top = 8
Width = 353
Height = 153
Caption = #33394'(&O)'
btnUseCurrentJoinChannels: TButton;
Label6: TLabel;
ImageList: TImageList;
+ cbxShowRuler: TCheckBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
procedure ctvBottleNodeChecked(Sender: TObject;
begin
PageControl.ActivePage := tstGeneral;
memDefaultScript.Text := Pref.DefaultScript;
+ cbxShowRuler.Checked := Pref.ShowRuler;
cbxIgnoreTimeCritical.Checked := Pref.IgnoreTimeCritical;
cbxNoSendGhostList.Checked := Pref.NoSendGhostList;
cbxConfirmOnExit.Checked := Pref.ConfirmOnExit;
procedure TfrmSetting.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Pref.DefaultScript := memDefaultScript.Text;
+ Pref.ShowRuler := cbxShowRuler.Checked;
Pref.IgnoreTimeCritical := cbxIgnoreTimeCritical.Checked;
Pref.NoSendGhostList := cbxNoSendGhostList.Checked;
Pref.ConfirmOnExit := cbxConfirmOnExit.Checked;