mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
c3f91d9199
so all the images of other nodes are invalid. So if an node is deleted, we have to Clear; the ImageList, en reassign all... Also made a few changes to OCR. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@305 3f818213-9676-44b0-a9b4-5e4c4e03d09d
150 lines
3.1 KiB
Plaintext
150 lines
3.1 KiB
Plaintext
object ColourHistoryForm: TColourHistoryForm
|
|
Left = 373
|
|
Height = 250
|
|
Top = 308
|
|
Width = 490
|
|
ActiveControl = SelectionName
|
|
Caption = 'Colour Picker History'
|
|
ClientHeight = 227
|
|
ClientWidth = 490
|
|
Constraints.MinHeight = 200
|
|
Constraints.MinWidth = 490
|
|
Menu = CHMainMenu
|
|
OnCreate = FormCreate
|
|
OnHide = UnSetCHShowMenu
|
|
OnShow = SetCHShowMenu
|
|
LCLVersion = '0.9.29'
|
|
object DeleteButton: TButton
|
|
Left = 16
|
|
Height = 25
|
|
Top = 185
|
|
Width = 128
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Delete'
|
|
OnClick = DeleteSelected
|
|
TabOrder = 0
|
|
end
|
|
object SelectionName: TEdit
|
|
Left = 361
|
|
Height = 27
|
|
Top = 16
|
|
Width = 112
|
|
Anchors = [akTop, akRight]
|
|
OnChange = ChangeName
|
|
OnKeyPress = SelectionNameKeyPress
|
|
TabOrder = 1
|
|
Text = 'Name'
|
|
end
|
|
object PickNewColourButton: TButton
|
|
Left = 217
|
|
Height = 25
|
|
Top = 185
|
|
Width = 128
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Pick New Colour'
|
|
TabOrder = 2
|
|
end
|
|
object ColourValue: TEdit
|
|
Left = 361
|
|
Height = 27
|
|
Top = 56
|
|
Width = 112
|
|
Anchors = [akTop, akRight]
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
Text = 'ColourValue'
|
|
end
|
|
object CoordValue: TLabel
|
|
Left = 361
|
|
Height = 18
|
|
Top = 96
|
|
Width = 112
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'CoordValue'
|
|
Constraints.MinWidth = 112
|
|
ParentColor = False
|
|
end
|
|
object ColourImage: TImage
|
|
Left = 152
|
|
Height = 24
|
|
Top = 186
|
|
Width = 57
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
end
|
|
object OkButton: TButton
|
|
Left = 393
|
|
Height = 24
|
|
Top = 186
|
|
Width = 80
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Ok'
|
|
OnClick = OkButtonClick
|
|
TabOrder = 4
|
|
end
|
|
object CH_RGB_Label: TLabel
|
|
Left = 361
|
|
Height = 18
|
|
Top = 128
|
|
Width = 112
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'RGBValues'
|
|
Constraints.MinWidth = 112
|
|
ParentColor = False
|
|
end
|
|
object ColourTree: TTreeView
|
|
Left = 8
|
|
Height = 146
|
|
Top = 16
|
|
Width = 337
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
DefaultItemHeight = 19
|
|
DragMode = dmAutomatic
|
|
Images = CHImages
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 5
|
|
OnChange = ColourTreeChange
|
|
OnDragDrop = ColourTreeDragDrop
|
|
OnDragOver = ColourTreeDragOver
|
|
end
|
|
object CHImages: TImageList
|
|
left = 424
|
|
top = 160
|
|
end
|
|
object CHMainMenu: TMainMenu
|
|
left = 360
|
|
top = 160
|
|
object CHFile: TMenuItem
|
|
Caption = 'File'
|
|
object CHClear: TMenuItem
|
|
Caption = 'Clear'
|
|
OnClick = CHClearClick
|
|
end
|
|
object CHLoad: TMenuItem
|
|
Caption = 'Load'
|
|
OnClick = CHLoadClick
|
|
end
|
|
object CHSave: TMenuItem
|
|
Caption = 'Save'
|
|
OnClick = CHSaveClick
|
|
end
|
|
end
|
|
object CHHelp: TMenuItem
|
|
Caption = 'Help'
|
|
object CHAbout: TMenuItem
|
|
Caption = 'About'
|
|
OnClick = CHAboutClick
|
|
end
|
|
end
|
|
end
|
|
object CHSaveDialog: TSaveDialog
|
|
DefaultExt = '.xml'
|
|
left = 392
|
|
top = 160
|
|
end
|
|
object CHOpenDialog: TOpenDialog
|
|
DefaultExt = '.xml'
|
|
left = 456
|
|
top = 160
|
|
end
|
|
end
|