mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: KASButton - incorrect enabled state

Browse source
This commit is contained in:
Alexander Koblov 2026-05-15 17:30:10 +03:00
commit d03fa06aee
1 changed files with 9 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

36
components/KASToolBar/kasbutton.pas
View file

@ -63,7 +63,6 @@ type
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
protected
procedure Click; override;
function GetGlyphSize: TSize;
procedure GlyphChanged(Sender: TObject);
procedure ImageListChange(Sender: TObject);
@ -261,22 +260,16 @@ procedure TKASButton.MouseEnter;
begin
inherited MouseEnter;
FMouseInControl:= True;
if IsEnabled then
begin
FState:= bsHot;
Invalidate;
end;
FState:= bsHot;
Invalidate;
end;
procedure TKASButton.MouseLeave;
begin
inherited MouseLeave;
FMouseInControl:= False;
if IsEnabled then
begin
FState:= bsUp;
Invalidate;
end;
FState:= bsUp;
Invalidate;
end;
procedure TKASButton.KeyUp(var Key: Word; Shift: TShiftState);
@ -304,27 +297,16 @@ procedure TKASButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
inherited MouseUp(Button, Shift, X, Y);
if IsEnabled then
begin
FState:= bsUp;
Invalidate;
end;
FState:= bsUp;
Invalidate;
end;
procedure TKASButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
inherited MouseDown(Button, Shift, X, Y);
if IsEnabled then
begin
FState:= bsDown;
Invalidate;
end;
end;
procedure TKASButton.Click;
begin
if IsEnabled then inherited Click;
FState:= bsDown;
Invalidate;
end;
function TKASButton.GetGlyphSize: TSize;
@ -386,7 +368,7 @@ begin
else begin
FState:= bsDisabled;
end;
Invalidate;
inherited CMEnabledChanged(Message);
end;
procedure TKASButton.CalculatePreferredSize(var PreferredWidth,