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

wince: fixes the case when a form has no menu in atKeyPadDevice mode

Browse Source 
git-svn-id: trunk@26893 -
This commit is contained in:
sekelsenmat 2010-07-29 09:04:58 +00:00
parent c8c02dad27
commit 02fc6db99f
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,6 +89,7 @@ type
class procedure SetIcon(const AForm: TCustomForm; const Small, Big: HICON); override; class procedure SetIcon(const AForm: TCustomForm; const Small, Big: HICON); override;
class procedure SetShowInTaskbar(const AForm: TCustomForm; const AValue: TShowInTaskbar); override; class procedure SetShowInTaskbar(const AForm: TCustomForm; const AValue: TShowInTaskbar); override;
class procedure ShowModal(const ACustomForm: TCustomForm); override; class procedure ShowModal(const ACustomForm: TCustomForm); override;
class procedure ShowHide(const AWinControl: TWinControl); override;
end; end;
{ TWinCEWSForm } { TWinCEWSForm }
@ -126,7 +127,7 @@ type
implementation implementation
uses Winceint; uses Winceint, wincewsmenus;
{ TWinCEWSScrollBox } { TWinCEWSScrollBox }
@ -454,4 +455,20 @@ begin
BringWindowToTop(ACustomForm.Handle); BringWindowToTop(ACustomForm.Handle);
end; end;
class procedure TWinCEWSCustomForm.ShowHide(const AWinControl: TWinControl);
var
lForm: TCustomForm absolute AWinControl;
begin
TWinCEWSWinControl.ShowHide(AWinControl);
// In atPDA mode, if there is no menu installed, we need to remove
// the menu of the previously focused application, otherwise it will
// remain visible
if (Application.ApplicationType = atKeyPadDevice) and
(lForm.Menu = nil) then
begin
CeSetMenu(AWinControl.Handle, 0, nil);
end;
end;
end. end.