source: trunk/Forms/UFormMain.lfm

Last change on this file was 40, checked in by chronos, 6 years ago
  • Added: 16-bit channel RGB color format.
File size: 3.8 KB
Line 
1object FormMain: TFormMain
2 Left = 577
3 Height = 640
4 Top = 304
5 Width = 920
6 Caption = 'LibrePaint'
7 ClientHeight = 615
8 ClientWidth = 920
9 DesignTimePPI = 120
10 Menu = MainMenu1
11 OnActivate = FormActivate
12 OnClose = FormClose
13 OnCreate = FormCreate
14 OnDestroy = FormDestroy
15 OnShow = FormShow
16 LCLVersion = '1.8.2.0'
17 object PaintBox1: TPaintBox
18 Left = 0
19 Height = 561
20 Top = 26
21 Width = 920
22 Align = alClient
23 OnMouseDown = PaintBox1MouseDown
24 OnMouseLeave = PaintBox1MouseLeave
25 OnMouseMove = PaintBox1MouseMove
26 OnMouseUp = PaintBox1MouseUp
27 OnMouseWheelDown = PaintBox1MouseWheelDown
28 OnMouseWheelUp = PaintBox1MouseWheelUp
29 OnPaint = PaintBox1Paint
30 OnResize = PaintBox1Resize
31 end
32 object StatusBar1: TStatusBar
33 Left = 0
34 Height = 28
35 Top = 587
36 Width = 920
37 Panels = <
38 item
39 Width = 300
40 end
41 item
42 Width = 200
43 end
44 item
45 Width = 200
46 end>
47 SimplePanel = False
48 end
49 object ToolBar1: TToolBar
50 Left = 0
51 Height = 26
52 Top = 0
53 Width = 920
54 TabOrder = 1
55 object ToolButton1: TToolButton
56 Left = 1
57 Top = 2
58 Action = Core.AFileNew
59 end
60 object ColorButton1: TColorButton
61 Left = 30
62 Height = 28
63 Top = 2
64 Width = 43
65 BorderWidth = 2
66 ButtonColorSize = 16
67 ButtonColor = clMaroon
68 end
69 object ToolButton2: TToolButton
70 Left = 73
71 Top = 2
72 Action = Core.AToolMove
73 end
74 object ToolButton3: TToolButton
75 Left = 102
76 Top = 2
77 Action = Core.AToolPen
78 end
79 end
80 object MainMenu1: TMainMenu
81 Images = Core.ImageList1
82 left = 104
83 top = 48
84 object MenuItem1: TMenuItem
85 Caption = 'File'
86 object MenuItem3: TMenuItem
87 Action = Core.AFileNew
88 end
89 object MenuItem12: TMenuItem
90 Action = Core.AFileOpen
91 end
92 object MenuItemRecentFiles: TMenuItem
93 Caption = 'Recent files'
94 end
95 object MenuItem13: TMenuItem
96 Action = Core.AFileSave
97 end
98 object MenuItem15: TMenuItem
99 Action = Core.AFileSaveAs
100 end
101 object MenuItem16: TMenuItem
102 Action = Core.AFileClose
103 end
104 object MenuItem11: TMenuItem
105 Caption = '-'
106 end
107 object MenuItem2: TMenuItem
108 Action = Core.AExit
109 end
110 end
111 object MenuItem21: TMenuItem
112 Caption = 'Tool'
113 object MenuItem23: TMenuItem
114 Action = Core.AToolMove
115 end
116 object MenuItem22: TMenuItem
117 Action = Core.AToolPen
118 end
119 end
120 object MenuItem6: TMenuItem
121 Caption = 'View'
122 object MenuItem7: TMenuItem
123 Action = Core.AZoomNormal
124 end
125 object MenuItem8: TMenuItem
126 Action = Core.AZoomIn
127 end
128 object MenuItem9: TMenuItem
129 Action = Core.AZoomOut
130 end
131 object MenuItem10: TMenuItem
132 Action = Core.AZoomAll
133 end
134 end
135 object MenuItem4: TMenuItem
136 Caption = 'Image'
137 object MenuItem5: TMenuItem
138 Action = Core.AImageClear
139 end
140 object MenuItem14: TMenuItem
141 Action = Core.AImageRandom
142 end
143 object MenuItem17: TMenuItem
144 Action = Core.AImageMirror
145 end
146 object MenuItem18: TMenuItem
147 Action = Core.AImageFlip
148 end
149 object MenuItem19: TMenuItem
150 Action = Core.AImageGradient
151 end
152 object MenuItem20: TMenuItem
153 Action = Core.AImageNegative
154 end
155 end
156 object MenuItem24: TMenuItem
157 Caption = 'General'
158 object MenuItem25: TMenuItem
159 Action = Core.ASettings
160 end
161 end
162 end
163 object Timer1: TTimer
164 Enabled = False
165 Interval = 50
166 OnTimer = Timer1Timer
167 left = 195
168 top = 206
169 end
170 object LastOpenedList1: TLastOpenedList
171 MaxCount = 10
172 OnChange = LastOpenedList1Change
173 left = 304
174 top = 112
175 end
176end
Note: See TracBrowser for help on using the repository browser.