Changeset 174


Ignore:
Timestamp:
Feb 14, 2018, 10:39:55 AM (6 years ago)
Author:
chronos
Message:
  • Added: Basic color theming support. Colors can be changed only for some controls.
Location:
trunk
Files:
1 added
30 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAbout.pas

    r169 r174  
    6969begin
    7070  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     71  Core.ThemeManager.UseTheme(Self);
    7172end;
    7273

  • trunk/Forms/UFormAcronym.pas

    r96 r174  
    6969begin
    7070  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     71  Core.ThemeManager.UseTheme(Self);
    7172end;
    7273

  • trunk/Forms/UFormAcronyms.lfm

    r146 r174  
    77  ClientHeight = 558
    88  ClientWidth = 740
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  Position = poScreenCenter
    13   LCLVersion = '1.6.2.0'
     14  LCLVersion = '1.8.0.6'
    1415  object ListViewAcronyms: TListView
    1516    Left = 4
    … …  
    143144    object MenuItem4: TMenuItem
    144145      Action = AAdd
    145       Bitmap.Data = {
    146         36040000424D3604000000000000360000002800000010000000100000000100
    147         2000000000000004000064000000640000000000000000000000000000000000
    148         0000000000000000000000000000000000000000000000000000000000000000
    149         0000000000000000000000000000000000000000000000000000000000000000
    150         000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
    151         D4FF000000000000000000000000000000000000000000000000000000000000
    152         0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
    153         B2FF000000000000000000000000000000000000000000000000000000000000
    154         0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
    155         B2FF000000000000000000000000000000000000000000000000000000000000
    156         0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
    157         B2FF000000000000000000000000000000000000000000000000000000000000
    158         0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
    159         B2FF00000000000000000000000000000000000000000000000000000000D4D4
    160         D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
    161         B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
    162         00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
    163         00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
    164         8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
    165         00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
    166         ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
    167         00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
    168         00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
    169         00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
    170         0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
    171         B2FF000000000000000000000000000000000000000000000000000000000000
    172         0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
    173         B2FF000000000000000000000000000000000000000000000000000000000000
    174         0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
    175         B2FF000000000000000000000000000000000000000000000000000000000000
    176         0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
    177         D4FF000000000000000000000000000000000000000000000000000000000000
    178         000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
    179         0000000000000000000000000000000000000000000000000000
    180       }
    181146    end
    182147    object MenuItem5: TMenuItem
    183148      Action = AModify
    184       Bitmap.Data = {
    185         36040000424D3604000000000000360000002800000010000000100000000100
    186         2000000000000004000064000000640000000000000000000000986B37FF976A
    187         36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
    188         2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
    189         F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
    190         F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
    191         F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
    192         F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
    193         F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
    194         70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
    195         F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
    196         F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
    197         F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
    198         F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
    199         FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
    200         F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
    201         FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
    202         71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
    203         FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
    204         F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
    205         FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
    206         F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
    207         FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
    208         F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
    209         FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
    210         72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
    211         FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
    212         F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
    213         FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
    214         FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
    215         7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
    216         79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
    217         48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
    218         40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
    219       }
    220149    end
    221150    object MenuItem6: TMenuItem
    222151      Action = ARemove
    223       Bitmap.Data = {
    224         36040000424D3604000000000000360000002800000010000000100000000100
    225         2000000000000004000064000000640000000000000000000000000000000000
    226         0000000000000000000000000000000000000000000000000000000000000000
    227         0000000000000000000000000000000000000000000000000000000000000000
    228         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    229         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    230         00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000
    231         00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    232         BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979
    233         A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000
    234         72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000
    235         59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C
    236         BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023
    237         FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000
    238         00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027
    239         FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000
    240         0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B
    241         FFFF000061FF7979A8FF00000000000000000000000000000000000000000000
    242         000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000
    243         68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000
    244         0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035
    245         FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000
    246         00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A
    247         FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    248         BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B
    249         FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000
    250         88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000
    251         75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C
    252         BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C
    253         BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000
    254         00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000
    255         00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000
    256         0000000000000000000000000000000000000000000000000000000000000000
    257         0000000000000000000000000000000000000000000000000000
    258       }
    259152    end
    260153    object MenuItem7: TMenuItem

  • trunk/Forms/UFormAcronyms.pas

    r148 r174  
    256256  MeaningCount := 0;
    257257  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     258  Core.ThemeManager.UseTheme(Self);
    258259  for I := 0 to ToolBar1.ButtonCount - 1 do
    259260    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormCategories.lfm

    r145 r174  
    77  ClientHeight = 429
    88  ClientWidth = 784
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  Position = poScreenCenter
    13   LCLVersion = '1.6.2.0'
     14  LCLVersion = '1.8.0.6'
    1415  object ListViewCategories: TListView
    1516    Left = 4
    … …  
    111112    object MenuItem1: TMenuItem
    112113      Action = AAdd
    113       Bitmap.Data = {
    114         36040000424D3604000000000000360000002800000010000000100000000100
    115         2000000000000004000064000000640000000000000000000000000000000000
    116         0000000000000000000000000000000000000000000000000000000000000000
    117         0000000000000000000000000000000000000000000000000000000000000000
    118         000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
    119         D4FF000000000000000000000000000000000000000000000000000000000000
    120         0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
    121         B2FF000000000000000000000000000000000000000000000000000000000000
    122         0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
    123         B2FF000000000000000000000000000000000000000000000000000000000000
    124         0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
    125         B2FF000000000000000000000000000000000000000000000000000000000000
    126         0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
    127         B2FF00000000000000000000000000000000000000000000000000000000D4D4
    128         D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
    129         B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
    130         00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
    131         00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
    132         8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
    133         00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
    134         ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
    135         00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
    136         00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
    137         00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
    138         0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
    139         B2FF000000000000000000000000000000000000000000000000000000000000
    140         0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
    141         B2FF000000000000000000000000000000000000000000000000000000000000
    142         0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
    143         B2FF000000000000000000000000000000000000000000000000000000000000
    144         0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
    145         D4FF000000000000000000000000000000000000000000000000000000000000
    146         000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
    147         0000000000000000000000000000000000000000000000000000
    148       }
    149114    end
    150115    object MenuItem2: TMenuItem
    151116      Action = AModify
    152       Bitmap.Data = {
    153         36040000424D3604000000000000360000002800000010000000100000000100
    154         2000000000000004000064000000640000000000000000000000986B37FF976A
    155         36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
    156         2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
    157         F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
    158         F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
    159         F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
    160         F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
    161         F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
    162         70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
    163         F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
    164         F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
    165         F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
    166         F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
    167         FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
    168         F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
    169         FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
    170         71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
    171         FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
    172         F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
    173         FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
    174         F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
    175         FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
    176         F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
    177         FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
    178         72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
    179         FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
    180         F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
    181         FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
    182         FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
    183         7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
    184         79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
    185         48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
    186         40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
    187       }
    188117    end
    189118    object MenuItem3: TMenuItem
    190119      Action = ARemove
    191       Bitmap.Data = {
    192         36040000424D3604000000000000360000002800000010000000100000000100
    193         2000000000000004000064000000640000000000000000000000000000000000
    194         0000000000000000000000000000000000000000000000000000000000000000
    195         0000000000000000000000000000000000000000000000000000000000000000
    196         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    197         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    198         00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000
    199         00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    200         BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979
    201         A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000
    202         72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000
    203         59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C
    204         BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023
    205         FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000
    206         00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027
    207         FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000
    208         0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B
    209         FFFF000061FF7979A8FF00000000000000000000000000000000000000000000
    210         000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000
    211         68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000
    212         0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035
    213         FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000
    214         00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A
    215         FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    216         BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B
    217         FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000
    218         88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000
    219         75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C
    220         BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C
    221         BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000
    222         00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000
    223         00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000
    224         0000000000000000000000000000000000000000000000000000000000000000
    225         0000000000000000000000000000000000000000000000000000
    226       }
    227120    end
    228121    object MenuItem4: TMenuItem

  • trunk/Forms/UFormCategories.pas

    r148 r174  
    188188begin
    189189  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     190  Core.ThemeManager.UseTheme(Self);
    190191  for I := 0 to ToolBar1.ButtonCount - 1 do
    191192    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormCategorySelect.lfm

    r104 r174  
    77  ClientHeight = 584
    88  ClientWidth = 791
     9  DesignTimePPI = 120
    910  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    12   LCLVersion = '1.6.0.4'
     13  LCLVersion = '1.8.0.6'
    1314  object ListBox1: TListBox
    1415    Left = 16

  • trunk/Forms/UFormCategorySelect.pas

    r96 r174  
    5151begin
    5252  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     53  Core.ThemeManager.UseTheme(Self);
    5354end;
    5455

  • trunk/Forms/UFormExport.lfm

    r96 r174  
    77  ClientHeight = 654
    88  ClientWidth = 850
     9  DesignTimePPI = 120
    910  OnCreate = FormCreate
    1011  Position = poScreenCenter
    11   LCLVersion = '1.6.0.4'
     12  LCLVersion = '1.8.0.6'
    1213  object ButtonProcess: TButton
    1314    Left = 18

  • trunk/Forms/UFormExport.pas

    r102 r174  
    6161begin
    6262  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     63  Core.ThemeManager.UseTheme(Self);
    6364end;
    6465

  • trunk/Forms/UFormImport.lfm

    r96 r174  
    77  ClientHeight = 507
    88  ClientWidth = 652
     9  DesignTimePPI = 120
    910  OnCreate = FormCreate
    1011  Position = poScreenCenter
    11   LCLVersion = '1.6.0.4'
     12  LCLVersion = '1.8.0.6'
    1213  object ButtonProcess: TButton
    1314    Left = 16

  • trunk/Forms/UFormImport.pas

    r98 r174  
    6363begin
    6464  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     65  Core.ThemeManager.UseTheme(Self);
    6566end;
    6667

  • trunk/Forms/UFormImportFormat.lfm

    r123 r174  
    77  ClientHeight = 439
    88  ClientWidth = 629
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  Position = poScreenCenter
    13   LCLVersion = '1.6.0.4'
     14  LCLVersion = '1.8.0.6'
    1415  object ButtonOk: TButton
    1516    Left = 525
    … …  
    3435  object Label1: TLabel
    3536    Left = 20
    36     Height = 24
     37    Height = 20
    3738    Top = 53
    38     Width = 56
     39    Width = 43
    3940    Caption = 'Name:'
    4041    ParentColor = False
    … …  
    4243  object EditName: TEdit
    4344    Left = 179
    44     Height = 34
     45    Height = 28
    4546    Top = 48
    4647    Width = 426
    … …  
    5051  object Label8: TLabel
    5152    Left = 20
    52     Height = 24
     53    Height = 20
    5354    Top = 90
    54     Width = 97
     55    Width = 72
    5556    Caption = 'Block start:'
    5657    ParentColor = False
    … …  
    5859  object EditBlockStart: TEdit
    5960    Left = 179
    60     Height = 34
     61    Height = 28
    6162    Top = 85
    6263    Width = 426
    … …  
    6667  object Label9: TLabel
    6768    Left = 20
    68     Height = 24
     69    Height = 20
    6970    Top = 130
    70     Width = 89
     71    Width = 68
    7172    Caption = 'Block end:'
    7273    ParentColor = False
    … …  
    7475  object EditBlockEnd: TEdit
    7576    Left = 179
    76     Height = 34
     77    Height = 28
    7778    Top = 125
    7879    Width = 426
    … …  
    118119  object Label2: TLabel
    119120    Left = 20
    120     Height = 24
     121    Height = 20
    121122    Top = 157
    122     Width = 92
     123    Width = 68
    123124    Caption = 'Item rules:'
    124125    ParentColor = False
    … …  
    126127  object Label3: TLabel
    127128    Left = 20
    128     Height = 24
     129    Height = 20
    129130    Top = 13
    130     Width = 45
     131    Width = 35
    131132    Caption = 'Type:'
    132133    ParentColor = False
    … …  
    134135  object ComboBoxType: TComboBox
    135136    Left = 179
    136     Height = 38
     137    Height = 28
    137138    Top = 13
    138139    Width = 197
    139     ItemHeight = 0
     140    ItemHeight = 20
    140141    Items.Strings = (
    141142      'Text parse HTTP'

  • trunk/Forms/UFormImportFormat.pas

    r123 r174  
    161161begin
    162162  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     163  Core.ThemeManager.UseTheme(Self);
    163164  YesNoString[False] := SNo;
    164165  YesNoString[True] := SYes;

  • trunk/Forms/UFormImportFormats.pas

    r123 r174  
    190190begin
    191191  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     192  Core.ThemeManager.UseTheme(Self);
    192193  for I := 0 to ToolBar1.ButtonCount - 1 do
    193194    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormImportPattern.lfm

    r69 r174  
    77  ClientHeight = 431
    88  ClientWidth = 662
     9  DesignTimePPI = 120
    910  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    12   LCLVersion = '1.6.0.4'
     13  LCLVersion = '1.8.0.6'
    1314  object Label8: TLabel
    1415    Left = 24

  • trunk/Forms/UFormImportPattern.pas

    r96 r174  
    5454begin
    5555  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     56  Core.ThemeManager.UseTheme(Self);
    5657  InitControls;
    5758end;

  • trunk/Forms/UFormImportSource.lfm

    r123 r174  
    77  ClientHeight = 459
    88  ClientWidth = 620
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  Position = poScreenCenter
    13   LCLVersion = '1.6.0.4'
     14  LCLVersion = '1.8.0.6'
    1415  object EditName: TEdit
    1516    Left = 135
    16     Height = 34
     17    Height = 28
    1718    Top = 10
    1819    Width = 471
    … …  
    2223  object Label1: TLabel
    2324    Left = 10
    24     Height = 24
     25    Height = 20
    2526    Top = 9
    26     Width = 56
     27    Width = 43
    2728    Caption = 'Name:'
    2829    ParentColor = False
    … …  
    3031  object Label2: TLabel
    3132    Left = 10
    32     Height = 24
     33    Height = 20
    3334    Top = 49
    34     Width = 101
     35    Width = 78
    3536    Caption = 'Source URL:'
    3637    ParentColor = False
    … …  
    3839  object EditURL: TEdit
    3940    Left = 136
    40     Height = 34
     41    Height = 28
    4142    Top = 49
    4243    Width = 350
    … …  
    6667  object Label3: TLabel
    6768    Left = 10
    68     Height = 24
     69    Height = 20
    6970    Top = 96
    70     Width = 108
     71    Width = 84
    7172    Caption = 'Data format:'
    7273    ParentColor = False
    … …  
    7475  object ComboBox1: TComboBox
    7576    Left = 135
    76     Height = 38
     77    Height = 28
    7778    Top = 91
    7879    Width = 350
    7980    Anchors = [akTop, akLeft, akRight]
    80     ItemHeight = 0
     81    ItemHeight = 20
    8182    Style = csDropDownList
    8283    TabOrder = 2
    … …  
    9495  object CheckBoxEnabled: TCheckBox
    9596    Left = 10
    96     Height = 28
     97    Height = 24
    9798    Top = 128
    98     Width = 92
     99    Width = 78
    99100    Caption = 'Enabled'
    100101    TabOrder = 4
    … …  
    102103  object Label4: TLabel
    103104    Left = 10
    104     Height = 24
     105    Height = 20
    105106    Top = 160
    106     Width = 96
     107    Width = 74
    107108    Caption = 'Categories:'
    108109    ParentColor = False
    … …  
    119120    ScrollWidth = 469
    120121    TabOrder = 5
    121     TopIndex = -1
    122122  end
    123123  object Button1: TButton
    … …  
    146146  object Label5: TLabel
    147147    Left = 10
    148     Height = 24
     148    Height = 20
    149149    Top = 352
    150     Width = 97
     150    Width = 73
    151151    Caption = 'User name:'
    152152    ParentColor = False
    … …  
    154154  object Label6: TLabel
    155155    Left = 305
    156     Height = 24
     156    Height = 20
    157157    Top = 351
    158     Width = 87
     158    Width = 65
    159159    Caption = 'Password:'
    160160    ParentColor = False
    … …  
    162162  object EditUserName: TEdit
    163163    Left = 136
    164     Height = 34
     164    Height = 28
    165165    Top = 351
    166166    Width = 153
    … …  
    169169  object EditPassword: TEdit
    170170    Left = 436
    171     Height = 34
     171    Height = 28
    172172    Top = 351
    173173    Width = 153

  • trunk/Forms/UFormImportSource.pas

    r123 r174  
    9999begin
    100100  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     101  Core.ThemeManager.UseTheme(Self);
    101102end;
    102103

  • trunk/Forms/UFormImportSources.lfm

    r145 r174  
    77  ClientHeight = 414
    88  ClientWidth = 812
     9  DesignTimePPI = 120
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    1213  Position = poScreenCenter
    13   LCLVersion = '1.6.2.0'
     14  LCLVersion = '1.8.0.6'
    1415  object ToolBar1: TToolBar
    1516    Left = 0
    … …  
    142143    object MenuItem1: TMenuItem
    143144      Action = AAdd
    144       Bitmap.Data = {
    145         36040000424D3604000000000000360000002800000010000000100000000100
    146         2000000000000004000064000000640000000000000000000000000000000000
    147         0000000000000000000000000000000000000000000000000000000000000000
    148         0000000000000000000000000000000000000000000000000000000000000000
    149         000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
    150         D4FF000000000000000000000000000000000000000000000000000000000000
    151         0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
    152         B2FF000000000000000000000000000000000000000000000000000000000000
    153         0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
    154         B2FF000000000000000000000000000000000000000000000000000000000000
    155         0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
    156         B2FF000000000000000000000000000000000000000000000000000000000000
    157         0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
    158         B2FF00000000000000000000000000000000000000000000000000000000D4D4
    159         D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
    160         B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
    161         00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
    162         00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
    163         8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
    164         00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
    165         ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
    166         00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
    167         00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
    168         00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
    169         0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
    170         B2FF000000000000000000000000000000000000000000000000000000000000
    171         0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
    172         B2FF000000000000000000000000000000000000000000000000000000000000
    173         0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
    174         B2FF000000000000000000000000000000000000000000000000000000000000
    175         0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
    176         D4FF000000000000000000000000000000000000000000000000000000000000
    177         000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
    178         0000000000000000000000000000000000000000000000000000
    179       }
    180145    end
    181146    object MenuItem2: TMenuItem
    182147      Action = AModify
    183       Bitmap.Data = {
    184         36040000424D3604000000000000360000002800000010000000100000000100
    185         2000000000000004000064000000640000000000000000000000986B37FF976A
    186         36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
    187         2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
    188         F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
    189         F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
    190         F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
    191         F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
    192         F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
    193         70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
    194         F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
    195         F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
    196         F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
    197         F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
    198         FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
    199         F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
    200         FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
    201         71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
    202         FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
    203         F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
    204         FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
    205         F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
    206         FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
    207         F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
    208         FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
    209         72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
    210         FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
    211         F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
    212         FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
    213         FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
    214         7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
    215         79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
    216         48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
    217         40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
    218       }
    219148    end
    220149    object MenuItem3: TMenuItem
    221150      Action = ARemove
    222       Bitmap.Data = {
    223         36040000424D3604000000000000360000002800000010000000100000000100
    224         2000000000000004000064000000640000000000000000000000000000000000
    225         0000000000000000000000000000000000000000000000000000000000000000
    226         0000000000000000000000000000000000000000000000000000000000000000
    227         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    228         000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000
    229         00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000
    230         00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    231         BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979
    232         A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000
    233         72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000
    234         59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C
    235         BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023
    236         FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000
    237         00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027
    238         FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000
    239         0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B
    240         FFFF000061FF7979A8FF00000000000000000000000000000000000000000000
    241         000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000
    242         68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000
    243         0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035
    244         FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000
    245         00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A
    246         FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C
    247         BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B
    248         FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000
    249         88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000
    250         75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C
    251         BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C
    252         BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000
    253         00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000
    254         00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000
    255         0000000000000000000000000000000000000000000000000000000000000000
    256         0000000000000000000000000000000000000000000000000000
    257       }
    258151    end
    259152    object MenuItem4: TMenuItem
    260153      Action = AProcess
    261       Bitmap.Data = {
    262         36040000424D3604000000000000360000002800000010000000100000000100
    263         2000000000000004000064000000640000000000000000000000000000000000
    264         0000000000000000000000000000000000000000000000000000000000000000
    265         0000000000000000000000000000000000000000000000000000000000000000
    266         000000000000303030FF303030FF303030FF303030FF00000000000000000000
    267         0000000000000000000000000000000000000000000000000000000000000000
    268         0000000000000000000000000000303030FF303030FF00000000000000000000
    269         0000000000000000000000000000303030FF0000000000000000000000000000
    270         0000000000000000000000000000303030FF303030FF00000000000000000000
    271         0000000000000000000000000000303030FF0000000000000000000000000000
    272         0000000000000000000000000000303030FF303030FF00000000000000003030
    273         30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
    274         0000000000000000000000000000303030FF303030FF303030FF303030FF3030
    275         30FF303030FF303030FF303030FF303030FF0000000000000000000000000000
    276         000000000000000000000000000000000000303030FF303030FF303030FF3030
    277         30FF000000000000000000000000000000000000000000000000000000000000
    278         00000000000000000000000000000000000000000000303030FF303030FF0000
    279         0000000000000000000000000000000000000000000000000000000000000000
    280         00000000000000000000303030FF0000000000000000303030FF303030FF0000
    281         000000000000303030FF00000000000000000000000000000000000000000000
    282         000000000000303030FF303030FF303030FF303030FF303030FF303030FF0000
    283         000000000000303030FF00000000000000000000000000000000000000000000
    284         0000303030FF303030FF00000000303030FF303030FF303030FF303030FF0000
    285         000000000000303030FF00000000000000000000000000000000000000000000
    286         0000303030FF00000000000000000000000000000000303030FF303030FF3030
    287         30FF303030FF303030FF00000000000000000000000000000000000000000000
    288         000000000000000000000000000000000000303030FF303030FF000000000000
    289         0000000000000000000000000000000000000000000000000000000000000000
    290         0000000000000000000000000000303030FF303030FF303030FF303030FF0000
    291         0000000000000000000000000000000000000000000000000000000000000000
    292         0000000000000000000000000000303030FF303030FF303030FF303030FF0000
    293         0000000000000000000000000000000000000000000000000000000000000000
    294         000000000000000000000000000000000000303030FF303030FF000000000000
    295         0000000000000000000000000000000000000000000000000000
    296       }
    297154    end
    298155    object MenuItem7: TMenuItem

  • trunk/Forms/UFormImportSources.pas

    r145 r174  
    356356begin
    357357  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     358  Core.ThemeManager.UseTheme(Self);
    358359  for I := 0 to ToolBar1.ButtonCount - 1 do
    359360    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;

  • trunk/Forms/UFormMain.pas

    r173 r174  
    394394    FormSettings.Load;
    395395    if FormSettings.ShowModal = mrOk then begin
    396     FormSettings.Save;
     396      FormSettings.Save;
    397397      Core.SaveConfig;
     398      Core.ThemeManager.UseTheme(Self);
    398399    end;
    399400  finally
    … …  
    479480  if Visible then begin
    480481    Core.PersistentForm1.Load(Self);
     482    Core.ThemeManager.UseTheme(Self);
    481483    UpdateInterface;
    482484    ListViewFilter1.StringGrid.Col := 1;

  • trunk/Forms/UFormSettings.lfm

    r154 r174  
    99  Constraints.MinHeight = 328
    1010  Constraints.MinWidth = 389
     11  DesignTimePPI = 120
    1112  OnCreate = FormCreate
    1213  OnShow = FormShow
    1314  Position = poScreenCenter
    14   LCLVersion = '1.6.4.0'
     15  LCLVersion = '1.8.0.6'
    1516  object ComboBoxLanguage: TComboBox
    1617    Left = 152
    … …  
    6566    Width = 150
    6667    Caption = 'Start on user logon'
     68    Color = clDefault
    6769    OnChange = CheckBoxStartOnLogonChange
     70    ParentColor = False
     71    ParentFont = False
    6872    TabOrder = 4
    6973  end
    … …  
    121125    Anchors = [akLeft, akRight, akBottom]
    122126  end
     127  object Label3: TLabel
     128    Left = 16
     129    Height = 20
     130    Top = 264
     131    Width = 48
     132    Caption = 'Theme:'
     133    ParentColor = False
     134  end
     135  object ComboBoxTheme: TComboBox
     136    Left = 152
     137    Height = 28
     138    Top = 264
     139    Width = 208
     140    ItemHeight = 20
     141    Style = csDropDownList
     142    TabOrder = 9
     143  end
    123144end

  • trunk/Forms/UFormSettings.pas

    r154 r174  
    2323    CheckBoxAlwaysOnTop: TCheckBox;
    2424    ComboBoxLanguage: TComboBox;
     25    ComboBoxTheme: TComboBox;
    2526    Label1: TLabel;
    2627    Label2: TLabel;
     28    Label3: TLabel;
    2729    SpinEditDPI: TSpinEdit;
    2830    procedure ButtonOkClick(Sender: TObject);
    … …  
    4749
    4850uses
    49   UCore;
     51  UCore, UTheme;
    5052
    5153{ TFormSettings }
    … …  
    5355procedure TFormSettings.FormShow(Sender: TObject);
    5456begin
    55   Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    56   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
    57   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
    5857end;
    5958
    6059procedure TFormSettings.ButtonOkClick(Sender: TObject);
    6160begin
    62   if ComboBoxLanguage.ItemIndex <> -1 then
    63     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
    6461end;
    6562
    … …  
    7774begin
    7875  Core.CoolTranslator1.TranslateComponentRecursive(Self);
     76  Core.ThemeManager.UseTheme(Self);
     77  Core.ThemeManager.Themes.LoadToStrings(ComboBoxTheme.Items);
     78  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
    7979end;
    8080
    8181procedure TFormSettings.Load;
    8282begin
     83  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
     84  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
     85  ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager.Theme);
     86  if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;
    8387  CheckBoxAlwaysOnTop.Checked := Core.AlwaysOnTop;
    8488  CheckBoxStartOnLogon.Checked := Core.StartOnLogon;
    … …  
    9296procedure TFormSettings.Save;
    9397begin
     98  if ComboBoxLanguage.ItemIndex <> -1 then
     99    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
     100  if ComboBoxTheme.ItemIndex <> -1 then
     101    Core.ThemeManager.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
    94102  Core.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
    95103  Core.StartOnLogon := CheckBoxStartOnLogon.Checked;

  • trunk/Languages/AcronymDecoder.cs.po

    r173 r174  
    221221msgctxt "tformimport.caption"
    222222msgid "Import"
    223 msgstr "Importovat"
     223msgstr "Import"
    224224
    225225#: tformimport.comboboxdataformat.text
    … …  
    692692msgstr "DPI:"
    693693
     694#: tformsettings.label3.caption
     695msgid "Theme:"
     696msgstr "Téma:"
     697
    694698#: uacronym.sacronym
    695699msgctxt "uacronym.sacronym"

  • trunk/Languages/AcronymDecoder.po

    r173 r174  
    682682msgstr ""
    683683
     684#: tformsettings.label3.caption
     685msgid "Theme:"
     686msgstr ""
     687
    684688#: uacronym.sacronym
    685689msgctxt "uacronym.sacronym"

  • trunk/Packages/Common/Common.lpk

    r170 r174  
    4040    <License Value="GNU/GPL"/>
    4141    <Version Minor="7"/>
    42     <Files Count="20">
     42    <Files Count="21">
    4343      <Item1>
    4444        <Filename Value="StopWatch.pas"/>
    … …  
    129129        <UnitName Value="UScaleDPI"/>
    130130      </Item20>
     131      <Item21>
     132        <Filename Value="UTheme.pas"/>
     133        <HasRegisterProc Value="True"/>
     134        <UnitName Value="UTheme"/>
     135      </Item21>
    131136    </Files>
    132137    <i18n>

  • trunk/Packages/Common/Common.pas

    r10 r174  
    88
    99uses
    10   StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 
    11   UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
    12   UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 
    13   UPersistentForm, UFindFile, UScaleDPI, LazarusPackageIntf;
     10  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,
     11  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
     12  UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort,
     13  UPersistentForm, UFindFile, UScaleDPI, UTheme, LazarusPackageIntf;
    1414
    1515implementation
    … …  
    2525  RegisterUnit('UFindFile', @UFindFile.Register);
    2626  RegisterUnit('UScaleDPI', @UScaleDPI.Register);
     27  RegisterUnit('UTheme', @UTheme.Register);
    2728end;
    2829

  • trunk/Packages/Common/UListViewSort.pas

    r170 r174  
    353353  TP1: TPoint;
    354354  XBias, YBias: Integer;
    355   OldColor: TColor;
     355  PenColor: TColor;
     356  BrushColor: TColor;
    356357  BiasTop, BiasLeft: Integer;
    357358  Rect1: TRect;
    … …  
    365366  Item.Left := 0;
    366367  GetCheckBias(XBias, YBias, BiasTop, BiasLeft, ListView);
    367   OldColor := ListView.Canvas.Pen.Color;
     368  PenColor := ListView.Canvas.Pen.Color;
     369  BrushColor := ListView.Canvas.Brush.Color;
    368370  //TP1 := Item.GetPosition;
    369371  lRect := Item.DisplayRect(drBounds); // Windows 7 workaround
    … …  
    408410  end;
    409411  //ListView.Canvas.Brush.Color := ListView.Color;
    410   ListView.Canvas.Brush.Color := clWindow;
    411   ListView.Canvas.Pen.Color := OldColor;
     412  ListView.Canvas.Brush.Color := BrushColor;
     413  ListView.Canvas.Pen.Color := PenColor;
    412414end;
    413415

  • trunk/UCore.pas

    r151 r174  
    88  Classes, SysUtils, FileUtil, UAcronym, UCoolTranslator, UPersistentForm,
    99  UJobProgressView, UScaleDPI, Forms, Controls, ExtCtrls, Menus, LazFileUtils,
    10   URegistry, UApplicationInfo, Registry;
     10  URegistry, UApplicationInfo, Registry, UTheme;
    1111
    1212type
    … …  
    4747    InitializeStarted: Boolean;
    4848    InitializeFinished: Boolean;
     49    ThemeManager: TThemeManager;
    4950    procedure Initialize;
    5051    procedure LoadConfig;
    … …  
    7879  InitializeFinished := False;
    7980  StoredDimension := TControlDimension.Create;
     81  ThemeManager := TThemeManager.Create(nil);
    8082end;
    8183
    8284procedure TCore.DataModuleDestroy(Sender: TObject);
    8385begin
     86  FreeAndNil(ThemeManager);
    8487  FreeAndNil(StoredDimension);
    8588  FreeAndNil(AcronymDb);
    … …  
    178181    StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
    179182    ReopenLastFileOnStart := ReadBoolWithDefault('ReopenLastFileOnStart', True);
     183    ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
    180184  finally
    181185    Free;
    … …  
    200204    WriteBool('StartMinimizedToTray', StartMinimizedToTray);
    201205    WriteBool('ReopenLastFileOnStart', ReopenLastFileOnStart);
     206    WriteString('Theme', ThemeManager.Theme.Name);
    202207  finally
    203208    Free;
Note: See TracChangeset for help on using the changeset viewer.