paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 07:26:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: forms: add scaled property. Issue #27075

Browse Source 
git-svn-id: trunk@53495 -
This commit is contained in:
ondrej 2016-11-30 23:24:09 +00:00
parent 5fd2d5f20f
commit 9b0d88e504
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -452,6 +452,7 @@ type
FShowInTaskbar: TShowInTaskbar;
FWindowState: TWindowState;
FDesignTimeDPI: Integer;
FScaled: Boolean;
function GetClientHandle: HWND;
function GetEffectiveShowInTaskBar: TShowInTaskBar;
function GetMonitor: TMonitor;
@ -696,6 +697,7 @@ type
property RestoredTop: integer read FRestoredTop;
property RestoredWidth: integer read FRestoredWidth;
property RestoredHeight: integer read FRestoredHeight;
property Scaled: Boolean read FScaled write FScaled default False;
property ShowInTaskBar: TShowInTaskbar read FShowInTaskbar write SetShowInTaskBar
default stDefault;
property Visible stored VisibleIsStored default false;
@ -812,6 +814,7 @@ type
property ShowInTaskBar;
property UseDockManager;
property LCLVersion: string read FLCLVersion write FLCLVersion stored LCLVersionIsStored;
property Scaled;
property Visible;
property WindowState;
end;