paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-15 00:28:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed TComboBox and InvalidateControl

Browse Source 
git-svn-id: trunk@1972 -
This commit is contained in:
lazarus 2002-08-17 23:40:27 +00:00
parent debbbef933
commit d76072b95e
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -246,9 +246,25 @@ end;
function gtkchangedCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl; function gtkchangedCB( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var var
Mess : TLMessage; Mess : TLMessage;
OldText: PChar;
NewText: string;
begin begin
Result := True; Result := True;
EventTrace('changed', data); EventTrace('changed', data);
if TObject(Data) is TControl then begin
case TControl(Data).fCompStyle of
csComboBox:
begin
OldText:=gtk_object_get_data(PGtkObject(TComboBox(Data).Handle),'LCLOldText');
NewText:=TComboBox(Data).Text;
if ComparePChar(OldText,PChar(NewText)) then begin
exit;
end;
SetComboBoxText(PGtkCombo(TComboBox(Data).Handle),PChar(NewText));
end;
end;
end;
Mess.Msg := LM_CHANGED; Mess.Msg := LM_CHANGED;
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
@ -2252,6 +2268,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.115 2002/08/29 00:07:02 lazarus
MG: fixed TComboBox and InvalidateControl
Revision 1.114 2002/08/28 09:40:49 lazarus Revision 1.114 2002/08/28 09:40:49 lazarus
MG: reduced paint messages and DC getting/releasing MG: reduced paint messages and DC getting/releasing