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

added ambigius compiled unit test for packages

Browse Source 
git-svn-id: trunk@2474 -
This commit is contained in:
mattias 2002-08-17 23:41:24 +00:00
parent 43b27d8180
commit 20e51e936c
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6036,6 +6036,21 @@ begin
Widget:= PGtkWidget(Handle);
case TControl(Sender).fCompStyle of
csComboBox:
case TCustomComboBox(Sender).Style of
csDropDownList :
begin
gtk_combo_set_value_in_list(PgtkCombo(Handle),-1, 0);
gtk_combo_set_use_arrows_always(PgtkCombo(Handle),-1);
gtk_combo_set_case_sensitive(PGtkCombo(Handle),0);
end;
else
begin
gtk_combo_set_value_in_list(PgtkCombo(Handle),0,0);
gtk_combo_set_use_arrows_always(PgtkCombo(Handle),0);
end;
end;
csEdit :
with TCustomEdit(Sender) do
begin
@ -7310,6 +7325,9 @@ end;
{ =============================================================================
$Log$
Revision 1.368 2003/06/07 09:34:21 mattias
added ambigius compiled unit test for packages
Revision 1.367 2003/06/03 10:29:22 mattias
implemented updates between source marks and breakpoints