{
   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.