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

Gtk2: small optimization

Browse Source 
git-svn-id: trunk@39549 -
This commit is contained in:
zeljko 2012-12-15 12:11:06 +00:00
parent 7a137ce8d3
commit f2be37ded9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -988,7 +988,7 @@ begin
end else end else
begin begin
P := gtk_label_get_text(PGtkLabel(PGtkBin(BoxWidget)^.child)); P := gtk_label_get_text(PGtkLabel(PGtkBin(BoxWidget)^.child));
B := (StrPas(P) <> AText) or (StrPas(P) = ''); B := (StrPas(P) <> AText);
gtk_widget_show(PGtkBin(BoxWidget)^.child); gtk_widget_show(PGtkBin(BoxWidget)^.child);
gtk_button_set_label(PGtkButton(BoxWidget), PChar(Ampersands2Underscore(AText))); gtk_button_set_label(PGtkButton(BoxWidget), PChar(Ampersands2Underscore(AText)));
gtk_button_set_use_underline(PGtkButton(BoxWidget), True); gtk_button_set_use_underline(PGtkButton(BoxWidget), True);