Changeset 234 for trunk/Forms/FormImportSources.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/FormImportSources.pas (modified) (3 diffs)

trunk/Forms/FormImportSources.pas

@@ -40 +40 @@
     ToolButton4: TToolButton;
     ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
     procedure AAddExecute(Sender: TObject);
     procedure ADisableExecute(Sender: TObject);
@@ -106 +108 @@
     Item.SubItems.Add(Format.Name);
     Item.Checked := Enabled;
+    if Enabled then Item.StateIndex := 24 else
+      Item.StateIndex := 23;
   end;
 end;
@@ -386 +390 @@
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  {$IFDEF LCLQt5}
+  ListView1.Checkboxes := False;
+  ListView1.StateImages := ActionList1.Images;
+  {$ENDIF}
 end;