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

Destroy menu handle, when destroying form handle.

Browse Source 
git-svn-id: trunk@6227 -
This commit is contained in:
vincents 2004-11-10 20:53:18 +00:00
parent d4214e5175
commit 3ec726878e
4 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -414,6 +414,7 @@ type
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure Deactivate;dynamic;
procedure DestroyWnd; override;
procedure DoClose(var CloseAction: TCloseAction); dynamic;
procedure DoHide; dynamic;
procedure DoShow; dynamic;

12
lcl/include/customform.inc
View File

@ -1532,6 +1532,15 @@ begin
//DebugLn('TCustomForm.CreateWnd END ',ClassName);
end;
procedure TCustomForm.DestroyWnd;
begin
if FMenu <> nil then
begin
FMenu.DestroyHandle;
end;
inherited DestroyWnd;
end;
procedure TCustomForm.Loaded;
var
Control: TWinControl;
@ -1824,6 +1833,9 @@ end;
{ =============================================================================
$Log$
Revision 1.164 2004/11/10 20:53:18 vincents
Destroy menu handle, when destroying form handle.
Revision 1.163 2004/11/10 18:23:56 mattias
impementing changing a TLabel.Font properties Size, Height, Name, Style - set only at Handle creation time

8
lcl/include/menu.inc
View File

@ -79,6 +79,11 @@ begin
Items[i].HandleNeeded;
end;
procedure TMenu.DestroyHandle;
begin
Items.DestroyHandle;
end;
procedure TMenu.DoChange(Source: TMenuItem; Rebuild: Boolean);
begin
if Assigned(FOnChange) then FOnChange(Self, Source, Rebuild);
@ -236,6 +241,9 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2004/11/10 20:53:18 vincents
Destroy menu handle, when destroying form handle.
Revision 1.25 2004/09/24 21:34:14 micha
convert LM_CREATE message to interface methods
remove SendMsgToInterface, CNSendMessage and related methods

4
lcl/menus.pp
View File

@ -269,6 +269,7 @@ type
FCompStyle: LongInt;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure DestroyHandle; virtual;
function FindItem(AValue: Integer; Kind: TFindItemKind) : TMenuItem;
function HandleAllocated: Boolean;
Function IsRightToLeft: Boolean;
@ -400,6 +401,9 @@ end.
{
$Log$
Revision 1.74 2004/11/10 20:53:18 vincents
Destroy menu handle, when destroying form handle.
Revision 1.73 2004/10/24 14:50:31 micha
fix menuitem caption issue (partly by martin smat)
remove ShortCutToText and TextToShortCut wrapper functions