paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-25 16:36:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: don't change selected state of TEdit or text become invisible on selection (by Daniel Simões de Almeida, bug #0013794)

Browse Source 
git-svn-id: trunk@20127 -
This commit is contained in:
paul 2009-05-22 15:29:53 +00:00
parent fac984e78f
commit c43a1a19c5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -1274,8 +1274,9 @@ var
begin begin
if not WSCheckHandleAllocated(AWinControl, 'SetColor') then Exit; if not WSCheckHandleAllocated(AWinControl, 'SetColor') then Exit;
AWidget := PGtkWidget(AWinControl.Handle); AWidget := PGtkWidget(AWinControl.Handle);
// don't change selected state
GtkWidgetSet.SetWidgetColor(AWidget, clNone, AWinControl.Color, GtkWidgetSet.SetWidgetColor(AWidget, clNone, AWinControl.Color,
[GTK_STATE_NORMAL, GTK_STATE_ACTIVE, GTK_STATE_PRELIGHT, GTK_STATE_SELECTED, GTK_STYLE_BASE]); [GTK_STATE_NORMAL, GTK_STATE_ACTIVE, GTK_STATE_PRELIGHT, GTK_STYLE_BASE]);
end; end;
{ TGtkWSCustomStaticText } { TGtkWSCustomStaticText }