First few bits of ScriptManager.

Nothing much, just committing from my other computer so I can resume work on it
here.
This commit is contained in:
Merlijn Wajer 2010-06-06 13:05:15 +02:00
parent 8265555e82
commit 535d6f63d7
4 changed files with 345 additions and 0 deletions

View File

@ -0,0 +1,183 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<General>
<Flags>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<Language Value=""/>
<CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<UsageCount Value="24"/>
</Unit0>
<Unit1>
<Filename Value="scriptmanager.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="scriptmanager"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="77" Y="17"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../../../lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="1276"/>
<CursorPos X="1" Y="1294"/>
<SyntaxHighlighter Value="FreePascal"/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="Text"/>
</Unit2>
</Units>
<JumpHistory Count="16" HistoryIndex="15">
<Position1>
<Filename Value="scriptmanager.pas"/>
<Caret Line="15" Column="32" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="scriptmanager.pas"/>
<Caret Line="19" Column="32" TopLine="1"/>
</Position2>
<Position3>
<Filename Value="scriptmanager.pas"/>
<Caret Line="13" Column="32" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="scriptmanager.pas"/>
<Caret Line="35" Column="29" TopLine="4"/>
</Position4>
<Position5>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/>
</Position5>
<Position6>
<Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="29" TopLine="4"/>
</Position6>
<Position7>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/>
</Position7>
<Position8>
<Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="29" TopLine="4"/>
</Position8>
<Position9>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/>
</Position9>
<Position10>
<Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="29" TopLine="4"/>
</Position10>
<Position11>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/>
</Position11>
<Position12>
<Filename Value="scriptmanager.pas"/>
<Caret Line="38" Column="37" TopLine="7"/>
</Position12>
<Position13>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="37" TopLine="6"/>
</Position13>
<Position14>
<Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="37" TopLine="5"/>
</Position14>
<Position15>
<Filename Value="scriptmanager.pas"/>
<Caret Line="11" Column="52" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="scriptmanager.pas"/>
<Caret Line="24" Column="86" TopLine="1"/>
</Position16>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<TargetCPU Value="arm"/>
<TargetOS Value="Linux"/>
</CodeGeneration>
<Linking>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -0,0 +1,20 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, scriptmanager
{ you can add units after this };
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

View File

@ -0,0 +1,100 @@
object Form1: TForm1
Left = 369
Height = 567
Top = 144
Width = 825
ActiveControl = Button1
Caption = 'Form1'
ClientHeight = 567
ClientWidth = 825
LCLVersion = '0.9.29'
object ListView1: TListView
Left = 32
Height = 520
Top = 24
Width = 216
Columns = <
item
Caption = 'Scripts'
Width = 414
end>
IconOptions.Arrangement = iaLeft
ItemIndex = -1
Items.LazData = {
640000000400000000000000FFFFFFFFFFFFFFFF000000000100000061000000
00FFFFFFFFFFFFFFFF00000000050000004974656D3100000000FFFFFFFFFFFF
FFFF00000000040000006664686400000000FFFFFFFFFFFFFFFF000000000200
00006466
}
LargeImages = ImageList1
ScrollBars = ssAutoBoth
SmallImages = ImageList1
StateImages = ImageList1
TabOrder = 0
ViewStyle = vsReport
end
object ListBox1: TListBox
Left = 560
Height = 520
Top = 24
Width = 240
Items.Strings = (
'wat'
'wa'
'asd'
'd'
'd'
)
ItemHeight = 40
Style = lbOwnerDrawFixed
TabOrder = 1
end
object Button1: TButton
Left = 360
Height = 25
Top = 24
Width = 75
Caption = 'Button1'
OnClick = Button1Click
TabOrder = 2
end
object ImageList1: TImageList
left = 288
top = 16
Bitmap = {
4C69010000001000000010000000424242004242420042424200424242004242
420042424200424242004242420042424200424242004242420042424200A155
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
4200424242004242420042424200424242004242420042424200A15542FFFFDA
D0FFD05E42FFA15542FFA15542FF424242004242420042424200424242004242
42004242420042424200424242004242420042424200A15542FFFFDAD0FFD05E
42FFD05E42FFA15542FFA15542FF424242004242420042424200424242004242
4200424242004242420042424200A15542FFA15542FFFFDAD0FFD05E42FFD05E
42FFA15542FFA15542FFA15542FF424242004242420042424200424242004242
42004242420042424200A15542FFFFDAD0FFA15542FFD05E42FFD05E42FFA155
42FFA15542FFA15542FF42424263424242004242420042424200FFFFFF00FFFF
FF00FFFFFF00FFFFFF004242420BA15542FFFFDAD0FFA15542FFD05E42FFA155
42FFA15542FF424242634242424C424242004242420042424200FFFFFF00FFFF
FF00FFFFFF00FFFFFF00838383FFFFFFFFFFA15542FFFFDAD0FFA15542FFA155
42FF424242634242424C42424219424242004242420042424200FFFFFF00FFFF
FF00FFFFFF00838383FFFFFFFFFFE5E5E5FFA1A1A1FFA15542FFFFDAD0FFA155
42FF424242584242421C42424203424242004242420042424200FFFFFF00FFFF
FF00838383FFFFFFFFFFE5E5E5FFA1A1A1FF838383FF42424263A15542FF4242
42604242424A4242420E42424200424242004242420042424200FFFFFF008383
83FFFFFFFFFFE5E5E5FFA1A1A1FF838383FF424242634242424C424242274242
423E424242194242420342424200424242004242420042424200838383FFFFFF
FFFFE5E5E5FFA1A1A1FF838383FF424242634242424C42424219424242064242
420B4242420242424200424242004242420042424200838383FFFFFFFFFFE5E5
E5FFA1A1A1FF838383FF424242634242424C4242421942424203424242004242
420042424200424242004242420042424200838383FFFFFFFFFFE5E5E5FFA1A1
A1FF838383FF424242634242424C424242194242420342424200424242004242
420042424200424242004242420042424200838383FFE5E5E5FFA1A1A1FF8383
83FF424242634242424C4242421942424203FFFFFF0042424200424242004242
4200424242004242420042424200838383FFE5E5E5FF838383FF838383FF4242
42634242424C4242421942424203FFFFFF00FFFFFF0042424200424242004242
4200424242004242420042424200838383FF838383FF42424260424242584242
424A424242194242420342424200424242004242420042424200424242004242
4200424242004242420042424200
}
end
end

View File

@ -0,0 +1,42 @@
unit scriptmanager;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, ComCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
ImageList1: TImageList;
ListBox1: TListBox;
ListView1: TListView;
TreeView1: TTreeView;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.