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

added but not implemented ComboBoxDropDown

Browse Source 
git-svn-id: trunk@2225 -
This commit is contained in:
mattias 2002-08-17 23:41:08 +00:00
parent 796c579129
commit 36f75898ef
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2324,8 +2324,13 @@ begin
SetComboBoxItemIndex(TComboBox(Sender),Integer(Data));
csListBox :
gtk_list_select_item(PGtkList(GetWidgetInfo(Pointer(Handle),
True)^.ImplementationWidget), Integer(Data));
if Integer(Data)>=0 then
gtk_list_select_item(
PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget),
Integer(Data))
else
gtk_list_unselect_all(
PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget));
csCListBox:
gtk_clist_select_row(PGtkCList(GetWidgetInfo(Pointer(Handle),
@ -7214,6 +7219,9 @@ end;
{ =============================================================================
$Log$
Revision 1.352 2003/04/11 17:10:20 mattias
added but not implemented ComboBoxDropDown
Revision 1.351 2003/04/11 12:48:07 mattias
fixed gtk warning on setting item height