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

Adds a new TApplication property to control the layout auto-adjustment policy. This property will allow converting the LCL fixed layouting effectively into a stretchable grid layout

Browse Source 
git-svn-id: trunk@34185 -
This commit is contained in:
sekelsenmat 2011-12-14 17:12:03 +00:00
parent 68737c98a0
commit 53aba472a1
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/forms.pp
View File

@ -1198,12 +1198,14 @@ type
Cur: TAsyncCallQueue; // currently processing
Next: TAsyncCallQueue; // new calls added to this queue
end;
// This identifies the kind of device where the application currently runs on
TApplicationType = (
atDefault,
atDesktop,
atPDA,
atKeyPadDevice
atDefault, // The widgetset will attempt to auto-detect the device type
atDesktop, // For common desktops and notebooks
atPDA, // For smartphones and other devices with touch screen and a small screen
atKeyPadDevice,// Devices without any pointing device, such as keypad feature phones or kiosk machines
atTablet // Similar to a PDA/Smartphone, but with a large screen
);
TApplicationShowGlyphs = (
@ -1218,6 +1220,15 @@ type
tbSingleButton // hide buttons for Forms with ShowTaskBar = stDefault
);
TLayoutAdjustmentPolicy = (
lapDefault, // widgetset dependent
lapFixedLayout, // A fixed absolute layout in all platforms
lapAutoAdjustWithoutHorizontalScrolling, // Smartphone platforms use this one,
// the x axis is stretched to fill the screen and
// the y is scaled to fit the DPI
lapAutoAdjustForDPI // For desktops using High DPI, scale x and y to fit the DPI
);
{ TApplication }
TApplication = class(TCustomApplication)
@ -1244,6 +1255,7 @@ type
FHintWindow: THintWindow;
FIcon: TIcon;
FBigIconHandle: HICON;
FLayoutAdjustmentPolicy: TLayoutAdjustmentPolicy;
FMainFormOnTaskBar: Boolean;
FModalLevel: Integer;
FOnGetMainFormHandle: TGetHandleEvent;
@ -1469,6 +1481,7 @@ type
property HintShortCuts: Boolean read FHintShortCuts write FHintShortCuts;
property HintShortPause: Integer read FHintShortPause write FHintShortPause;
property Icon: TIcon read FIcon write SetIcon;
property LayoutAdjustmentPolicy: TLayoutAdjustmentPolicy read FLayoutAdjustmentPolicy write FLayoutAdjustmentPolicy;
property Navigation: TApplicationNavigationOptions read FNavigation write SetNavigation;
property MainForm: TForm read FMainForm;
property MainFormHandle: HWND read GetMainFormHandle;