Change to allow copying colours. :p

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@205 3f818213-9676-44b0-a9b4-5e4c4e03d09d
2024-08-13 16:53:59 -04:00 · 2009-11-07 17:43:41 +00:00 · 2009-11-07 17:43:41 +00:00 · 4c6cd3cdc1
commit 4c6cd3cdc1
parent 56ae917fda
4 changed files with 88 additions and 87 deletions
--- a/Projects/SAMufasaGUI/colourhistory.lfm
+++ b/Projects/SAMufasaGUI/colourhistory.lfm
@ -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
--- a/Projects/SAMufasaGUI/colourhistory.lrs
+++ b/Projects/SAMufasaGUI/colourhistory.lrs
@ -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
 ]);
--- a/Projects/SAMufasaGUI/colourhistory.pas
+++ b/Projects/SAMufasaGUI/colourhistory.pas
@ -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;
--- a/Projects/SAMufasaGUI/project1.lpi
+++ b/Projects/SAMufasaGUI/project1.lpi
@ -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>