paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: port win32 fix #13755 (have not tested though)

Browse Source 
git-svn-id: trunk@13776 -
This commit is contained in:
paul 2008-01-16 05:42:23 +00:00
parent 75ed1560dc
commit 04dc42a284
2 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/wince/winceproc.pp
View File

@ -1084,7 +1084,7 @@ begin
case Application.ApplicationType of
{ Under Desktop or Handheld mode we get an application which
looks similar to a desktop one, with sizable windows }
atDesktop,atHandheld:
atDesktop, atHandheld:
begin
case Style of
bsSizeable, bsSizeToolWin:
@ -1099,7 +1099,7 @@ begin
end;
{ Under PDA or Smartphone modes most windows are enlarged to fit the screen
Dialogs and borderless windows are exceptions }
atPDA,atSmartphone,atDefault:
atPDA, atSmartphone, atDefault:
begin
case Style of
bsDialog:

2
lcl/interfaces/wince/wincewsforms.pp
View File

@ -218,6 +218,8 @@ var
begin
BorderStyle := GetDesigningBorderStyle(AForm);
Flags := BorderStyleToWin32Flags(BorderStyle);
if AForm.Parent <> nil then
Flags := (Flags or WS_CHILD) and not WS_POPUP;
FlagsEx := BorderStyleToWin32FlagsEx(BorderStyle);
if (AForm.FormStyle in fsAllStayOnTop) then
FlagsEx := FlagsEx or WS_EX_TOPMOST;