Changeset 175

Timestamp:

Feb 26, 2018, 10:08:13 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Wrong theming of TCustomDrawGrid Editor.
• Fixed: Update Editor width in TListViewSort filter gridview.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Languages/AcronymDecoder.cs.po (modified) (1 diff)
• Packages/Common/UListViewSort.pas (modified) (2 diffs)
• Packages/Common/UTheme.pas (modified) (2 diffs)
• UCore.lfm (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -27 +27 @@
     TabOrder = 0
     object ListViewFilter1: TListViewFilter
-      Left = 10
+      Left = 4
       Height = 38
-      Top = 6
-      Width = 828
+      Top = 4
+      Width = 838
       OnChange = ListViewFilter1Change
       Anchors = [akTop, akLeft, akRight]
     end
     object ListViewAcronyms: TListView
-      Left = 10
-      Height = 427
-      Top = 44
-      Width = 829
+      Left = 4
+      Height = 432
+      Top = 42
+      Width = 838
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <      

trunk/Languages/AcronymDecoder.cs.po

@@ -922 +922 @@
 msgid "Process import sources"
 msgstr "Zpracovat zdroje importu"
+

trunk/Packages/Common/UListViewSort.pas

@@ -144 +144 @@
 begin
   with FStringGrid1 do begin
+    Options := Options - [goEditing, goAlwaysShowEditor];
     //Columns.Clear;
     while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
@@ -150 +151 @@
       Columns[I].Width := ListView.Columns[I].Width;
     end;
+    Options := Options + [goEditing, goAlwaysShowEditor];
   end;
 end;

trunk/Packages/Common/UTheme.pas

@@ -138 +138 @@
     Control := (Component as TControl);
     if (Control is TEdit) or (Control is TSpinEdit) or (Control is TComboBox) and
-    (Control is TMemo) or (Control is TListView) or (Control is TStringGrid) or
+    (Control is TMemo) or (Control is TListView) or (Control is TCustomDrawGrid) or
     (Control is TCheckBox) then begin
       Control.Color := FTheme.ColorWindow;
@@ -145 +145 @@
       Control.Color := FTheme.ColorControl;
       Control.Font.Color := FTheme.ColorControlText;
+    end;
+
+    if Control is TCustomDrawGrid then begin
+      (Control as TCustomDrawGrid).Editor.Color := FTheme.ColorWindow;
+      (Control as TCustomDrawGrid).Editor.Font.Color := FTheme.ColorWindowText;
     end;
   end;

trunk/UCore.lfm

@@ -3444 +3444 @@
     AppName = 'Acronym Decoder'
     Description = 'Simple tool for quick searching of meaning for various acronyms and abbreviations.'
-    ReleaseDate = 43046
+    ReleaseDate = 43157
     RegistryKey = '\Software\'
     RegistryRoot = rrKeyCurrentUser