FontFitColor/u_FolderSVGForm.dfm at main · Dimon-II/FontFitColor · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
object FormSvgFolder: TFormSvgFolder
  Left = 0
  Top = 0
  Caption = 'SVG Folder:'
  ClientHeight = 441
  ClientWidth = 624
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 200
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object splFolders: TSplitter
    Left = 200
    Top = 38
    Width = 5
    Height = 403
    Color = clActiveBorder
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 38
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object PageScroller1: TPageScroller
      Left = 0
      Top = 0
      Width = 543
      Height = 38
      Align = alClient
      Control = ToolBar1
      TabOrder = 0
      object ToolBar1: TToolBar
        Left = 0
        Top = 0
        Width = 203
        Height = 38
        Align = alLeft
        AutoSize = True
        ButtonHeight = 38
        ButtonWidth = 39
        Caption = 'ToolBar1'
        Images = FormMain.ilMain
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        object tbRootfolder: TToolButton
          Left = 0
          Top = 0
          Action = FormMain.aRootfolder
        end
        object tbRefreshFolder: TToolButton
          Left = 39
          Top = 0
          Action = FormMain.aRefresh
        end
        object tbImportSVGFiles: TToolButton
          Left = 78
          Top = 0
          Action = FormMain.aImport
        end
        object ToolButton5: TToolButton
          Left = 117
          Top = 0
          Width = 8
          Caption = 'ToolButton5'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object tbApply: TToolButton
          Left = 125
          Top = 0
          Action = FormMain.aApply
        end
        object tbCopySVGFile: TToolButton
          Left = 164
          Top = 0
          Hint = 'Copy SVG to clipboard'
          Caption = 'Copy'
          ImageIndex = 6
          OnClick = aCopyExecute
        end
      end
    end
    object cb_SizeSVG: TComboBox
      AlignWithMargins = True
      Left = 546
      Top = 8
      Width = 75
      Height = 21
      Margins.Top = 8
      Align = alRight
      Style = csDropDownList
      ItemIndex = 1
      TabOrder = 1
      Text = '64 x 64'
      OnChange = cb_SizeSVGChange
      Items.Strings = (
        '32 x 32'
        '64 x 64'
        '128 x 128')
    end
  end
  object splitFolders: TSplitView
    Left = 0
    Top = 38
    Width = 200
    Height = 403
    OpenedWidth = 200
    Placement = svpLeft
    TabOrder = 1
    object treeFolders: TTreeView
      Left = 0
      Top = 0
      Width = 200
      Height = 403
      Align = alClient
      BevelInner = bvNone
      BorderStyle = bsNone
      Color = clBtnFace
      HideSelection = False
      Images = il_Folder
      Indent = 19
      ReadOnly = True
      RowSelect = True
      ShowRoot = False
      TabOrder = 0
      OnChange = treeFoldersChange
      OnCollapsing = treeFoldersCollapsing
      OnExpanding = treeFoldersExpanding
    end
  end
  object lv_DirSVG: TListView
    Left = 205
    Top = 38
    Width = 419
    Height = 403
    Margins.Top = 0
    Margins.Bottom = 4
    Align = alClient
    BorderStyle = bsNone
    Columns = <>
    DoubleBuffered = True
    DragMode = dmAutomatic
    FlatScrollBars = True
    GridLines = True
    IconOptions.AutoArrange = True
    IconOptions.WrapText = False
    LargeImages = il_DirSVG
    ParentDoubleBuffered = False
    PopupMenu = pmFolder
    ShowColumnHeaders = False
    SortType = stText
    TabOrder = 2
    OnCustomDrawItem = lv_DirSVGCustomDrawItem
  end
  object il_Folder: TImageList
    Left = 21
    Top = 58
  end
  object il_DirSVG: TImageList
    Height = 128
    Width = 128
    Left = 216
    Top = 53
  end
  object pmFolder: TPopupMenu
    Images = FormMain.ilMain
    Left = 312
    Top = 136
    object miCopy: TMenuItem
      Action = FormMain.aCopy
    end
    object miApplyTo: TMenuItem
      Action = FormMain.aApply
    end
    object miSep1: TMenuItem
      Caption = '-'
    end
    object miRefresh: TMenuItem
      Action = FormMain.aRefresh
    end
    object miRootfolder: TMenuItem
      Action = FormMain.aRootfolder
    end
    object miImportAll: TMenuItem
      Caption = 'Import all'
      Hint = 'Import all SVG to TTF'
      ImageIndex = 3
      ShortCut = 120
    end
  end
end