pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

manualdock: resolving the compiler warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7211 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2019-12-18 20:42:52 +00:00
parent e3839dd9dd
commit 1c87132ba3
1 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/manualdock/mandocking.pas
View File

@@ -1,5 +1,5 @@
unit mandocking; unit mandocking;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
@@ -111,9 +111,6 @@ begin
end; end;
function TManualDocker.DoChangeDocking(DockingEnabled:Boolean):Boolean; function TManualDocker.DoChangeDocking(DockingEnabled:Boolean):Boolean;
var
i : Integer;
wnd : TSourceEditorWindowInterface;
begin begin
if DockingEnabled then begin if DockingEnabled then begin
Result:=False; Result:=False;
@@ -270,8 +267,6 @@ begin
end; end;
procedure TManualDocker.SourceWindowDestroyed(Sender: TObject); procedure TManualDocker.SourceWindowDestroyed(Sender: TObject);
var
i : Integer;
begin begin
if FCurrentSrcWin <> Sender then Exit; if FCurrentSrcWin <> Sender then Exit;
DoChangeDocking(False); DoChangeDocking(False);
@@ -285,25 +280,31 @@ end;
procedure TManualDocker.LoadState(cfg: TXMLConfig; var Astate: TDockState; procedure TManualDocker.LoadState(cfg: TXMLConfig; var Astate: TDockState;
const StateName: string); const StateName: string);
var
nm : UnicodeString;
begin begin
AState.Docked := cfg.GetValue(StateName+'/docked', False); nm := UTF8Decode(StateName);
AState.FloatRect.Left := cfg.GetValue(StateName+'/float/left', -1); AState.Docked := cfg.GetValue(nm+'/docked', False);
AState.FloatRect.Top := cfg.GetValue(StateName+'/float/top', -1); AState.FloatRect.Left := cfg.GetValue(nm+'/float/left', -1);
AState.FloatRect.Right := cfg.GetValue(StateName+'/float/right', -1); AState.FloatRect.Top := cfg.GetValue(nm+'/float/top', -1);
AState.FloatRect.Bottom := cfg.GetValue(StateName+'/float/bottom', -1); AState.FloatRect.Right := cfg.GetValue(nm+'/float/right', -1);
AState.DockSize.cx := cfg.GetValue(StateName+'/docked/cx', 30); AState.FloatRect.Bottom := cfg.GetValue(nm+'/float/bottom', -1);
AState.DockSize.cy := cfg.GetValue(StateName+'/docked/cy', 50); AState.DockSize.cx := cfg.GetValue(nm+'/docked/cx', 30);
AState.DockSize.cy := cfg.GetValue(nm+'/docked/cy', 50);
end; end;
procedure TManualDocker.SaveState(cfg: TXMLConfig; const Astate: TDockState; const StateName: string); procedure TManualDocker.SaveState(cfg: TXMLConfig; const Astate: TDockState; const StateName: string);
var
nm : UnicodeString;
begin begin
cfg.SetValue(StateName+'/docked', AState.Docked); nm:=UTF8Decode(StateName);
cfg.SetValue(StateName+'/float/left', AState.FloatRect.Left); cfg.SetValue(nm+'/docked', AState.Docked);
cfg.SetValue(StateName+'/float/top', AState.FloatRect.Top); cfg.SetValue(nm+'/float/left', AState.FloatRect.Left);
cfg.SetValue(StateName+'/float/right', AState.FloatRect.Right); cfg.SetValue(nm+'/float/top', AState.FloatRect.Top);
cfg.SetValue(StateName+'/float/bottom', AState.FloatRect.Bottom); cfg.SetValue(nm+'/float/right', AState.FloatRect.Right);
cfg.SetValue(StateName+'/docked/cx', AState.DockSize.cx); cfg.SetValue(nm+'/float/bottom', AState.FloatRect.Bottom);
cfg.SetValue(StateName+'/docked/cy', AState.DockSize.cy) cfg.SetValue(nm+'/docked/cx', AState.DockSize.cx);
cfg.SetValue(nm+'/docked/cy', AState.DockSize.cy)
end; end;
procedure TManualDocker.LoadStates; procedure TManualDocker.LoadStates;