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: Bug [ 1702740 ] Востановление позции окна Lin&Win

Browse source 
TODO: need uglobs.pas revision: consts cTopBorder/LeftBorder
This commit is contained in:
zolotov-alex 2007-04-18 12:19:07 +00:00
commit 43a01b6707
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
fmain.pas
View file

@ -511,8 +511,8 @@ begin
gIni.WriteString('right', 'path', FrameRight.pnlFile.ActiveDir);
(* /Save Paths *)
gIni.WriteInteger('Configuration', 'Main.Left', Left+cLeftBorder);// border!!
gIni.WriteInteger('Configuration', 'Main.Top', Top+cTopBorder); // border!!
gIni.WriteInteger('Configuration', 'Main.Left', Left);
gIni.WriteInteger('Configuration', 'Main.Top', Top);
gIni.WriteInteger('Configuration', 'Main.Width', Width);
gIni.WriteInteger('Configuration', 'Main.Height', Height);
end;

5
uglobs.pas
View file

@ -17,7 +17,10 @@ unit uGlobs;
interface
uses
Classes, uExts, uColorExt, Graphics, IniFiles;
const
// TODO: It's really need?
// SaveRect and SaveGlobs depends on this
cTopBorder = 23; // px on top is title
cLeftBorder = 6; // px on left
@ -89,7 +92,7 @@ end;
procedure SaveRect(ARect:TRect; sPrefix:String);
begin
// TODO: It is really need to add cLeftBorder/cTopBorder ? for what?
gIni.WriteInteger('Configuration', sPrefix+'left', ARect.Left + cLeftBorder);
gIni.WriteInteger('Configuration', sPrefix+'top', ARect.Top + cTopBorder);
// warning Bottom = height rigth = width, TRect is used only for simplification