mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: cm_PanelSplitterPerPos

Browse source
This commit is contained in:
b4rr4cuda 2008-06-20 15:51:48 +00:00
commit c4a4076f1d
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
fmain.pas
View file

@ -805,7 +805,7 @@ procedure TfrmMain.mnuSplitterPercentClick(Sender: TObject);
begin
with (Sender as TMenuItem) do
begin
pnlLeft.Width:= (pnlNoteBooks.Width-MainSplitter.Width) * Tag div 100;
Actions.cm_PanelsSplitterPerPos(inttostr(Tag));
end;
end;

13
uacts.pas
View file

@ -99,6 +99,7 @@ const cf_Null=0;
procedure cm_FileProperties(param: string='');
procedure cm_FileLinker(param: string='');
procedure cm_FileSpliter(param: string='');
procedure cm_PanelsSplitterPerPos(param: string='');
//---------------------
{ procedure SomeFunction (param:string; var Result:integer);
@ -1407,6 +1408,18 @@ begin
end;
end;
procedure TActs.cm_PanelsSplitterPerPos(param: string);
var i:integer;
begin
with frmMain do
begin
if TryStrToInt(param,i) then
begin
pnlLeft.Width:= (pnlNoteBooks.Width-MainSplitter.Width) * i div 100;
end;
end;
end;
end.