Changeset 234 for trunk/Forms/FormCategories.pas

Timestamp:

Jan 25, 2025, 10:36:28 PM (7 days ago)

Author:

chronos

Message:

• Fixed: Workaround to show checkboxes on Qt5 in import sources and acronym categories.

File:

• trunk/Forms/FormCategories.pas (modified) (3 diffs)

trunk/Forms/FormCategories.pas

@@ -33 +33 @@
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure ADisableExecute(Sender: TObject);
@@ -178 +180 @@
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  {$IFDEF LCLQt5}
+  ListViewCategories.Checkboxes := False;
+  ListViewCategories.StateImages := ActionList1.Images;
+  {$ENDIF}
 end;
 
@@ -189 +195 @@
     Item.SubItems.Add(IntToStr(GetImportSourcesCount));
     Item.Checked := Enabled;
+    if Enabled then Item.StateIndex := 24 else
+      Item.StateIndex := 23;
   end;
 end;