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

Gtk2: fixed font color changing on TCheckBox when caption is empty. issue #23373

Browse Source 
git-svn-id: trunk@39371 -
This commit is contained in:
zeljko 2012-11-25 12:16:27 +00:00
parent f1869b2f37
commit a1a464b0e2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -964,7 +964,6 @@ begin
Widget := {%H-}PGtkWidget(AWinControl.Handle);
LblWidget := (pGtkBin(Widget)^.Child);
if LblWidget <> nil then
begin
Gtk2WidgetSet.SetWidgetFont(LblWidget, AFont);
@ -977,6 +976,7 @@ class procedure TGtk2WSCustomCheckBox.SetText(const AWinControl: TWinControl;
const AText: String);
var
BoxWidget: PGtkWidget;
B: Boolean;
begin
if not WSCheckHandleAllocated(AWincontrol, 'SetText') then Exit;
BoxWidget := {%H-}PGtkWidget(AWinControl.Handle);
@ -986,9 +986,15 @@ begin
gtk_widget_hide(PGtkBin(BoxWidget)^.child);
end else
begin
B := gtk_label_get_text(PGtkLabel(PGtkBin(BoxWidget)^.child)) = '';
gtk_widget_show(PGtkBin(BoxWidget)^.child);
gtk_button_set_label(PGtkButton(BoxWidget), PChar(Ampersands2Underscore(AText)));
gtk_button_set_use_underline(PGtkButton(BoxWidget), True);
if B then
begin
SetColor(AWinControl);
SetFont(AWinControl, AWinControl.Font);
end;
end;
end;