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

make DestroyHandle method protected again, use global RecreateWnd procedure

Browse Source 
git-svn-id: trunk@7023 -
This commit is contained in:
micha 2005-03-25 16:41:00 +00:00
parent ab2ceb0d19
commit 09233bbe50
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -1487,6 +1487,7 @@ type
procedure CreateHandle; virtual;
procedure CreateParams(var Params: TCreateParams); virtual;
procedure CreateWnd; virtual; //creates the window
procedure DestroyHandle; virtual;
procedure DestroyWnd; virtual;
procedure DoFlipChildren; dynamic;
procedure FixupTabList;
@ -1577,8 +1578,6 @@ type
constructor CreateParented(ParentWindow: HWnd);
class function CreateParentedControl(ParentWindow: HWnd): TWinControl;
destructor Destroy; override;
{ TODO: DestroyHandle needed by win32 intf }
procedure DestroyHandle; virtual;
procedure DockDrop(DockObject: TDragDockObject; X, Y: Integer); dynamic;
Function CanFocus: Boolean;
function GetControlIndex(AControl: TControl): integer;
@ -2891,6 +2890,9 @@ end.
{ =============================================================================
$Log$
Revision 1.290 2005/03/25 16:41:00 micha
make DestroyHandle method protected again, use global RecreateWnd procedure
Revision 1.289 2005/03/25 08:58:11 micha
implement ShowInTaskBar for win32 intf

3
lcl/interfaces/win32/win32wsforms.pp
View File

@ -327,8 +327,7 @@ begin
if (Application <> nil) and (AForm = Application.MainForm) then
exit;
AForm.DestroyHandle;
AForm.HandleNeeded;
RecreateWnd(AForm);
end;
procedure TWin32WSCustomForm.ShowModal(const ACustomForm: TCustomForm);