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

Removes unnecessary routine from wince

Browse Source 
git-svn-id: trunk@25179 -
This commit is contained in:
sekelsenmat 2010-05-04 11:36:27 +00:00
parent f6ff46e0d1
commit d6636c9592
1 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -56,8 +56,6 @@ type
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean); override;
end;
{ TWinCEWSGroupBox }
@ -426,27 +424,10 @@ begin
// if TWinCEWidgetSet(WidgetSet).ThemesActive
// and not Params.WindowInfo^.hasTabParent then
// Params.WindowInfo^.isGroupBox := true;
AWinControl.InvalidateClientRectCache(true);
// AWinControl.InvalidateClientRectCache(true);
Result := Params.Window;
end;
class procedure TWinCEWSCustomGroupBox.AdaptBounds(const AWinControl: TWinControl;
var Left, Top, Width, Height: integer; var SuppressMove: boolean);
var
WinHandle, BuddyHandle: HWND;
begin
WinHandle := AWinControl.Handle;
// check if we have a ``container'', if so, move that
BuddyHandle := GetWindowInfo(WinHandle)^.ParentPanel;
if BuddyHandle <> 0 then
begin
MoveWindow(BuddyHandle, Left, Top, Width, Height, false);
Left := 0;
Top := 0;
end;
end;
{ TWinCEWSCustomListBox }
class function TWinCEWSCustomListBox.CreateHandle(const AWinControl: TWinControl;