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

lcl: TButtonPanel: pass CM_APPSHOWBTNGLYPHCHANGED to owned buttons

Browse Source 
git-svn-id: trunk@20533 -
This commit is contained in:
paul 2009-06-09 03:03:54 +00:00
parent 3d88da4119
commit 681610137f
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/buttonpanel.pas
View File

@ -20,7 +20,7 @@ interface
uses
Types, SysUtils, Classes, Controls, ExtCtrls, Buttons, Forms, GraphType,
Graphics, LCLStrConsts, Themes;
Graphics, LMessages, LCLStrConsts, Themes;
type
TButtonOrder = (boDefault, boCloseCancelOK, boCloseOKCancel);
@ -87,6 +87,7 @@ type
procedure Loaded; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure SetAlign(Value: TAlign); override;
procedure CMAppShowBtnGlyphChanged(var Message: TLMessage); message CM_APPSHOWBTNGLYPHCHANGED;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -332,6 +333,11 @@ begin
Realign;
end;
procedure TCustomButtonPanel.CMAppShowBtnGlyphChanged(var Message: TLMessage);
begin
NotifyControls(Message.msg);
end;
procedure TCustomButtonPanel.SetButtonOrder(Value: TButtonOrder);
begin
if FButtonOrder = Value then Exit;

2
lcl/forms.pp
View File

@ -1375,7 +1375,6 @@ type
FOnQueryEndSession : TQueryEndSessionEvent;
FOnMinimize : TNotifyEvent;
FOnRestore : TNotifyEvent;
procedure SetShowMenuGlyphs(const AValue: TApplicationShowGlyphs);
protected
procedure SetCaptureExceptions(const AValue : boolean);
procedure SetHelpFile(const AValue : string);
@ -1386,6 +1385,7 @@ type
procedure SetHintShortCuts(const AValue : Boolean);
procedure SetHintShortPause(const AValue : Integer);
procedure SetShowButtonGlyphs(const AValue: TApplicationShowGlyphs);
procedure SetShowMenuGlyphs(const AValue: TApplicationShowGlyphs);
procedure SetShowHint(const AValue : Boolean);
procedure SetShowMainForm(const AValue: Boolean);
procedure SetTitle(const AValue : String);