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

Fixed the problem with Changed for ComboBoxs

Browse Source 
Shane

git-svn-id: trunk@141 -
This commit is contained in:
lazarus 2001-01-28 03:51:42 +00:00
parent da5aa5f57d
commit d0a3aae6d1
3 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customcombobox.inc
View File

@ -52,9 +52,11 @@ end;
------------------------------------------------------------------------------}
procedure TCustomComboBox.AttachSignals;
begin
Writeln('[TCustomComboBox] AttachSignals');
inherited AttachSignals;
Assert(False, Format('Trace:[TCustomComboBox.AttachSignals] %s', [ClassName]));
SetCallback (LM_CHANGED);
Writeln('[TCustomComboBox] Exiting AttachSignals');
end;
{------------------------------------------------------------------------------
@ -132,6 +134,7 @@ end;
------------------------------------------------------------------------------}
procedure TCustomComboBox.DoChange(var Msg);
begin
Writeln('[TCustomComboBox] DoChange');
if Assigned(FOnChange) then FOnChange(Self);
end;
@ -321,6 +324,10 @@ end;
{
$Log$
Revision 1.4 2001/01/28 03:51:42 lazarus
Fixed the problem with Changed for ComboBoxs
Shane
Revision 1.3 2000/11/29 21:22:35 lazarus
New Object Inspector code
Shane

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

@ -76,7 +76,19 @@ var
begin
Result := True;
EventTrace('changed', data);
Mess.Msg := CM_TEXTCHANGED; // Changed on 01/04/2001 from LM_CHANGED to CM_TEXTCHANGED by Shane for TCustomEdit
Mess.Msg := LM_CHANGED;
Result := DeliverMessage(Data, Mess) = 0;
end;
function gtkchanged_editbox( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var
Mess : TLMessage;
begin
Result := True;
EventTrace('changed', data);
Mess.Msg := CM_TEXTCHANGED;
Result := DeliverMessage(Data, Mess) = 0;
end;
@ -1098,6 +1110,10 @@ end;
{ =============================================================================
$Log$
Revision 1.19 2001/01/28 03:51:42 lazarus
Fixed the problem with Changed for ComboBoxs
Shane
Revision 1.18 2001/01/24 23:26:40 lazarus
MWE:
= moved some types to gtkdef

6
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1213,7 +1213,7 @@ begin
else if sender is TCustomCombobox
then ConnectSignal (PGtkObject(PGtkCombo(gobject)^.entry), 'changed', @gtkchangedCB)
else
ConnectSignal(gObject, 'changed', @gtkchangedCB);
ConnectSignal(gObject, 'changed', @gtkchanged_editbox);
LM_CLICKED :
begin
@ -2587,6 +2587,10 @@ end;
{ =============================================================================
$Log$
Revision 1.22 2001/01/28 03:51:42 lazarus
Fixed the problem with Changed for ComboBoxs
Shane
Revision 1.21 2001/01/24 23:26:40 lazarus
MWE:
= moved some types to gtkdef