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

formatting, cleanup

Browse Source 
git-svn-id: trunk@16799 -
This commit is contained in:
paul 2008-09-30 01:46:39 +00:00
parent c09aeccc7c
commit 11fd229957
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/buttons.pp
View File

@ -43,8 +43,6 @@ uses
Themes, Menus{for ShortCut procedures}, LResources, ImageListCache;
type
{ TButton }
TButtonLayout =
(
blGlyphLeft,
@ -52,6 +50,7 @@ type
blGlyphTop,
blGlyphBottom
);
TButtonState =
(
bsUp, // button is up

12
lcl/include/speedbutton.inc
View File

@ -316,7 +316,7 @@ begin
//if InvalidateOnChange then DebugLn(['TCustomSpeedButton.UpdateState ',DbgSName(Self),' InvalidateOnChange=',InvalidateOnChange,' StateChange=',FState<>OldState]);
if InvalidateOnChange and
(
(FState<>OldState) or
(FState <> OldState) or
not ThemedElementDetailsEqual(FLastDrawDetails, GetDrawDetails)
)
then
@ -357,7 +357,7 @@ function TCustomSpeedButton.GetDrawDetails: TThemedElementDetails;
begin
if Down then
begin // checked states
if fMouseInControl then
if FMouseInControl then
Result := ttbButtonCheckedHot
else
Result := ttbButtonChecked
@ -471,16 +471,16 @@ end;
function TCustomSpeedButton.DialogChar(var Message: TLMKey): boolean;
begin
Result := false;
Result := False;
Assert(Message.Msg = LM_SYSCHAR, '*** Warning: non LM_SYSCHAR passed to TCustomSpeedButton.DialogChar ! ***');
if not FShowAccelChar then exit;
if not FShowAccelChar then Exit;
if IsAccel(Message.CharCode, Caption) then
begin
Result := true;
Self.Click;
Result := True;
Click;
end else
Result := inherited DialogChar(Message);
end;