mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
986 lines
30 KiB
ObjectPascal
986 lines
30 KiB
ObjectPascal
{
|
|
Double Commander
|
|
-------------------------------------------------------------------------
|
|
Implementing of columns' configure dialog
|
|
|
|
Copyright (C) 2008 Dmitry Kolomiets (B4rr4cuda@rambler.ru)
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
}
|
|
|
|
|
|
unit fColumnsSetConf;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
ExtCtrls, Buttons, Grids, ComCtrls, Menus, LCLType, uColumns,uGlobs, Spin,framePanel,
|
|
ColorBox;
|
|
|
|
type
|
|
|
|
|
|
{ TfColumnsSetConf }
|
|
|
|
TfColumnsSetConf = class(TForm)
|
|
btnBackColor: TButton;
|
|
btnBackColor2: TButton;
|
|
btnCursorColor: TButton;
|
|
btnCursorText: TButton;
|
|
btnFontSelect: TBitBtn;
|
|
btnForeColor: TButton;
|
|
btnMarkColor: TButton;
|
|
btnOk: TBitBtn;
|
|
btnCancel: TBitBtn;
|
|
btnNext: TButton;
|
|
btnPrev: TButton;
|
|
cbOvercolor: TCheckBox;
|
|
ResCurText: TButton;
|
|
cBackGrndLabel: TLabel;
|
|
cbBackColor: TColorBox;
|
|
cbBackColor2: TColorBox;
|
|
cbCursorColor: TColorBox;
|
|
cbCursorText: TColorBox;
|
|
cbMarkColor: TColorBox;
|
|
cbTextColor: TColorBox;
|
|
dlgcolor: TColorDialog;
|
|
ComboBox1: TComboBox;
|
|
cTextLabel: TLabel;
|
|
edtFont: TEdit;
|
|
edtNameofColumnsSet: TEdit;
|
|
dlgfont: TFontDialog;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
lblBackground2: TLabel;
|
|
lblConfigViewNr: TLabel;
|
|
lblCursorColor: TLabel;
|
|
lblCursorText: TLabel;
|
|
lblMarkColor: TLabel;
|
|
lblName: TLabel;
|
|
lbNrOfColumnsSet: TLabel;
|
|
miAddColumn: TMenuItem;
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
Panel3: TPanel;
|
|
pnlCustCont: TPanel;
|
|
pnlCustHead: TPanel;
|
|
pnlPrevCont: TPanel;
|
|
pnlPreviewHead: TPanel;
|
|
pnlPreview: TPanel;
|
|
pmStringGrid: TPopupMenu;
|
|
pmFields: TPopupMenu;
|
|
ResCurCol: TButton;
|
|
ResMark: TButton;
|
|
ResBack2: TButton;
|
|
ResBack: TButton;
|
|
ResText: TButton;
|
|
btnAllText: TButton;
|
|
btnAllBack: TButton;
|
|
btnAllBack2: TButton;
|
|
btnAllCurCol: TButton;
|
|
btnAllCurText: TButton;
|
|
btnAllMarc: TButton;
|
|
sneFontSize: TSpinEdit;
|
|
Splitter1: TSplitter;
|
|
Splitter2: TSplitter;
|
|
stgColumns: TStringGrid;
|
|
procedure btnAllTextClick(Sender: TObject);
|
|
procedure btnBackColor2Click(Sender: TObject);
|
|
procedure btnBackColorClick(Sender: TObject);
|
|
procedure btnCancelClick(Sender: TObject);
|
|
procedure btnCursorColorClick(Sender: TObject);
|
|
procedure btnCursorTextClick(Sender: TObject);
|
|
procedure btnFontSelectClick(Sender: TObject);
|
|
procedure btnForeColorClick(Sender: TObject);
|
|
procedure btnMarkColorClick(Sender: TObject);
|
|
procedure btnNextClick(Sender: TObject);
|
|
procedure btnOkClick(Sender: TObject);
|
|
procedure btnPrevClick(Sender: TObject);
|
|
procedure cbOvercolorChange(Sender: TObject);
|
|
procedure ResBack2Click(Sender: TObject);
|
|
procedure ResBackClick(Sender: TObject);
|
|
procedure ResCurColClick(Sender: TObject);
|
|
procedure ResMarkClick(Sender: TObject);
|
|
procedure ResTextClick(Sender: TObject);
|
|
procedure ResCurTextClick(Sender: TObject);
|
|
procedure cbBackColor2Change(Sender: TObject);
|
|
procedure cbBackColorChange(Sender: TObject);
|
|
procedure cbCursorColorChange(Sender: TObject);
|
|
procedure cbCursorTextChange(Sender: TObject);
|
|
procedure cbMarkColorChange(Sender: TObject);
|
|
procedure cbTextColorChange(Sender: TObject);
|
|
procedure cbTextColorDropDown(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormResize(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure miAddColumnClick(Sender: TObject);
|
|
procedure MenuFieldsClick(Sender: TObject);
|
|
procedure pnlCustHeadClick(Sender: TObject);
|
|
procedure pnlPreviewHeadClick(Sender: TObject);
|
|
procedure sneFontSizeChange(Sender: TObject);
|
|
procedure Splitter2CanResize(Sender: TObject; var NewSize: Integer;
|
|
var Accept: Boolean);
|
|
procedure stgColumnsEditingDone(Sender: TObject);
|
|
procedure stgColumnsHeaderSized(Sender: TObject; IsColumn: Boolean;
|
|
Index: Integer);
|
|
procedure stgColumnsKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
|
|
procedure stgColumnsSelectEditor(Sender: TObject; aCol, aRow: Integer;
|
|
var Editor: TWinControl);
|
|
|
|
{Editors}
|
|
procedure SpinEditExit(Sender: TObject);
|
|
procedure SpinEditChange(Sender: TObject);
|
|
procedure EditExit(Sender: TObject);
|
|
procedure BitBtnDeleteFieldClick(Sender: TObject);
|
|
procedure BtnCfgClick(Sender: TObject);
|
|
procedure ButtonAddClick(Sender: TObject);
|
|
procedure ComboBoxXSelect(Sender: TObject);
|
|
procedure UpDownXClick(Sender: TObject; Button: TUDBtnType);
|
|
procedure UpDownXChanging(Sender: TObject; var AllowChange: Boolean);
|
|
private
|
|
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
procedure UpdateColumnClass;
|
|
procedure DGHeaderSized(Sender: TObject;IsColumn: Boolean; Index: Integer);
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
ColumnClass:TPanelColumnsClass;
|
|
procedure AddNewField;
|
|
end;
|
|
|
|
procedure EditorSaveResult(Sender: TObject);
|
|
|
|
var
|
|
IndexRaw:integer=0;
|
|
pnlCustHeight:integer=130;
|
|
PnlContHeight:integer=180;
|
|
PreviewPan:TFrameFilePanel;
|
|
frmColumnsSetConf: TfColumnsSetConf;
|
|
updWidth:TSpinEdit;
|
|
cbbAlign:TComboBox;
|
|
edtField:TEdit;
|
|
btnAdd:TButton;
|
|
btnDel:TBitBtn;
|
|
updMove:TUpDown;
|
|
btnCfg:TButton;
|
|
Showed:boolean;
|
|
implementation
|
|
|
|
uses uLng;
|
|
|
|
procedure LoadCustColumn(const Index:integer);
|
|
begin
|
|
with frmColumnsSetConf do
|
|
begin
|
|
if (Index>=stgColumns.RowCount-1) or (Index<0) then exit;
|
|
|
|
IndexRaw:=Index;
|
|
pnlCustHead.Caption:=rsConfCustHeader+inttostr(IndexRaw);
|
|
|
|
edtFont.Text:=ColumnClass.GetColumnFontName(IndexRaw);
|
|
sneFontSize.Value:=ColumnClass.GetColumnFontSize(IndexRaw);
|
|
cbTextColor.Color:=ColumnClass.GetColumnTextColor(IndexRaw);
|
|
cbBackColor.Color:=ColumnClass.GetColumnBackground(IndexRaw);
|
|
cbBackColor2.Color:=ColumnClass.GetColumnBackground2(IndexRaw);
|
|
cbMarkColor.Color:=ColumnClass.GetColumnMarkColor(IndexRaw);
|
|
cbCursorColor.Color:=ColumnClass.GetColumnCursorColor(IndexRaw);
|
|
cbCursorText.Color:=ColumnClass.GetColumnCursorText(IndexRaw);
|
|
cbOvercolor.Checked:=ColumnClass.GetColumnOvercolor(IndexRaw);
|
|
|
|
//open pblCustCont if it is hidden
|
|
if Splitter2.Height+1>pnlCustCont.Height then
|
|
pnlCustHeadClick(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure EditorSaveResult(Sender: TObject);
|
|
begin
|
|
with frmColumnsSetConf do
|
|
begin
|
|
if Sender is TSpinEdit then
|
|
stgColumns.Cells[2,(Sender as TSpinEdit).Tag]:=inttostr(updWidth.Value);
|
|
if Sender is TComboBox then
|
|
stgColumns.Cells[3,(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text;
|
|
if Sender is TEdit then
|
|
stgColumns.Cells[4,(Sender as TEdit).Tag]:=(Sender as TEdit).Text;
|
|
end;
|
|
|
|
frmColumnsSetConf.UpdateColumnClass;
|
|
end;
|
|
|
|
{ TfColumnsSetConf }
|
|
|
|
procedure TfColumnsSetConf.UpdateColumnClass;
|
|
var i,indx:integer;
|
|
Tit,
|
|
FuncString: string;
|
|
Wid: integer;
|
|
Ali: TAlignment;
|
|
begin
|
|
// Save fields
|
|
ColumnClass.Clear;
|
|
for i:=1 to stgColumns.RowCount-1 do
|
|
begin
|
|
with stgColumns do
|
|
begin
|
|
Tit:=Cells[1,i];
|
|
Wid:=StrToInt(Cells[2,i]);
|
|
Ali:=StrToAlign(Cells[3,i]);
|
|
FuncString:=Cells[4,i];
|
|
end;
|
|
indx:=ColumnClass.Add(Tit,FuncString,Wid,Ali);
|
|
if stgColumns.Objects[6,i]<>nil then
|
|
ColumnClass.SetColumnPrm(Indx,TColPrm(stgColumns.Objects[6,i]));
|
|
end;
|
|
|
|
PreviewPan.ActiveColmSlave:=frmColumnsSetConf.ColumnClass;
|
|
PreviewPan.SetColWidths;
|
|
PreviewPan.Repaint;
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure TfColumnsSetConf.stgColumnsSelectEditor(Sender: TObject; aCol,
|
|
aRow: Integer; var Editor: TWinControl);
|
|
|
|
var i:integer;
|
|
|
|
begin
|
|
if assigned(updWidth) then FreeAndNil(updWidth);
|
|
if assigned(cbbAlign) then FreeAndNil(cbbAlign);
|
|
if assigned(btnAdd) then FreeAndNil(btnAdd);
|
|
if assigned(btnDel) then FreeAndNil(btnDel);
|
|
if assigned(edtField) then FreeAndNil(edtField);
|
|
if assigned(updMove) then FreeAndNil(updMove);
|
|
if assigned(btncfg) then FreeAndNil(btnCfg);
|
|
|
|
try
|
|
case aCol of
|
|
0: begin
|
|
btnDel:=TBitBtn.Create(frmColumnsSetConf);
|
|
with btnDel do
|
|
begin
|
|
Parent:=stgColumns;
|
|
Glyph.Assign(btnCancel.Glyph);
|
|
Caption:='';
|
|
Height:=stgColumns.RowHeights[aRow];
|
|
Width:=stgColumns.ColWidths[aCol]-2;
|
|
Visible:=false;
|
|
Tag:=aRow;
|
|
OnClick:=@BitBtnDeleteFieldClick;
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Right-Width;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
end;
|
|
Editor:=btnDel;
|
|
end;
|
|
|
|
2: begin
|
|
updWidth:=TSpinEdit.Create(frmColumnsSetConf);
|
|
with updWidth do
|
|
begin
|
|
Parent:=(Sender as TStringGrid);
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Left;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
Height:=(Sender as TStringGrid).RowHeights[aRow];
|
|
Width:=(Sender as TStringGrid).ColWidths[aCol];
|
|
Tag:=aRow;
|
|
if ((Sender as TStringGrid).Cells[aCol,aRow])<>'' then
|
|
MaxValue:=1000;
|
|
Value:=StrToInt((Sender as TStringGrid).Cells[aCol,aRow]);
|
|
OnKeyDown:=@EditorKeyDown;
|
|
OnChange:=@SpinEditChange;
|
|
OnExit:=@SpinEditExit;
|
|
Visible:=false;
|
|
end;
|
|
Editor:=updWidth;
|
|
end;
|
|
3: begin
|
|
cbbAlign:=TComboBox.Create(frmColumnsSetConf);
|
|
with cbbAlign do
|
|
begin
|
|
Parent:=(Sender as TStringGrid);
|
|
Width:=(Sender as TStringGrid).ColWidths[aCol];
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Left;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
Height:=(Sender as TStringGrid).RowHeights[aRow];
|
|
Tag:=aRow;
|
|
Style:=csDropDownList;
|
|
AddItem('<-',nil);
|
|
AddItem('->',nil);
|
|
AddItem('=',nil);
|
|
OnSelect:=@ComboBoxXSelect;
|
|
OnKeyDown:=@EditorKeyDown;
|
|
ItemIndex:=Items.IndexOf((Sender as TStringGrid).Cells[aCol,aRow]);
|
|
Visible:=false;
|
|
end;
|
|
Editor:=cbbAlign;
|
|
end;
|
|
4: begin
|
|
btnAdd:=TButton.Create(frmColumnsSetConf);
|
|
with btnAdd do
|
|
begin
|
|
Parent:=(Sender as TStringGrid);
|
|
Width:=20;
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Right-Width;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
Height:=(Sender as TStringGrid).RowHeights[aRow];
|
|
Tag:=aRow;
|
|
Caption:='+';
|
|
OnClick:=@ButtonAddClick;
|
|
Visible:=true;
|
|
end;
|
|
edtField:=TEdit.Create(frmColumnsSetConf);
|
|
with edtField do
|
|
begin
|
|
Parent:=(Sender as TStringGrid);
|
|
Width:=(Sender as TStringGrid).ColWidths[aCol];
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Left;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
Height:=(Sender as TStringGrid).RowHeights[aRow];
|
|
Tag:=aRow;
|
|
OnExit:=@EditExit;
|
|
OnKeyDown:=@EditorKeyDown;
|
|
Visible:=false;
|
|
Text:=(Sender as TStringGrid).Cells[aCol,aRow];
|
|
end;
|
|
Editor:=edtField;
|
|
end;
|
|
5: begin
|
|
updMove:=TUpDown.Create(frmColumnsSetConf);
|
|
with updMove do
|
|
begin
|
|
Parent:=stgColumns;
|
|
Height:=stgColumns.RowHeights[aRow];
|
|
Width:=stgColumns.ColWidths[aCol]-2;
|
|
Visible:=false;
|
|
Tag:=aRow;
|
|
Min:=-((Sender as TStringGrid).RowCount-1);
|
|
Max:=-1;
|
|
Position:=-aRow;
|
|
OnChanging:=@UpDownXChanging;
|
|
OnClick:=@UpDownXClick;
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Right-Width;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
end;
|
|
Editor:=updMove;
|
|
end;
|
|
|
|
6: begin
|
|
btnCfg:=TButton.Create(frmColumnsSetConf);
|
|
with btnCfg do
|
|
begin
|
|
Parent:=stgColumns;
|
|
Height:=stgColumns.RowHeights[aRow];
|
|
Width:=stgColumns.ColWidths[aCol]-2;
|
|
Visible:=false;
|
|
Tag:=aRow;
|
|
Caption:=rsConfColConfig;
|
|
OnClick:=@BtnCfgClick;
|
|
Left:=(Sender as TStringGrid).CellRect(aCol,aRow).Right-Width;
|
|
Top:=(Sender as TStringGrid).CellRect(aCol,aRow).Top;
|
|
end;
|
|
Editor:=btnCfg;
|
|
end;
|
|
end;
|
|
|
|
finally
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TfColumnsSetConf.stgColumnsHeaderSized(Sender: TObject;
|
|
IsColumn: Boolean; Index: Integer);
|
|
begin
|
|
//TODO: move editors
|
|
end;
|
|
|
|
|
|
procedure TfColumnsSetConf.stgColumnsKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if (Key=vk_Down) and (stgColumns.Row=stgColumns.RowCount-1) then
|
|
begin
|
|
AddNewField;
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.EditorKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if Key=VK_RETURN then
|
|
begin
|
|
EditorSaveResult(Sender);
|
|
stgColumns.EditorMode:= False;
|
|
Key:=0;
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.AddNewField;
|
|
begin
|
|
stgColumns.RowCount:=stgColumns.RowCount+1;
|
|
stgColumns.Cells[1,stgColumns.RowCount-1]:='Field N'+IntToStr(stgColumns.RowCount-1);
|
|
stgColumns.Cells[2,stgColumns.RowCount-1]:='50';
|
|
stgColumns.Cells[3,stgColumns.RowCount-1]:='<-';
|
|
stgColumns.Cells[4,stgColumns.RowCount-1]:='';
|
|
stgColumns.Objects[6,stgColumns.RowCount-1]:=TColPrm.Create;
|
|
|
|
UpdateColumnClass;
|
|
PreviewPan.ActiveColmSlave:=ColumnClass;
|
|
PreviewPan.SetColWidths;
|
|
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.FormCreate(Sender: TObject);
|
|
begin
|
|
ColumnClass:=TPanelColumnsClass.Create;
|
|
// Resize window for screen size if need
|
|
ResizeToScreen(Self);
|
|
PreviewPan:=TFrameFilePanel.Create(pnlPreview, Label1, Label2, ComboBox1);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.FormDestroy(Sender: TObject);
|
|
begin
|
|
showed:=false;
|
|
if assigned(updWidth) then FreeAndNil(updWidth);
|
|
if assigned(cbbAlign) then FreeAndNil(cbbAlign);
|
|
if assigned(btnAdd) then FreeAndNil(btnAdd);
|
|
if assigned(btnDel) then FreeAndNil(btnDel);
|
|
if assigned(edtField) then FreeAndNil(edtField);
|
|
if assigned(updMove) then FreeAndNil(updMove);
|
|
if assigned(btnCfg) then FreeAndNil(btnCfg);
|
|
if assigned(PreviewPan) then FreeAndNil(PreviewPan);
|
|
// ColumnClass.Free;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.FormResize(Sender: TObject);
|
|
var z,i:integer;
|
|
begin
|
|
if not showed then exit;
|
|
//Size of content field
|
|
z:=stgColumns.Width;
|
|
for i:=0 to 3 do
|
|
z:=z-stgColumns.ColWidths[i];
|
|
z:=z-stgColumns.ColWidths[5]*stgColumns.ColWidths[6];
|
|
stgColumns.ColWidths[4]:=z;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.FormShow(Sender: TObject);
|
|
var i:integer; sPath:string;
|
|
begin
|
|
|
|
pnlCustHeadClick(Sender);
|
|
|
|
with PreviewPan do
|
|
begin
|
|
edtCmdLine:=ComboBox1;
|
|
ActiveColmSlave:=ColumnClass;
|
|
isSlave:=true;
|
|
SetColWidths;
|
|
dgPanel.OnHeaderSized:=@DGHeaderSized;
|
|
Init;
|
|
ReAlign;
|
|
GetDir(0, sPath);
|
|
pnlFile.ActiveDir := sPath;
|
|
pnlFile.LoadPanel;
|
|
UpDatelblInfo;
|
|
dgPanel.Color := gBackColor;
|
|
pnlHeader.Visible := gCurDir;
|
|
pnlFooter.Visible := gStatusBar;
|
|
end;
|
|
|
|
|
|
if ColumnClass.ColumnsCount>0 then
|
|
begin
|
|
stgColumns.RowCount:=ColumnClass.ColumnsCount+1;
|
|
for i:=0 to ColumnClass.ColumnsCount-1 do
|
|
begin
|
|
stgColumns.Cells[1,i+1]:=ColumnClass.GetColumnTitle(i);
|
|
stgColumns.Cells[2,i+1]:=inttostr(ColumnClass.GetColumnWidth(i));
|
|
stgColumns.Cells[3,i+1]:=ColumnClass.GetColumnAlignString(i);
|
|
stgColumns.Cells[4,i+1]:=ColumnClass.GetColumnFuncString(i);
|
|
stgColumns.Objects[6,i+1]:=ColumnClass.GetColumnPrm(i);
|
|
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
stgColumns.RowCount:=1;
|
|
frmColumnsSetConf.AddNewField;
|
|
end;
|
|
Showed:=true;
|
|
// Localize StringGrid header
|
|
stgColumns.Cells[0,0]:= rsConfColDelete;
|
|
stgColumns.Cells[1,0]:= rsConfColCaption;
|
|
stgColumns.Cells[2,0]:= rsConfColWidth;
|
|
stgColumns.Cells[3,0]:= rsConfColAlign;
|
|
stgColumns.Cells[4,0]:= rsConfColFieldCont;
|
|
stgColumns.Cells[5,0]:= rsConfColMove;
|
|
stgColumns.Cells[6,0]:= rsOptColors;
|
|
|
|
IndexRaw:=0;
|
|
pnlCustHead.Caption:=rsConfCustHeader+inttostr(IndexRaw);
|
|
|
|
edtFont.Text:=ColumnClass.GetColumnFontName(IndexRaw);
|
|
sneFontSize.Value:=ColumnClass.GetColumnFontSize(IndexRaw);
|
|
cbTextColor.Color:=ColumnClass.GetColumnTextColor(IndexRaw);
|
|
cbBackColor.Color:=ColumnClass.GetColumnBackground(IndexRaw);
|
|
cbBackColor2.Color:=ColumnClass.GetColumnBackground2(IndexRaw);
|
|
cbMarkColor.Color:=ColumnClass.GetColumnMarkColor(IndexRaw);
|
|
cbCursorColor.Color:=ColumnClass.GetColumnCursorColor(IndexRaw);
|
|
cbCursorText.Color:=ColumnClass.GetColumnCursorText(IndexRaw);
|
|
cbOvercolor.Checked:=ColumnClass.GetColumnOvercolor(IndexRaw);
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure TfColumnsSetConf.miAddColumnClick(Sender: TObject);
|
|
begin
|
|
AddNewField;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.SpinEditExit(Sender: TObject);
|
|
begin
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.SpinEditChange(Sender: TObject);
|
|
begin
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.EditExit(Sender: TObject);
|
|
begin
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ComboBoxXSelect(Sender: TObject);
|
|
begin
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.UpDownXClick(Sender: TObject; Button: TUDBtnType);
|
|
begin
|
|
stgColumns.ExchangeColRow(False,updMove.Tag,abs(updMove.Position));
|
|
with updMove do
|
|
begin
|
|
Left:=stgColumns.CellRect(5,abs(updMove.Position)).Right-Width;
|
|
Top:=stgColumns.CellRect(5,abs(updMove.Position)).Top;
|
|
end;
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.UpDownXChanging(Sender: TObject;
|
|
var AllowChange: Boolean);
|
|
begin
|
|
updMove.tag:=abs(updMove.Position);
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.BitBtnDeleteFieldClick(Sender: TObject);
|
|
begin
|
|
stgColumns.DeleteColRow(false,(Sender as TBitBtn).Tag);
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.BtnCfgClick(Sender: TObject);
|
|
begin
|
|
LoadCustColumn((Sender as TButton).Tag-1);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.DGHeaderSized(Sender: TObject; IsColumn: Boolean;
|
|
Index: Integer);
|
|
begin
|
|
stgColumns.Cells[2,Index+1]:=inttostr(PreviewPan.dgPanel.ColWidths[index]);
|
|
ColumnClass.SetColumnWidth(Index,PreviewPan.dgPanel.ColWidths[index])
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnOkClick(Sender: TObject);
|
|
begin
|
|
if edtNameofColumnsSet.Text='' then
|
|
edtNameofColumnsSet.Text:=DateTimeToStr(now);
|
|
|
|
UpdateColumnClass;
|
|
|
|
case Self.Tag of
|
|
-1: ColSet.Add(edtNameofColumnsSet.Text,ColumnClass);
|
|
else
|
|
begin
|
|
ColSet.DeleteColumnSet(gIni,Self.Tag);
|
|
Colset.Insert(Self.Tag,edtNameofColumnsSet.Text,ColumnClass);
|
|
end;
|
|
end;
|
|
|
|
ColSet.Save(gIni);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnPrevClick(Sender: TObject);
|
|
begin
|
|
LoadCustColumn(IndexRaw-1);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbOvercolorChange(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Overcolor:=cbOvercolor.Checked;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResBack2Click(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background2:=gBackColor2;
|
|
cbBackColor2.Color:=gBackColor2;
|
|
cbBackColor2.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResBackClick(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background:=gBackColor;
|
|
cbBackColor.Color:=gBackColor;
|
|
cbBackColor.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResCurColClick(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorColor:=gCursorColor;
|
|
cbCursorColor.Color:=gCursorColor;
|
|
cbCursorColor.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResMarkClick(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).MarkColor:=gMarkColor;
|
|
cbMarkColor.Color:=gMarkColor;
|
|
cbMarkColor.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResTextClick(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).TextColor:=gForeColor;
|
|
cbTextColor.Color:=gForeColor;
|
|
cbTextColor.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.ResCurTextClick(Sender: TObject);
|
|
begin
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorText:=gCursorText;
|
|
cbCursorText.Color:=gCursorText;
|
|
cbCursorText.Text:='';
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbBackColor2Change(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background2:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbBackColorChange(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbCursorColorChange(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorColor:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbCursorTextChange(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorText:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbMarkColorChange(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).MarkColor:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbTextColorChange(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := (Sender as TColorBox).Selected;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).TextColor:=(Sender as TColorBox).Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.cbTextColorDropDown(Sender: TObject);
|
|
begin
|
|
(Sender as TColorBox).Color := clWindow;
|
|
end;
|
|
|
|
|
|
procedure TfColumnsSetConf.btnCancelClick(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnCursorColorClick(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbCursorColor.Color:=dlgcolor.Color;
|
|
cbCursorColor.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorColor:=cbCursorColor.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnCursorTextClick(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbCursorText.Color:=dlgcolor.Color;
|
|
cbCursorText.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).CursorText:=cbCursorText.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnBackColorClick(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbBackColor.Color:=dlgcolor.Color;
|
|
cbBackColor.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background:=cbBackColor.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnBackColor2Click(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbBackColor2.Color:=dlgcolor.Color;
|
|
cbBackColor2.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).Background2:=cbBackColor2.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnAllTextClick(Sender: TObject);
|
|
var i:integer;
|
|
begin
|
|
for i:= 1 to stgColumns.RowCount-1 do
|
|
case (Sender as TButton).tag of
|
|
1:begin
|
|
TColPrm(stgColumns.Objects[6,i]).TextColor :=cbTextColor.Color;
|
|
end;
|
|
2:begin
|
|
TColPrm(stgColumns.Objects[6,i]).Background :=cbBackColor.Color;
|
|
end;
|
|
3:begin
|
|
TColPrm(stgColumns.Objects[6,i]).Background2 :=cbBackColor2.Color;
|
|
end;
|
|
4:begin
|
|
TColPrm(stgColumns.Objects[6,i]).MarkColor :=cbMarkColor.Color;
|
|
end;
|
|
5:begin
|
|
TColPrm(stgColumns.Objects[6,i]).CursorColor :=cbCursorColor.Color;
|
|
end;
|
|
6:begin
|
|
TColPrm(stgColumns.Objects[6,i]).CursorText :=cbCursorText.Color;
|
|
end;
|
|
end;
|
|
UpdateColumnClass;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnFontSelectClick(Sender: TObject);
|
|
begin
|
|
if dlgfont.Execute then
|
|
begin
|
|
edtFont.Text:=dlgfont.Font.Name;
|
|
sneFontSize.Value:=dlgfont.Font.Size;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).FontSize:=dlgfont.Font.Size;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).FontName:=dlgfont.Font.Name;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnForeColorClick(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbTextColor.Color:=dlgcolor.Color;
|
|
cbTextColor.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).TextColor:=cbTextColor.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnMarkColorClick(Sender: TObject);
|
|
begin
|
|
if dlgcolor.Execute then
|
|
begin
|
|
cbMarkColor.Color:=dlgcolor.Color;
|
|
cbMarkColor.Text := '';
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).MarkColor:=cbMarkColor.Color;
|
|
EditorSaveResult(nil);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.btnNextClick(Sender: TObject);
|
|
begin
|
|
LoadCustColumn(IndexRaw+1);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.MenuFieldsClick(Sender: TObject);
|
|
begin
|
|
case (Sender as TMenuItem).Tag of
|
|
0: begin
|
|
stgColumns.Cells[4,btnAdd.Tag]:=stgColumns.Cells[4,btnAdd.Tag]+'[DC().'+(Sender as TMenuItem).Caption+'{}] ';
|
|
end;
|
|
1: begin
|
|
stgColumns.Cells[4,btnAdd.Tag]:=stgColumns.Cells[4,btnAdd.Tag]+'[Plugin('+(Sender as TMenuItem).Parent.Caption+').'+(Sender as TMenuItem).Caption+'{}] ';
|
|
end;
|
|
end;
|
|
EditorSaveResult(Sender);
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.pnlCustHeadClick(Sender: TObject);
|
|
begin
|
|
if Splitter2.Height+1>pnlCustCont.Height then
|
|
begin
|
|
//open panel
|
|
if pnlCustHead.Top<250 then Splitter1.MoveSplitter(100);
|
|
pnlCustCont.Constraints.MinHeight:=pnlCustHeight;
|
|
pnlCustCont.Constraints.MaxHeight:=pnlCustHeight;
|
|
Splitter2.MoveSplitter(-pnlCustHeight);
|
|
end
|
|
else
|
|
begin
|
|
//Hide panel
|
|
pnlCustCont.Constraints.MinHeight:=1;
|
|
pnlCustCont.Constraints.MaxHeight:=1;
|
|
Splitter2.MoveSplitter(pnlCustCont.Height);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.pnlPreviewHeadClick(Sender: TObject);
|
|
begin
|
|
if Splitter1.Height>pnlPrevCont.Height then
|
|
//open panel
|
|
Splitter1.MoveSplitter(-PnlContHeight)
|
|
else
|
|
begin
|
|
//Hide panel
|
|
PnlContHeight:=pnlPrevCont.Height;
|
|
Splitter1.MoveSplitter(pnlPrevCont.Height);
|
|
end;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.sneFontSizeChange(Sender: TObject);
|
|
begin
|
|
// edtFont.Font.Size:=sneFontSize.Value;
|
|
TColPrm(stgColumns.Objects[6,IndexRaw+1]).FontSize:=sneFontSize.Value;
|
|
UpdateColumnClass;
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.Splitter2CanResize(Sender: TObject;
|
|
var NewSize: Integer; var Accept: Boolean);
|
|
begin
|
|
{ if NewSize=130 then
|
|
Accept:=true
|
|
else
|
|
Accept:=false; }
|
|
end;
|
|
|
|
procedure TfColumnsSetConf.stgColumnsEditingDone(Sender: TObject);
|
|
begin
|
|
EditorSaveResult(sender);
|
|
end;
|
|
|
|
|
|
procedure TfColumnsSetConf.ButtonAddClick(Sender: TObject);
|
|
var Mi:TMenuItem; i,j:integer; point:TPoint;
|
|
begin
|
|
// show column fields menu
|
|
|
|
pmFields.Items.Clear;
|
|
|
|
//DC commands
|
|
|
|
MI:=TMenuItem.Create(pmFields);
|
|
MI.Caption:='DC';
|
|
pmFields.Items.Add(MI);
|
|
for i:= 0 to IntList.Count-1 do
|
|
begin
|
|
MI:=TMenuItem.Create(pmFields);
|
|
MI.Tag:=0;
|
|
MI.Caption:=IntList[i];
|
|
MI.OnClick:=@MenuFieldsClick;
|
|
pmFields.Items.Items[0].Add(MI);
|
|
end;
|
|
//Plugins
|
|
MI:=TMenuItem.Create(pmFields);
|
|
MI.Caption:='Plugins';
|
|
pmFields.Items.Add(MI);
|
|
for i:=0 to gWdxPlugins.Count-1 do
|
|
begin
|
|
MI:=TMenuItem.Create(pmFields);
|
|
MI.Caption:=gWdxPlugins.GetWdxModule(i).Name;
|
|
pmFields.Items.Items[1].Add(MI);
|
|
//Load fields list
|
|
if gWdxPlugins.GetWdxModule(i).IsLoaded=false then
|
|
if not (gWdxPlugins.GetWdxModule(i).LoadModule) then break;
|
|
for j:=0 to gWdxPlugins.GetWdxModule(i).FieldList.Count-1 do
|
|
begin
|
|
with gWdxPlugins.GetWdxModule(i) do
|
|
begin
|
|
MI:=TMenuItem.Create(pmFields);
|
|
MI.Tag:=1;
|
|
MI.Caption:=FieldList[j];
|
|
MI.OnClick:=@MenuFieldsClick;
|
|
pmFields.Items.Items[1].Items[i].Add(MI);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
point.x:=(Sender as TButton).Left-25;
|
|
point.y:=(Sender as TButton).top+(Sender as TButton).Height+40;;
|
|
point:=ClientToScreen(Point);
|
|
pmFields.PopUp(point.X,point.Y);
|
|
|
|
end;
|
|
|
|
|
|
initialization
|
|
{$I fcolumnssetconf.lrs}
|
|
|
|
end.
|
|
|