?? set_infor_frm.pas
字號:
// xcwen 2005-7~~~2005-8 delphi7
unit set_infor_frm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls,inifiles, ExtCtrls,UnitPLToRtf,
WinSkinData;
type
Tset_frm = class(TForm)
FontDialog_dir: TFontDialog;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
set_tvw_dir: TGroupBox;
CBX_showRoot: TCheckBox;
CBX_showBtn: TCheckBox;
CBX_showlines: TCheckBox;
btt_tree_font: TBitBtn;
btt_tree_color: TBitBtn;
GroupBox1: TGroupBox;
cbx_show_readonly: TCheckBox;
btn_show_color: TBitBtn;
btt_ok: TBitBtn;
btt_cancel: TBitBtn;
Label3: TLabel;
Cbb_PLname: TComboBox;
Label4: TLabel;
Cbx_isUpLow: TCheckBox;
Label2: TLabel;
EdtStringSymbol: TEdit;
Label5: TLabel;
EdtSymbols: TEdit;
Label6: TLabel;
EdtComments: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
MemoKeys: TMemo;
Label1: TLabel;
GroupBox3: TGroupBox;
SpKeyColor: TShape;
Label11: TLabel;
Label9: TLabel;
Label8: TLabel;
Label10: TLabel;
SpCommentColor: TShape;
SpNumberColor: TShape;
SpStringColor: TShape;
EdtLinkType: TEdit;
Label7: TLabel;
ColorDlg: TColorDialog;
cbx_KeyIsBold: TCheckBox;
Cbx_commentIsItalic: TCheckBox;
CBB_fontSize: TComboBox;
Label12: TLabel;
GroupBox2: TGroupBox;
Label13: TLabel;
CbbLastFilesMaxValue: TComboBox;
CbxShowFristItem: TCheckBox;
procedure CBX_showRootClick(Sender: TObject);
procedure btt_tree_colorClick(Sender: TObject);
procedure btt_tree_fontClick(Sender: TObject);
procedure CBX_showBtnClick(Sender: TObject);
procedure CBX_showlinesClick(Sender: TObject);
procedure btn_show_colorClick(Sender: TObject);
procedure cbx_show_readonlyClick(Sender: TObject);
procedure btt_okClick(Sender: TObject);
procedure btt_cancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TclPLChanging(Sender: TObject;
var AllowChange: Boolean);
procedure SpKeyColorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormDestroy(Sender: TObject);
procedure Cbb_PLnameChange(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CBB_fontSizeKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
FPLMsg:TPLMessage;
procedure loadPLconfig(newPLname:string);
public
{ Public declarations }
end;
var
set_frm: Tset_frm;
tree_showlines,tree_showbuttons,tree_showroot:boolean;
tree_font:Tfont;
tree_color:Tcolor;
show_readonly:boolean;
show_color:Tcolor;
ischange:boolean=false;
///////////////////////////////////
isAddPL:boolean;
implementation
uses Ebookfrm;
{$R *.dfm}
procedure Tset_frm.CBX_showRootClick(Sender: TObject);
begin
mainfrm.TVW_dir.ShowRoot:=self.CBX_showRoot.Checked ;
ischange:=true;
end;
procedure Tset_frm.btt_tree_colorClick(Sender: TObject);
begin
self.ColorDlg.Color := mainfrm.TVW_dir.Color;
if self.ColorDlg .Execute then
begin
mainfrm.TVW_dir.Color :=self.ColorDlg.Color ;
ischange:=true;
end;
end;
procedure Tset_frm.btt_tree_fontClick(Sender: TObject);
begin
self.FontDialog_dir.Font :=mainfrm.TVW_dir.Font;
if self.FontDialog_dir.Execute then
begin
mainfrm.TVW_dir.Font :=self.FontDialog_dir.Font ;
ischange:=true;
end;
end;
procedure Tset_frm.CBX_showBtnClick(Sender: TObject);
begin
mainfrm.TVW_dir.ShowButtons :=self.CBX_showbtn.Checked ;
ischange:=true;
end;
procedure Tset_frm.CBX_showlinesClick(Sender: TObject);
begin
mainfrm.TVW_dir.ShowLines :=self.CBX_showlines.Checked ;
ischange:=true;
end;
procedure Tset_frm.btn_show_colorClick(Sender: TObject);
begin
self.ColorDlg.Color:= mainfrm.ret_show .Color ;
if self.ColorDlg .Execute then
begin
mainfrm.ret_show .Color :=self.ColorDlg.Color ;
ischange:=true;
end;
end;
procedure Tset_frm.cbx_show_readonlyClick(Sender: TObject);
begin
mainfrm.ret_show.ReadOnly :=cbx_show_readonly.Checked ;
mainfrm.btn_readonly.Checked :=cbx_show_readonly.Checked ;
ischange:=true;
end;
procedure Tset_frm.btt_okClick(Sender: TObject);
begin
if ischange then
if MessageDlg('執行所做的設置嗎??',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
mainfrm.LruMm.MaxItem :=strtoint(self.CbbLastFilesMaxValue.text);
mainfrm.LruMm.ShowFristitem:=self.CbxShowFristItem.Checked ;
self.Close ;
end
else
begin
mainfrm.TVW_dir.ShowButtons:= tree_showbuttons ;
mainfrm.TVW_dir.ShowLines:=tree_showlines ;
mainfrm.TVW_dir.Font:=tree_font ;
mainfrm.TVW_dir.Color:= tree_color ;
mainfrm.TVW_dir.ShowRoot:= tree_showroot ;
mainfrm.ret_show.ReadOnly:= show_readonly ;
mainfrm.ret_show.Color:= show_color ;
self.Close ;
end;
end;
procedure Tset_frm.btt_cancelClick(Sender: TObject);
begin
if ischange then
if MessageDlg('撤消所做的設置嗎??',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
mainfrm.TVW_dir.ShowButtons:= tree_showbuttons ;
mainfrm.TVW_dir.ShowLines:=tree_showlines ;
mainfrm.TVW_dir.Font:=tree_font ;
mainfrm.TVW_dir.Color:= tree_color ;
mainfrm.TVW_dir.ShowRoot:= tree_showroot ;
mainfrm.ret_show.ReadOnly:= show_readonly ;
mainfrm.ret_show.Color:= show_color ;
end;
self.Close ;
end;
procedure Tset_frm.FormShow(Sender: TObject);
begin
tree_showbuttons := mainfrm.TVW_dir.ShowButtons;
tree_showlines := mainfrm.TVW_dir.ShowLines;
tree_font:=Tfont.Create ;
tree_font := mainfrm.TVW_dir.Font;
tree_color := mainfrm.TVW_dir.Color ;
tree_showroot := mainfrm.TVW_dir.ShowRoot ;
show_readonly:= mainfrm.ret_show.ReadOnly ;
show_color:=mainfrm.ret_show.Color ;
self.CBX_showBtn.Checked := mainfrm.TVW_dir.ShowButtons;
self.CBX_showlines.Checked := mainfrm.TVW_dir.ShowLines;
self.CBX_showroot.Checked := mainfrm.TVW_dir.ShowRoot ;
self.CBX_show_readonly.Checked := mainfrm.ret_show.ReadOnly ;
//////////////////////////////////////////////////////////////////////////
isaddPL:=false;
FPLMsg:=TPLMessage.Create(mainfrm.PLconfigfile ,'');
self.FPLMsg .LoadPLname(self.Cbb_PLname.Items ) ;
if mainfrm.PLCon.PLName <>'' then
begin
self.loadPLconfig(mainfrm.PLCon.PLName );
end
else
if self.Cbb_PLname.Items.Count >0 then
self.loadPLconfig(self.Cbb_PLname.Items.Strings [0]);
///////////////////////////
ischange:=false;
////////////////////////////////
self.CbbLastFilesMaxValue.Text :=inttostr(mainfrm.LruMm.MaxItem );
self.CbxShowFristItem.Checked:=mainfrm.LruMm.ShowFristitem ;
end;
procedure Tset_frm.loadPLconfig(newPLname:string);
begin
if (self.FPLMsg<>nil) and (newPLname<>'') then
begin
self.FPLMsg.PLname :=newPLname;
self.FPLMsg.loadfromInifile ;
self.Cbb_PLname.Text :=newPLname;
self.Cbx_isUpLow.Checked := self.FPLMsg.isUpLow ;
self.MemoKeys.Lines.Text:=self.FPLMsg.Keys ;
self.EdtComments.Text:=self.FPLMsg.comments ;
self.CBB_fontSize.Text :=inttostr(self.FPLMsg.FontSize );
self.EdtStringSymbol.Text :=self.FPLMsg.stringSymbol ;
self.EdtSymbols.Text := self.FPLMsg.Symbols ;
self.cbx_KeyIsBold.Checked :=self.FPLMsg.KeyIsBold ;
self.Cbx_commentIsItalic.Checked :=self.FPLMsg.commentIsItalisc ;
self.SpKeyColor.Brush.Color := self.FPLMsg.getTokenColor(Tskeyword);
self.SpcommentColor.Brush.Color := self.FPLMsg.getTokenColor(Tscomment);
self.SpstringColor.Brush.Color := self.FPLMsg.getTokenColor(Tsstring);
self.SpnumberColor.Brush.Color := self.FPLMsg.getTokenColor(Tsnumber);
self.EdtLinkType.Text :=self.FPLMsg.linktypes ;
end;
end;
procedure Tset_frm.TclPLChanging(Sender: TObject;
var AllowChange: Boolean);
begin
self.Cbb_PLname.Text :='';
self.EdtStringSymbol.Text :='';
self.EdtSymbols .Text :='';
self.MemoKeys .Text :='';
self.EdtComments .Text :='';
self.Cbx_isUpLow.Checked :=false;
end;
procedure Tset_frm.SpKeyColorMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if sender is Tshape then
begin
ColorDlg.Color :=(Sender as TShape).Brush.Color;
if ColorDlg.Execute then
(Sender as TShape).Brush.Color:= ColorDlg.Color ;
end;
end;
procedure Tset_frm.FormDestroy(Sender: TObject);
begin
self.FPLMsg.Free ;
end;
procedure Tset_frm.Cbb_PLnameChange(Sender: TObject);
begin
self.loadPLconfig(self.Cbb_PLname.Text );
end;
procedure Tset_frm.BitBtn1Click(Sender: TObject);
begin
if (self.FPLMsg<>nil) and (self.Cbb_PLname.Text<>'') then
begin
self.FPLMsg.PLname :=trim(self.Cbb_PLname.Text);
self.FPLMsg.isUpLow :=self.Cbx_isUpLow.Checked ;
self.FPLMsg.Keys:= self.MemoKeys.Lines.Text;
self.FPLMsg.FontSize :=strtoint(self.CBB_fontSize.Text );
self.FPLMsg.comments := self.EdtComments.Text;
if trim(self.EdtStringSymbol.Text)='' then
self.Cbb_PLname.Text:='"';
self.FPLMsg.KeyIsBold :=self.cbx_KeyIsBold.Checked ;
self.FPLMsg.commentIsItalisc:=self.Cbx_commentIsItalic.Checked ;
self.FPLMsg.stringSymbol := trim(self.EdtStringSymbol.Text)[1];
self.FPLMsg.Symbols := self.EdtSymbols.Text ;
self.FPLMsg.setTokenColor(Tskeyword,self.SpKeyColor.Brush.Color) ;
self.FPLMsg.setTokenColor(Tscomment, self.SpcommentColor.Brush.Color ) ;
self.FPLMsg.setTokenColor(Tsstring,self.SpstringColor.Brush.Color );
self.FPLMsg.setTokenColor(Tsnumber,self.SpnumberColor.Brush.Color) ;
self.FPLMsg.linktypes := self.EdtLinkType.Text;
self.FPLMsg.savetoInifile ;
if self.FPLMsg.PLname = mainfrm.PLCon.PLName then
begin
//重置其配置并刷新界面
mainfrm.PLCon.loadfromInifile(mainfrm.PLconfigfile ,mainfrm.PLCon.PLName );
mainfrm.PLToRtfWithStrings ;
end;
self.Close ;
end;
end;
procedure Tset_frm.CBB_fontSizeKeyPress(Sender: TObject; var Key: Char);
begin
Key:=#0;
end;
procedure Tset_frm.BitBtn2Click(Sender: TObject);
begin
self.Close ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -