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

LCL: TCustomSpeedButton: do not store Glyph in lfm when Action provides the Glyph, issue #27357, from BBaz

Browse Source 
git-svn-id: trunk@47542 -
This commit is contained in:
mattias 2015-01-27 08:31:53 +00:00
parent c1e57c70af
commit bd1a801f5d
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/buttons.pp
View File

@ -271,6 +271,7 @@ type
FFlat: Boolean;
FMouseInControl: Boolean;
function GetGlyph: TBitmap;
function IsGlyphStored: Boolean;
procedure SetShowCaption(const AValue: boolean);
procedure UpdateExclusive;
function GetTransparent: Boolean;
@ -336,7 +337,7 @@ type
property Color default clBtnFace;
property Down: Boolean read FDown write SetDown default false;
property Flat: Boolean read FFlat write SetFlat default false;
property Glyph: TBitmap read GetGlyph write SetGlyph;
property Glyph: TBitmap read GetGlyph write SetGlyph stored IsGlyphStored;
property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
property Layout: TButtonLayout read FLayout write SetLayout default blGlyphLeft;
property Margin: integer read FMargin write SetMargin default -1;

14
lcl/include/speedbutton.inc
View File

@ -438,6 +438,20 @@ begin
Result := FGlyph.Glyph;
end;
function TCustomSpeedButton.IsGlyphStored: Boolean;
var
act: TCustomAction;
begin
result := true;
if Action <> nil then
begin
act := TCustomAction(Action);
if (act.ActionList <> nil) and (act.ActionList.Images <> nil) and
(act.ImageIndex >= 0) and (act.ImageIndex < act.ActionList.Images.Count) then
result := false;
end;
end;
procedure TCustomSpeedButton.SetShowCaption(const AValue: boolean);
begin
if FShowCaption=AValue then exit;