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

MG: fixed resetting comobobox text

Browse Source 
git-svn-id: trunk@781 -
This commit is contained in:
lazarus 2002-02-09 01:46:34 +00:00
parent e667655f3e
commit dbd0fcac48
1 changed files with 34 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1514,7 +1514,8 @@ begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
Result:= gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)) + 1; Result:= gtk_editable_get_position(PGtkEditable(
PGtkCombo(Handle)^.entry)) + 1;
csEdit: csEdit:
Result:= gtk_editable_get_position(PGtkEditable(Handle)) + 1; Result:= gtk_editable_get_position(PGtkEditable(Handle)) + 1;
end; end;
@ -1549,7 +1550,8 @@ begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
gtk_editable_set_position(PGtkEditable(PGtkCombo(Handle)^.entry), Integer(Data)); gtk_editable_set_position(PGtkEditable(PGtkCombo(Handle)^.entry),
Integer(Data));
csEdit: csEdit:
gtk_editable_set_position(PGtkEditable(Handle), Integer(Data)); gtk_editable_set_position(PGtkEditable(Handle), Integer(Data));
end; end;
@ -1564,8 +1566,10 @@ begin
begin begin
gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry), gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry),
gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)), gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)),
gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)) + Integer(Data)); gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry))
+ Integer(Data));
end; end;
csEdit: csEdit:
begin begin
gtk_editable_select_region(PGtkEditable(Handle), gtk_editable_select_region(PGtkEditable(Handle),
@ -1796,7 +1800,8 @@ begin
csComboBox: csComboBox:
begin begin
Text := StrPas(gtk_entry_get_text(PGtkEntry(PGtkCombo( Text := StrPas(gtk_entry_get_text(PGtkEntry(PGtkCombo(
TWinControl(Sender).Handle)^.entry))); TComboBox(Sender).Handle)^.entry)));
//writeln(' TGtkObject.GetText "',Text,'"');
end; end;
csEdit : csEdit :
@ -2033,7 +2038,10 @@ begin
SetNotebookPageTabLabel; SetNotebookPageTabLabel;
csComboBox : csComboBox :
begin
//writeln('SetLabel: ',PLabel);
SetComboBoxText(PGtkCombo(TComboBox(Sender).Handle), PLabel); SetComboBoxText(PGtkCombo(TComboBox(Sender).Handle), PLabel);
end;
else else
Assert(True, Format ('WARNING: [TgtkObject.SetLabel] --> not handled for class %s ', [Sender.ClassName])); Assert(True, Format ('WARNING: [TgtkObject.SetLabel] --> not handled for class %s ', [Sender.ClassName]));
@ -3307,6 +3315,7 @@ begin
gtk_entry_set_max_length(PGtkEntry(ComboWidget^.entry),ComboBox.MaxLength); gtk_entry_set_max_length(PGtkEntry(ComboWidget^.entry),ComboBox.MaxLength);
// Text // Text
writeln('CreateComboBox: ',ComboBox.Text);
SetComboBoxText(ComboWidget,PChar(ComboBox.Text)); SetComboBoxText(ComboWidget,PChar(ComboBox.Text));
end; end;
@ -5495,6 +5504,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.189 2002/08/31 07:58:21 lazarus
MG: fixed resetting comobobox text
Revision 1.188 2002/08/30 13:46:32 lazarus Revision 1.188 2002/08/30 13:46:32 lazarus
MG: added failure exit MG: added failure exit