mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: else one columns preview fix

Browse source
This commit is contained in:
b4rr4cuda 2008-06-05 18:21:33 +00:00
commit f7e4eaa7e9
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
fcolumnssetconf.pas
View file

@ -58,7 +58,6 @@ type
stgColumns: TStringGrid;
procedure btnCancelClick(Sender: TObject);
procedure btnOkClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
@ -440,17 +439,20 @@ 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);
@ -462,6 +464,7 @@ begin
Free;
end;
}
EditorSaveResult(Sender);
end;
procedure TfColumnsSetConf.UpdateColumnClass;
@ -513,10 +516,6 @@ if edtNameofColumnsSet.Text='' then
ColSet.Save(gIni);
end;
procedure TfColumnsSetConf.Button1Click(Sender: TObject);
begin
end;
procedure TfColumnsSetConf.btnCancelClick(Sender: TObject);
begin