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

gtk3: setted up selection mode on TGtk3CheckListBox

Browse Source 
git-svn-id: trunk@42975 -
This commit is contained in:
zeljko 2013-09-27 08:51:28 +00:00
parent d31c6bc623
commit 5cffde6483
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -4990,6 +4990,10 @@ begin
PGtkScrolledWindow(Result)^.get_hscrollbar^.set_can_focus(False);
PGtkScrolledWindow(Result)^.set_policy(GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
FListBoxStyle := ACheckListBox.Style;
if ACheckListBox.MultiSelect then
PGtkTreeView(FCentralWidget)^.get_selection^.set_mode(GTK_SELECTION_MULTIPLE)
else
PGtkTreeView(FCentralWidget)^.get_selection^.set_mode(GTK_SELECTION_SINGLE);
// AListBox.Style;
if FListBoxStyle <> lbOwnerDrawVariable then
begin