paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 17:00:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improves TBitmappedButton

Browse Source 
git-svn-id: trunk@26793 -
This commit is contained in:
sekelsenmat 2010-07-23 15:49:55 +00:00
parent 296303b61b
commit 7b6e736a6c
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/customdrawn/customdrawncontrols.pas
View File

@ -159,6 +159,8 @@ procedure TCustomBitmappedButton.DoButtonDown();
var
NewState: TBitmappedButtonState;
begin
NewState := FState;
case FState of
bbsNormal, bbsFocused: NewState := bbsDown;
// bbsChecked, bbsCheckedSelected: NewState := bbsCheckedDown;
@ -175,6 +177,8 @@ procedure TCustomBitmappedButton.DoButtonUp();
var
NewState: TBitmappedButtonState;
begin
NewState := FState;
case FState of
bbsDown:
begin
@ -199,13 +203,15 @@ constructor TCustomBitmappedButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FOptions := [{bboDrawSelectionRectangle}];
FImageBtn := TPicture.Create;
FImageBtnDown := TPicture.Create;
FImageBtnMouseOver := TPicture.Create;
FImageBtnFocused := TPicture.Create;
FImageBtnChecked := TPicture.Create;
FOptions := [{bboDrawSelectionRectangle}];
TabStop := True;
end;
destructor TCustomBitmappedButton.Destroy;
@ -232,11 +238,12 @@ end;
function TCustomBitmappedButton.GetStateBitmap(): TBitmap;
begin
case FState of
bbsNormal: Result := FImageBtn.Bitmap;
bbsDown: Result := FImageBtnDown.Bitmap;
// bbsMouseOver: Result := FImageBtnMouseOver;
bbsFocused: Result := FImageBtnFocused.Bitmap;
// bbsChecked: Result := FImageBtnChecked;
else
Result := FImageBtn.Bitmap;
end;
end;