📄 set_infor_frm.pas

📁 用于制作和整理（文件搜索方式）编程技术文档和各类源代码, 可以如编程工具一样分色显示程序(C++, Delphi , java, Vb, SQL ……)(用算法实现), 主要用于查找相应的类和函数
💻 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.
💿 文件大小 823 K
👤 上传用户 huihuisasa
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#Delphi #java #SQL #Vb
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -