1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-17 06:45:11 -05:00

Forgot these. ;)

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@203 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-07 15:51:58 +00:00
parent cdbd7a748f
commit c43550a804
4 changed files with 295 additions and 79 deletions

View File

@ -0,0 +1,62 @@
object ColourHistoryForm: TColourHistoryForm
Left = 498
Height = 250
Top = 474
Width = 489
ActiveControl = SelectionName
Caption = 'Colour Picker History'
ClientHeight = 250
ClientWidth = 489
LCLVersion = '0.9.29'
object ColourList: TListView
Left = 16
Height = 208
Top = 16
Width = 320
Columns = <>
TabOrder = 0
OnSelectItem = ChangeViewData
end
object DeleteButton: TButton
Left = 352
Height = 25
Top = 199
Width = 128
Caption = 'Delete'
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
OnChange = ChangeName
TabOrder = 2
Text = 'Name'
end
object PickNewColourButton: TButton
Left = 352
Height = 25
Top = 160
Width = 128
Caption = 'Pick New Colour'
TabOrder = 3
end
end

View File

@ -0,0 +1,18 @@
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#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'Width'#3'@'#1#7'Columns'#14#0#8
+'TabOrder'#2#0#12'OnSelectItem'#7#14'ChangeViewData'#0#0#7'TButton'#12'Delet'
+'eButton'#4'Left'#3'`'#1#6'Height'#2#25#3'Top'#3#199#0#5'Width'#3#128#0#7'Ca'
+'ption'#6#6'Delete'#7'OnClick'#7#14'DeleteSelected'#8'TabOrder'#2#1#0#0#6'TL'
+'abel'#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'TLabel'#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'Paren'
+'tColor'#8#0#0#5'TEdit'#13'SelectionName'#4'Left'#3'h'#1#6'Height'#2#27#3'To'
+'p'#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
]);

View File

@ -0,0 +1,128 @@
unit colourhistory;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, StdCtrls;
type
TColourPickerObject = class(TObject)
constructor Create(C: Integer; P: TPoint; N: String);
destructor Destroy; override;
public
Colour: Integer;
Pos: TPoint;
Name: String;
end;
{ TColourHistoryForm }
TColourHistoryForm = class(TForm)
PickNewColourButton: TButton;
DeleteButton: TButton;
ColourValue: TLabel;
CoordValue: TLabel;
ColourList: TListView;
SelectionName: TEdit;
procedure ChangeName(Sender: TObject);
procedure ChangeViewData(Sender: TObject; Item: TListItem; Selected: Boolean
);
procedure DeleteSelected(Sender: TObject);
procedure AddColObj(c: TColourPickerObject);
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
private
{ private declarations }
public
IndexSelected: Integer;
{ public declarations }
end;
var
ColourHistoryForm: TColourHistoryForm;
implementation
uses
TestUnit;
constructor TColourPickerObject.Create(C: Integer; P: TPoint; N: String);
begin
inherited Create;
Self.Colour := C;
Self.Pos := P;
Self.Name:= N;
end;
destructor TColourPickerObject.Destroy;
begin
inherited Destroy;
end;
{ TColourHistoryForm }
procedure TColourHistoryForm.AddColObj(c: TColourPickerObject);
var
it: TListItem;
begin
it := ColourList.Items.Add;
it.Data := c;
it.Caption:= c.Name;
ColourList.Selected := it;
end;
procedure TColourHistoryForm.DeleteSelected(Sender: TObject);
begin
if (Assigned(ColourList.Selected)) then
begin
TColourPickerObject(ColourList.Selected.Data).Free;
ColourList.Selected.Delete;
end;
end;
procedure TColourHistoryForm.ChangeViewData(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
ColourValue.Caption := 'Colour: ' + IntToStr(TColourPickerObject(ColourList.Selected.Data).Colour);
CoordValue.Caption := 'Coords: ' + IntToStr(TColourPickerObject(ColourList.Selected.Data).Pos.X) +
', ' + IntToStr(TColourPickerObject(ColourList.Selected.Data).Pos.Y);
SelectionName.Text := TColourPickerObject(ColourList.Selected.Data).Name;
end;
procedure TColourHistoryForm.ChangeName(Sender: TObject);
begin
if not Assigned(ColourList.Selected) then
begin
WriteLn('We double clicked but have nothing Selected?');
exit;
end;
ColourList.Selected.Caption := SelectionName.Text;
TColourPickerObject(ColourList.Selected.Data).Name := SelectionName.Text;
end;
constructor TColourHistoryForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
PickNewColourButton.OnClick:= @Form1.ButtonPickClick;
end;
destructor TColourHistoryForm.Destroy;
begin
inherited Destroy;
end;
initialization
{$I colourhistory.lrs}
end.

View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="4"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -39,8 +39,8 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="22" Y="20"/> <CursorPos X="22" Y="20"/>
<TopLine Value="20"/> <TopLine Value="17"/>
<EditorIndex Value="4"/> <EditorIndex Value="5"/>
<UsageCount Value="205"/> <UsageCount Value="205"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
@ -148,7 +148,7 @@
<Filename Value="../Documents/lazarus/lcl/include/rasterimage.inc"/> <Filename Value="../Documents/lazarus/lcl/include/rasterimage.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="691"/> <TopLine Value="691"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../Documents/fpc/packages/x11/src/xlib.pp"/> <Filename Value="../Documents/fpc/packages/x11/src/xlib.pp"/>
@ -164,8 +164,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="26" Y="823"/> <CursorPos X="50" Y="979"/>
<TopLine Value="808"/> <TopLine Value="132"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -223,7 +223,7 @@
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="26" Y="44"/> <CursorPos X="26" Y="44"/>
<TopLine Value="26"/> <TopLine Value="26"/>
<EditorIndex Value="12"/> <EditorIndex Value="9"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit25> </Unit25>
@ -233,7 +233,7 @@
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<CursorPos X="84" Y="44"/> <CursorPos X="84" Y="44"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit26> </Unit26>
@ -258,7 +258,7 @@
<UnitName Value="Window"/> <UnitName Value="Window"/>
<CursorPos X="28" Y="157"/> <CursorPos X="28" Y="157"/>
<TopLine Value="143"/> <TopLine Value="143"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit29> </Unit29>
@ -274,7 +274,7 @@
<UnitName Value="windowutil"/> <UnitName Value="windowutil"/>
<CursorPos X="29" Y="29"/> <CursorPos X="29" Y="29"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<EditorIndex Value="6"/> <EditorIndex Value="7"/>
<UsageCount Value="48"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit31> </Unit31>
@ -283,7 +283,7 @@
<UnitName Value="Input"/> <UnitName Value="Input"/>
<CursorPos X="18" Y="57"/> <CursorPos X="18" Y="57"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<EditorIndex Value="15"/> <EditorIndex Value="12"/>
<UsageCount Value="72"/> <UsageCount Value="72"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit32> </Unit32>
@ -293,7 +293,7 @@
<UnitName Value="finder"/> <UnitName Value="finder"/>
<CursorPos X="50" Y="19"/> <CursorPos X="50" Y="19"/>
<TopLine Value="19"/> <TopLine Value="19"/>
<EditorIndex Value="13"/> <EditorIndex Value="10"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit33> </Unit33>
@ -318,7 +318,7 @@
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="23" Y="198"/> <CursorPos X="23" Y="198"/>
<TopLine Value="182"/> <TopLine Value="182"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit36> </Unit36>
@ -354,7 +354,7 @@
<UnitName Value="uPSC_forms"/> <UnitName Value="uPSC_forms"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="project1.lrs"/> <Filename Value="project1.lrs"/>
@ -387,9 +387,7 @@
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<CursorPos X="67" Y="97"/> <CursorPos X="67" Y="97"/>
<TopLine Value="87"/> <TopLine Value="87"/>
<EditorIndex Value="17"/>
<UsageCount Value="94"/> <UsageCount Value="94"/>
<Loaded Value="True"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/win/tthread.inc"/>
@ -409,7 +407,7 @@
<UnitName Value="bitmaps"/> <UnitName Value="bitmaps"/>
<CursorPos X="44" Y="692"/> <CursorPos X="44" Y="692"/>
<TopLine Value="670"/> <TopLine Value="670"/>
<EditorIndex Value="14"/> <EditorIndex Value="11"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit49> </Unit49>
@ -424,9 +422,7 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/colour.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/colour.inc"/>
<CursorPos X="30" Y="28"/> <CursorPos X="30" Y="28"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<EditorIndex Value="9"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/>
</Unit51> </Unit51>
<Unit52> <Unit52>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/>
@ -577,18 +573,14 @@
<Unit74> <Unit74>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/>
<CursorPos X="5" Y="32"/> <CursorPos X="5" Y="32"/>
<TopLine Value="2"/> <TopLine Value="1"/>
<EditorIndex Value="8"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit74> </Unit74>
<Unit75> <Unit75>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="18"/>
<UsageCount Value="38"/> <UsageCount Value="38"/>
<Loaded Value="True"/>
</Unit75> </Unit75>
<Unit76> <Unit76>
<Filename Value="../../Units/PascalScript/uPSCompiler.pas"/> <Filename Value="../../Units/PascalScript/uPSCompiler.pas"/>
@ -660,7 +652,7 @@
<Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit86> </Unit86>
<Unit87> <Unit87>
<Filename Value="../../Units/PascalScript/x86.inc"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
@ -735,7 +727,7 @@
<UnitName Value="colourpicker"/> <UnitName Value="colourpicker"/>
<CursorPos X="36" Y="188"/> <CursorPos X="36" Y="188"/>
<TopLine Value="167"/> <TopLine Value="167"/>
<EditorIndex Value="2"/> <EditorIndex Value="3"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit97> </Unit97>
@ -823,7 +815,7 @@
<UnitName Value="CompScript"/> <UnitName Value="CompScript"/>
<CursorPos X="1" Y="529"/> <CursorPos X="1" Y="529"/>
<TopLine Value="508"/> <TopLine Value="508"/>
<UsageCount Value="0"/> <UsageCount Value="10"/>
</Unit109> </Unit109>
<Unit110> <Unit110>
<Filename Value="../../../Documents/fpc/rtl/objpas/math.pp"/> <Filename Value="../../../Documents/fpc/rtl/objpas/math.pp"/>
@ -874,9 +866,7 @@
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="19" Y="91"/> <CursorPos X="19" Y="91"/>
<TopLine Value="75"/> <TopLine Value="75"/>
<EditorIndex Value="11"/>
<UsageCount Value="171"/> <UsageCount Value="171"/>
<Loaded Value="True"/>
</Unit116> </Unit116>
<Unit117> <Unit117>
<Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/> <Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/>
@ -1202,9 +1192,9 @@
<ComponentName Value="ScriptFrame"/> <ComponentName Value="ScriptFrame"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="framescript"/> <UnitName Value="framescript"/>
<CursorPos X="40" Y="146"/> <CursorPos X="1" Y="69"/>
<TopLine Value="126"/> <TopLine Value="46"/>
<EditorIndex Value="19"/> <EditorIndex Value="1"/>
<UsageCount Value="89"/> <UsageCount Value="89"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit161> </Unit161>
@ -1428,9 +1418,7 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/ocr.inc"/>
<CursorPos X="33" Y="4"/> <CursorPos X="33" Y="4"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="10"/>
<UsageCount Value="29"/> <UsageCount Value="29"/>
<Loaded Value="True"/>
</Unit195> </Unit195>
<Unit196> <Unit196>
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/> <Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
@ -1485,7 +1473,7 @@
<UnitName Value="XTest"/> <UnitName Value="XTest"/>
<CursorPos X="72" Y="28"/> <CursorPos X="72" Y="28"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<EditorIndex Value="16"/> <EditorIndex Value="13"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit203> </Unit203>
@ -1523,9 +1511,9 @@
<ComponentName Value="ColourHistoryForm"/> <ComponentName Value="ColourHistoryForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="colourhistory"/> <UnitName Value="colourhistory"/>
<CursorPos X="32" Y="85"/> <CursorPos X="55" Y="115"/>
<TopLine Value="69"/> <TopLine Value="100"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<UsageCount Value="26"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit208> </Unit208>
@ -1568,107 +1556,127 @@
<SyntaxHighlighter Value="LFM"/> <SyntaxHighlighter Value="LFM"/>
</Unit214> </Unit214>
</Units> </Units>
<JumpHistory Count="25" HistoryIndex="24"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="970" Column="5" TopLine="948"/> <Caret Line="73" Column="12" TopLine="50"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="70" Column="5" TopLine="52"/> <Caret Line="28" Column="21" TopLine="14"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="13" Column="75" TopLine="1"/> <Caret Line="70" Column="27" TopLine="44"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="208" Column="30" TopLine="194"/> <Caret Line="82" Column="22" TopLine="61"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="64" Column="25" TopLine="48"/> <Caret Line="55" Column="34" TopLine="55"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="67" Column="16" TopLine="48"/> <Caret Line="91" Column="31" TopLine="19"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="68" Column="23" TopLine="48"/> <Caret Line="31" Column="9" TopLine="31"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="73" Column="20" TopLine="52"/> <Caret Line="96" Column="3" TopLine="75"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="73" Column="7" TopLine="52"/> <Caret Line="88" Column="22" TopLine="75"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="66" Column="23" TopLine="50"/> <Caret Line="961" Column="27" TopLine="948"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="73" Column="12" TopLine="50"/> <Caret Line="967" Column="51" TopLine="952"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="28" Column="21" TopLine="14"/> <Caret Line="974" Column="51" TopLine="952"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="70" Column="27" TopLine="44"/> <Caret Line="822" Column="6" TopLine="810"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="82" Column="22" TopLine="61"/> <Caret Line="825" Column="27" TopLine="808"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="55" Column="34" TopLine="55"/> <Caret Line="822" Column="28" TopLine="810"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="91" Column="31" TopLine="19"/> <Caret Line="85" Column="32" TopLine="69"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="colourhistory.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="31" Column="9" TopLine="31"/> <Caret Line="92" Column="32" TopLine="69"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="96" Column="3" TopLine="75"/> <Caret Line="501" Column="35" TopLine="484"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="colourhistory.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="88" Column="22" TopLine="75"/> <Caret Line="859" Column="51" TopLine="840"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="961" Column="27" TopLine="948"/> <Caret Line="77" Column="1" TopLine="69"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="967" Column="51" TopLine="952"/> <Caret Line="25" Column="44" TopLine="11"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="testunit.pas"/> <Filename Value="framescript.pas"/>
<Caret Line="974" Column="51" TopLine="952"/> <Caret Line="27" Column="46" TopLine="19"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="testunit.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="822" Column="6" TopLine="810"/> <Caret Line="51" Column="12" TopLine="28"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="825" Column="27" TopLine="808"/> <Caret Line="30" Column="49" TopLine="26"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="822" Column="28" TopLine="810"/> <Caret Line="38" Column="24" TopLine="26"/>
</Position25> </Position25>
<Position26>
<Filename Value="framescript.pas"/>
<Caret Line="69" Column="29" TopLine="46"/>
</Position26>
<Position27>
<Filename Value="colourhistory.pas"/>
<Caret Line="113" Column="3" TopLine="96"/>
</Position27>
<Position28>
<Filename Value="colourhistory.pas"/>
<Caret Line="36" Column="49" TopLine="23"/>
</Position28>
<Position29>
<Filename Value="testunit.pas"/>
<Caret Line="14" Column="63" TopLine="1"/>
</Position29>
<Position30>
<Filename Value="colourhistory.pas"/>
<Caret Line="115" Column="43" TopLine="100"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>