1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-24 00:08:52 -05:00

Change to allow copying colours. :p

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@205 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-07 17:43:41 +00:00
parent 56ae917fda
commit 4c6cd3cdc1
4 changed files with 88 additions and 87 deletions

View File

@ -1,7 +1,7 @@
object ColourHistoryForm: TColourHistoryForm
Left = 498
Left = 494
Height = 250
Top = 474
Top = 299
Width = 489
ActiveControl = SelectionName
Caption = 'Colour Picker History'
@ -27,27 +27,11 @@ object ColourHistoryForm: TColourHistoryForm
OnClick = DeleteSelected
TabOrder = 1
end
object ColourValue: TLabel
Left = 360
Height = 18
Top = 40
Width = 9
Caption = '0'
ParentColor = False
end
object CoordValue: TLabel
Left = 360
Height = 18
Top = 73
Width = 25
Caption = '0, 0'
ParentColor = False
end
object SelectionName: TEdit
Left = 360
Height = 27
Top = 104
Width = 104
Width = 112
OnChange = ChangeName
TabOrder = 2
Text = 'Name'
@ -60,4 +44,21 @@ object ColourHistoryForm: TColourHistoryForm
Caption = 'Pick New Colour'
TabOrder = 3
end
object ColourValue: TEdit
Left = 360
Height = 27
Top = 16
Width = 112
ReadOnly = True
TabOrder = 4
Text = 'ColourValue'
end
object CoordValue: TLabel
Left = 360
Height = 18
Top = 64
Width = 74
Caption = 'CoordValue'
ParentColor = False
end
end

View File

@ -1,20 +1,20 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TColourHistoryForm','FORMDATA',[
'TPF0'#18'TColourHistoryForm'#17'ColourHistoryForm'#4'Left'#3#242#1#6'Height'
+#3#250#0#3'Top'#3#218#1#5'Width'#3#233#1#13'ActiveControl'#7#13'SelectionNam'
+'e'#7'Caption'#6#21'Colour Picker History'#12'ClientHeight'#3#250#0#11'Clien'
+'tWidth'#3#233#1#6'OnShow'#7#13'SetCHShowMenu'#10'LCLVersion'#6#6'0.9.29'#0#9
+'TListView'#10'ColourList'#4'Left'#2#16#6'Height'#3#208#0#3'Top'#2#16#5'Widt'
+'h'#3'@'#1#7'Columns'#14#0#8'TabOrder'#2#0#12'OnSelectItem'#7#14'ChangeViewD'
+'ata'#0#0#7'TButton'#12'DeleteButton'#4'Left'#3'`'#1#6'Height'#2#25#3'Top'#3
+#199#0#5'Width'#3#128#0#7'Caption'#6#6'Delete'#7'OnClick'#7#14'DeleteSelecte'
+'d'#8'TabOrder'#2#1#0#0#6'TLabel'#11'ColourValue'#4'Left'#3'h'#1#6'Height'#2
+#18#3'Top'#2'('#5'Width'#2#9#7'Caption'#6#1'0'#11'ParentColor'#8#0#0#6'TLabe'
+'l'#10'CoordValue'#4'Left'#3'h'#1#6'Height'#2#18#3'Top'#2'I'#5'Width'#2#25#7
+'Caption'#6#4'0, 0'#11'ParentColor'#8#0#0#5'TEdit'#13'SelectionName'#4'Left'
+#3'h'#1#6'Height'#2#27#3'Top'#2'h'#5'Width'#2'h'#8'OnChange'#7#10'ChangeName'
+#8'TabOrder'#2#2#4'Text'#6#4'Name'#0#0#7'TButton'#19'PickNewColourButton'#4
+'Left'#3'`'#1#6'Height'#2#25#3'Top'#3#160#0#5'Width'#3#128#0#7'Caption'#6#15
+'Pick New Colour'#8'TabOrder'#2#3#0#0#0
'TPF0'#18'TColourHistoryForm'#17'ColourHistoryForm'#4'Left'#3#238#1#6'Height'
+#3#250#0#3'Top'#3'+'#1#5'Width'#3#233#1#13'ActiveControl'#7#13'SelectionName'
+#7'Caption'#6#21'Colour Picker History'#12'ClientHeight'#3#250#0#11'ClientWi'
+'dth'#3#233#1#6'OnShow'#7#13'SetCHShowMenu'#10'LCLVersion'#6#6'0.9.29'#0#9'T'
+'ListView'#10'ColourList'#4'Left'#2#16#6'Height'#3#208#0#3'Top'#2#16#5'Width'
+#3'@'#1#7'Columns'#14#0#8'TabOrder'#2#0#12'OnSelectItem'#7#14'ChangeViewData'
+#0#0#7'TButton'#12'DeleteButton'#4'Left'#3'`'#1#6'Height'#2#25#3'Top'#3#199#0
+#5'Width'#3#128#0#7'Caption'#6#6'Delete'#7'OnClick'#7#14'DeleteSelected'#8'T'
+'abOrder'#2#1#0#0#5'TEdit'#13'SelectionName'#4'Left'#3'h'#1#6'Height'#2#27#3
+'Top'#2'h'#5'Width'#2'p'#8'OnChange'#7#10'ChangeName'#8'TabOrder'#2#2#4'Text'
+#6#4'Name'#0#0#7'TButton'#19'PickNewColourButton'#4'Left'#3'`'#1#6'Height'#2
+#25#3'Top'#3#160#0#5'Width'#3#128#0#7'Caption'#6#15'Pick New Colour'#8'TabOr'
+'der'#2#3#0#0#5'TEdit'#11'ColourValue'#4'Left'#3'h'#1#6'Height'#2#27#3'Top'#2
+#16#5'Width'#2'p'#8'ReadOnly'#9#8'TabOrder'#2#4#4'Text'#6#11'ColourValue'#0#0
+#6'TLabel'#10'CoordValue'#4'Left'#3'h'#1#6'Height'#2#18#3'Top'#2'@'#5'Width'
+#2'J'#7'Caption'#6#10'CoordValue'#11'ParentColor'#8#0#0#0
]);

View File

@ -22,10 +22,10 @@ type
{ TColourHistoryForm }
TColourHistoryForm = class(TForm)
ColourValue: TEdit;
CoordValue: TLabel;
PickNewColourButton: TButton;
DeleteButton: TButton;
ColourValue: TLabel;
CoordValue: TLabel;
ColourList: TListView;
SelectionName: TEdit;
procedure ChangeName(Sender: TObject);
@ -96,7 +96,7 @@ begin
exit;
if not Item.Selected then
exit;
ColourValue.Caption := 'Colour: ' + IntToStr(TColourPickerObject(Item.Data).Colour);
ColourValue.Caption := IntToStr(TColourPickerObject(Item.Data).Colour);
CoordValue.Caption := 'Coords: ' + IntToStr(TColourPickerObject(Item.Data).Pos.X) +
', ' + IntToStr(TColourPickerObject(Item.Data).Pos.Y);
SelectionName.Text := TColourPickerObject(Item.Data).Name;

View File

@ -726,7 +726,7 @@
<IsPartOfProject Value="True"/>
<UnitName Value="colourpicker"/>
<CursorPos X="36" Y="188"/>
<TopLine Value="36"/>
<TopLine Value="157"/>
<EditorIndex Value="3"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
@ -1511,8 +1511,8 @@
<ComponentName Value="ColourHistoryForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="colourhistory"/>
<CursorPos X="37" Y="131"/>
<TopLine Value="110"/>
<CursorPos X="6" Y="88"/>
<TopLine Value="86"/>
<EditorIndex Value="4"/>
<UsageCount Value="28"/>
<Loaded Value="True"/>
@ -1558,124 +1558,124 @@
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="colourhistory.pas"/>
<Caret Line="31" Column="9" TopLine="31"/>
<Filename Value="testunit.pas"/>
<Caret Line="825" Column="27" TopLine="808"/>
</Position1>
<Position2>
<Filename Value="colourhistory.pas"/>
<Caret Line="96" Column="3" TopLine="75"/>
<Filename Value="testunit.pas"/>
<Caret Line="822" Column="28" TopLine="810"/>
</Position2>
<Position3>
<Filename Value="colourhistory.pas"/>
<Caret Line="88" Column="22" TopLine="75"/>
<Caret Line="85" Column="32" TopLine="69"/>
</Position3>
<Position4>
<Filename Value="testunit.pas"/>
<Caret Line="961" Column="27" TopLine="948"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="92" Column="32" TopLine="69"/>
</Position4>
<Position5>
<Filename Value="testunit.pas"/>
<Caret Line="967" Column="51" TopLine="952"/>
<Caret Line="501" Column="35" TopLine="484"/>
</Position5>
<Position6>
<Filename Value="testunit.pas"/>
<Caret Line="974" Column="51" TopLine="952"/>
<Caret Line="859" Column="51" TopLine="840"/>
</Position6>
<Position7>
<Filename Value="testunit.pas"/>
<Caret Line="822" Column="6" TopLine="810"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="77" Column="1" TopLine="69"/>
</Position7>
<Position8>
<Filename Value="testunit.pas"/>
<Caret Line="825" Column="27" TopLine="808"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="25" Column="44" TopLine="11"/>
</Position8>
<Position9>
<Filename Value="testunit.pas"/>
<Caret Line="822" Column="28" TopLine="810"/>
<Filename Value="framescript.pas"/>
<Caret Line="27" Column="46" TopLine="19"/>
</Position9>
<Position10>
<Filename Value="colourhistory.pas"/>
<Caret Line="85" Column="32" TopLine="69"/>
<Caret Line="51" Column="12" TopLine="28"/>
</Position10>
<Position11>
<Filename Value="colourhistory.pas"/>
<Caret Line="92" Column="32" TopLine="69"/>
<Filename Value="testunit.pas"/>
<Caret Line="30" Column="49" TopLine="26"/>
</Position11>
<Position12>
<Filename Value="testunit.pas"/>
<Caret Line="501" Column="35" TopLine="484"/>
<Caret Line="38" Column="24" TopLine="26"/>
</Position12>
<Position13>
<Filename Value="testunit.pas"/>
<Caret Line="859" Column="51" TopLine="840"/>
<Filename Value="framescript.pas"/>
<Caret Line="69" Column="29" TopLine="46"/>
</Position13>
<Position14>
<Filename Value="colourhistory.pas"/>
<Caret Line="77" Column="1" TopLine="69"/>
<Caret Line="113" Column="3" TopLine="96"/>
</Position14>
<Position15>
<Filename Value="colourhistory.pas"/>
<Caret Line="25" Column="44" TopLine="11"/>
<Caret Line="36" Column="49" TopLine="23"/>
</Position15>
<Position16>
<Filename Value="framescript.pas"/>
<Caret Line="27" Column="46" TopLine="19"/>
<Filename Value="testunit.pas"/>
<Caret Line="14" Column="63" TopLine="1"/>
</Position16>
<Position17>
<Filename Value="colourhistory.pas"/>
<Caret Line="51" Column="12" TopLine="28"/>
<Caret Line="115" Column="43" TopLine="100"/>
</Position17>
<Position18>
<Filename Value="testunit.pas"/>
<Caret Line="30" Column="49" TopLine="26"/>
<Caret Line="324" Column="37" TopLine="318"/>
</Position18>
<Position19>
<Filename Value="testunit.pas"/>
<Caret Line="38" Column="24" TopLine="26"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="99" Column="49" TopLine="82"/>
</Position19>
<Position20>
<Filename Value="framescript.pas"/>
<Caret Line="69" Column="29" TopLine="46"/>
<Filename Value="testunit.pas"/>
<Caret Line="979" Column="62" TopLine="960"/>
</Position20>
<Position21>
<Filename Value="colourhistory.pas"/>
<Caret Line="113" Column="3" TopLine="96"/>
<Filename Value="testunit.pas"/>
<Caret Line="821" Column="31" TopLine="810"/>
</Position21>
<Position22>
<Filename Value="colourhistory.pas"/>
<Caret Line="36" Column="49" TopLine="23"/>
<Caret Line="90" Column="43" TopLine="83"/>
</Position22>
<Position23>
<Filename Value="testunit.pas"/>
<Caret Line="14" Column="63" TopLine="1"/>
<Caret Line="823" Column="51" TopLine="807"/>
</Position23>
<Position24>
<Filename Value="colourhistory.pas"/>
<Caret Line="115" Column="43" TopLine="100"/>
<Caret Line="131" Column="37" TopLine="107"/>
</Position24>
<Position25>
<Filename Value="testunit.pas"/>
<Caret Line="324" Column="37" TopLine="318"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="119" Column="76" TopLine="107"/>
</Position25>
<Position26>
<Filename Value="colourhistory.pas"/>
<Caret Line="99" Column="49" TopLine="82"/>
<Caret Line="98" Column="14" TopLine="84"/>
</Position26>
<Position27>
<Filename Value="testunit.pas"/>
<Caret Line="979" Column="62" TopLine="960"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="97" Column="14" TopLine="84"/>
</Position27>
<Position28>
<Filename Value="testunit.pas"/>
<Caret Line="821" Column="31" TopLine="810"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="94" Column="47" TopLine="84"/>
</Position28>
<Position29>
<Filename Value="colourhistory.pas"/>
<Caret Line="90" Column="43" TopLine="83"/>
<Caret Line="97" Column="58" TopLine="86"/>
</Position29>
<Position30>
<Filename Value="testunit.pas"/>
<Caret Line="823" Column="51" TopLine="807"/>
<Filename Value="colourhistory.pas"/>
<Caret Line="96" Column="58" TopLine="86"/>
</Position30>
</JumpHistory>
</ProjectOptions>