paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 19:56:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

Implemented gtk2 combobox.sorted property

Browse Source 
git-svn-id: trunk@11354 -
This commit is contained in:
andrew 2007-06-23 00:43:26 +00:00
parent 236bcd8d46
commit 0ea8ca69fb
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1140,8 +1140,14 @@ end;
class procedure TGtk2WSCustomComboBox.Sort(const ACustomComboBox: TCustomComboBox;
AList: TStrings; IsSorted: boolean);
var
ComboWidget: PGtkWidget;
Handle: HWND;
begin
// TODO
Handle := ACustomComboBox.Handle;
ComboWidget := GetWidgetInfo(Pointer(Handle), True)^.CoreWidget;
TGtkListStoreStringList(gtk_object_get_data(PGtkObject(ComboWidget),
GtkListItemLCLListTag)).Sorted := IsSorted;
end;
class procedure TGtk2WSCustomComboBox.SetColor(const AWinControl: TWinControl);