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

LCL/SpeedButton: Fix autosizing of TSpeedButton. Issue #41119, based on patch by michalgw

Browse Source
This commit is contained in:
wp_xyz 2024-09-09 22:24:17 +02:00
parent 936c19caf3
commit d216b7144d
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/include/speedbutton.inc
View File

@ -262,6 +262,8 @@ begin
if FMargin <> Value then
begin
FMargin := Value;
InvalidatePreferredSize;
AdjustSize;
Invalidate;
end;
end;
@ -295,6 +297,8 @@ begin
if FSpacing <> Value then
begin
FSpacing := Value;
InvalidatePreferredSize;
AdjustSize;
Invalidate;
end;
end;
@ -569,6 +573,11 @@ var
begin
r:=Rect(0,0,0,0);
MeasureDraw(false,r,PreferredWidth,PreferredHeight);
if WithThemeSpace then
begin
inc(PreferredWidth, 6); // like TButton
inc(PreferredHeight, 6);
end;
end;
procedure TCustomSpeedButton.MeasureDraw(Draw: boolean;
@ -627,6 +636,15 @@ begin
InflateRect(TextRect,-Margin,-Margin);
if HasGlyph then
begin
{
if (Spacing >= 0) then S := Spacing else S := 0;
case CurLayout of
blGlyphLeft: inc(TextRect.Left, GlyphWidth + S);
blGlyphRight: dec(TextRect.Right, GlyphWidth + S);
blGlyphTop: inc(TextRect.Top, GlyphHeight + S);
blGlyphBottom: dec(TextRect.Bottom, GlyphHeight + S);
end;
}
if (Spacing>=0) then
if CurLayout in [blGlyphLeft,blGlyphRight] then
dec(TextRect.Right,Spacing)
@ -636,6 +654,7 @@ begin
dec(TextRect.Right,GlyphWidth)
else
dec(TextRect.Bottom,GlyphHeight);
end;
if not FixedWidth then
begin
@ -669,12 +688,14 @@ begin
else
S:= 0;
M:=Margin;
if not Draw then
begin
if M<0 then M:=2;
if S<0 then S:=M;
end;
// Calculate caption and glyph layout
if M < 0 then begin
// auto compute margin to center content
@ -688,7 +709,7 @@ begin
M:= (ClientSize.cy - TotalSize.cy) div 3;
S:= M;
end else begin
// fixed Spacing and center content
// fixed Spacing, center content
TotalSize.cx:= GlyphWidth + S + TextSize.cx;
TotalSize.cy:= GlyphHeight + S + TextSize.cy;
if Layout in [blGlyphLeft, blGlyphRight] then
@ -726,7 +747,8 @@ begin
if Spacing >= 0 then
OffsetCap.X := OffsetGlyph.X + GlyphWidth + S
else
OffsetCap.X := (OffsetGlyph.X + ClientSize.CX - TextSize.CX) div 2;
OffsetCap.X := (OffsetGlyph.X + GlyphWidth + ClientSize.CX - TextSize.CX) div 2;
//OffsetCap.X := (OffsetGlyph.X + ClientSize.CX - TextSize.CX) div 2;
end;
OffsetCap.Y:= (ClientSize.cy - TextSize.cy) div 2;
end;
@ -789,7 +811,7 @@ begin
TextRect.Right := PaintRect.Right;
end;
TextFlags := DT_TOP or cAlignment[BidiFlipAlignment(FAlignment, UseRightToLeftAlignment)];
TextFlags := DT_TOP or cAlignment[BidiFlipAlignment(FAlignment, UseRightToLeftAlignment)]; // or DT_NOCLIP;
if UseRightToLeftReading then
TextFlags := TextFlags or DT_RTLREADING;
@ -1036,7 +1058,8 @@ begin
if Value <> FLayout then
begin
FLayout:= Value;
Invalidate;
InvalidatePreferredSize;
AdjustSize;
end;
end;