Examples/graphics/Yeargrid/unit1.lfm at master · PascalCorpsman/Examples · 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
object Form1: TForm1
  Left = 353
  Height = 678
  Top = 124
  Width = 1144
  Caption = 'Form1'
  ClientHeight = 678
  ClientWidth = 1144
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
    Left = 870
    Height = 657
    Top = 8
    Width = 265
    Anchors = [akTop, akRight, akBottom]
    ClientHeight = 655
    ClientWidth = 263
    TabOrder = 0
    object Label1: TLabel
      Left = 64
      Height = 45
      Top = 8
      Width = 136
      Alignment = taCenter
      AutoSize = False
      Caption = 'Label1'
      Font.Height = -33
      Layout = tlCenter
      ParentFont = False
    end
    object Button1: TButton
      Left = 8
      Height = 46
      Top = 8
      Width = 46
      Caption = '<'
      OnClick = Button1Click
      TabOrder = 0
    end
    object Button2: TButton
      Left = 208
      Height = 46
      Top = 0
      Width = 46
      Caption = '>'
      OnClick = Button2Click
      TabOrder = 1
    end
    object CheckGroup1: TCheckGroup
      Left = 8
      Height = 105
      Top = 64
      Width = 246
      AutoFill = True
      Caption = ' Workdays '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 2
      ClientHeight = 88
      ClientWidth = 244
      Columns = 2
      Items.Strings = (
        'Monday'
        'Tuesday'
        'Wednesday'
        'Thursday'
        'Friday'
        'Saturday'
        'Sunday'
      )
      OnItemClick = CheckGroup1ItemClick
      TabOrder = 2
      Data = {
        0700000002020202020202
      }
    end
    object Label2: TLabel
      Left = 8
      Height = 16
      Top = 184
      Width = 76
      Caption = 'Invalid Color'
    end
    object Shape1: TShape
      Left = 122
      Height = 25
      Top = 175
      Width = 132
    end
    object Label3: TLabel
      Left = 8
      Height = 16
      Top = 217
      Width = 89
      Caption = 'WeekendColor'
    end
    object Shape2: TShape
      Left = 122
      Height = 25
      Top = 208
      Width = 132
    end
    object Label4: TLabel
      Left = 8
      Height = 16
      Top = 281
      Width = 73
      Caption = 'Today Color'
    end
    object Shape3: TShape
      Left = 122
      Height = 25
      Top = 272
      Width = 132
    end
    object CheckBox1: TCheckBox
      Left = 5
      Height = 22
      Top = 320
      Width = 131
      Caption = 'OnPrepareCanvas'
      OnClick = CheckBox1Click
      TabOrder = 3
    end
    object Shape4: TShape
      Left = 122
      Height = 25
      Top = 240
      Width = 132
    end
    object Label5: TLabel
      Left = 8
      Height = 16
      Top = 249
      Width = 65
      Caption = 'WorkColor'
    end
  end
  object ColorDialog1: TColorDialog
    Color = clBlack
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=000080'
      'ColorC=008000'
      'ColorD=008080'
      'ColorE=800000'
      'ColorF=800080'
      'ColorG=808000'
      'ColorH=808080'
      'ColorI=C0C0C0'
      'ColorJ=0000FF'
      'ColorK=00FF00'
      'ColorL=00FFFF'
      'ColorM=FF0000'
      'ColorN=FF00FF'
      'ColorO=FFFF00'
      'ColorP=FFFFFF'
      'ColorQ=C0DCC0'
      'ColorR=F0CAA6'
      'ColorS=F0FBFF'
      'ColorT=A4A0A0'
    )
    Left = 196
    Top = 103
  end
end