WebSVN – plumbers – Blame – /trunk/SceneEditor/Unit1.dfm

Rev	Author	Line No.	Line
2	daniel-mar	1	object Form1: TForm1
		2	Left = 0
		3	Top = 0
		4	BorderIcons = [biSystemMenu, biMinimize]
		5	BorderStyle = bsSingle
		6	Caption = 'ShowTime Editor'
6	daniel-mar	7	ClientHeight = 608
2	daniel-mar	8	ClientWidth = 1043
		9	Color = clBtnFace
		10	Font.Charset = DEFAULT_CHARSET
		11	Font.Color = clWindowText
		12	Font.Height = -11
		13	Font.Name = 'Tahoma'
		14	Font.Style = []
		15	Menu = MainMenu1
		16	OldCreateOrder = False
		17	Position = poScreenCenter
		18	OnCreate = FormCreate
		19	OnShow = FormShow
		20	DesignSize = (
		21	1043
6	daniel-mar	22	608)
2	daniel-mar	23	PixelsPerInch = 96
		24	TextHeight = 13
		25	object ListBox1: TListBox
		26	Left = 8
		27	Top = 8
		28	Width = 209
		29	Height = 466
		30	ItemHeight = 13
		31	Items.Strings = (
		32	'SC99'
		33	'SC00'
		34	'SC01'
		35	'SC02')
		36	TabOrder = 0
		37	OnClick = ListBox1Click
		38	OnDblClick = ListBox1DblClick
		39	end
		40	object Button1: TButton
		41	Left = 97
		42	Top = 485
		43	Width = 33
		44	Height = 25
		45	Caption = '+'
		46	TabOrder = 3
		47	OnClick = Button1Click
		48	end
		49	object Button2: TButton
		50	Left = 136
		51	Top = 485
		52	Width = 33
		53	Height = 25
		54	Caption = '-'
		55	TabOrder = 4
		56	OnClick = Button2Click
		57	end
		58	object Button3: TButton
		59	Left = 8
6	daniel-mar	60	Top = 554
2	daniel-mar	61	Width = 105
		62	Height = 46
		63	Anchors = [akLeft, akBottom]
		64	Caption = 'Save'
		65	TabOrder = 6
		66	OnClick = Button3Click
		67	end
		68	object Button4: TButton
		69	Left = 8
		70	Top = 485
		71	Width = 33
		72	Height = 25
		73	Caption = '^'
		74	TabOrder = 1
		75	OnClick = Button4Click
		76	end
		77	object Button5: TButton
		78	Left = 47
		79	Top = 485
		80	Width = 33
		81	Height = 25
		82	Caption = 'v'
		83	TabOrder = 2
		84	OnClick = Button5Click
		85	end
		86	object Button10: TButton
		87	Left = 112
6	daniel-mar	88	Top = 554
2	daniel-mar	89	Width = 105
		90	Height = 46
		91	Anchors = [akLeft, akBottom]
		92	Caption = 'Save + Test'
		93	TabOrder = 7
		94	OnClick = Button10Click
		95	end
		96	object PageControl2: TPageControl
		97	Left = 223
		98	Top = 8
		99	Width = 812
6	daniel-mar	100	Height = 592
2	daniel-mar	101	ActivePage = TabSheet4
		102	Anchors = [akLeft, akTop, akRight, akBottom]
		103	TabOrder = 8
		104	object TabSheet4: TTabSheet
		105	Caption = 'Pictures'
		106	DesignSize = (
		107	804
6	daniel-mar	108	564)
2	daniel-mar	109	object Label1: TLabel
		110	Left = 16
		111	Top = 24
		112	Width = 77
		113	Height = 13
		114	Caption = 'SceneID (0-99):'
		115	end
		116	object Label2: TLabel
		117	Left = 15
		118	Top = 63
		119	Width = 79
		120	Height = 13
		121	Caption = 'Sound playback:'
		122	end
		123	object Label12: TLabel
		124	Left = 272
		125	Top = 127
		126	Width = 67
		127	Height = 13
		128	Caption = 'Duration [ds]:'
		129	end
		130	object Label16: TLabel
		131	Left = 368
		132	Top = 124
		133	Width = 46
		134	Height = 13
		135	Caption = 'Filename:'
		136	end
		137	object Label17: TLabel
		138	Left = 162
		139	Top = 24
		140	Width = 126
		141	Height = 13
		142	Caption = 'Attention: ID exists twice!'
		143	Font.Charset = DEFAULT_CHARSET
		144	Font.Color = clRed
		145	Font.Height = -11
		146	Font.Name = 'Tahoma'
		147	Font.Style = []
		148	ParentFont = False
		149	Visible = False
		150	end
		151	object Label19: TLabel
		152	Left = 272
		153	Top = 432
		154	Width = 62
		155	Height = 13
		156	Caption = 'Unused files:'
		157	end
		158	object Label24: TLabel
		159	Left = 247
		160	Top = 63
		161	Width = 118
		162	Height = 13
		163	Caption = 'Attention: File not found'
		164	Font.Charset = DEFAULT_CHARSET
		165	Font.Color = clRed
		166	Font.Height = -11
		167	Font.Name = 'Tahoma'
		168	Font.Style = []
		169	ParentFont = False
		170	Visible = False
		171	end
		172	object Label25: TLabel
		173	Left = 247
		174	Top = 82
		175	Width = 222
		176	Height = 13
		177	Caption = 'Attention: Low Quality file (E*.wav) not found'
		178	Font.Charset = DEFAULT_CHARSET
		179	Font.Color = clRed
		180	Font.Height = -11
		181	Font.Name = 'Tahoma'
		182	Font.Style = []
		183	ParentFont = False
		184	Visible = False
		185	end
		186	object Label26: TLabel
		187	Left = 368
		188	Top = 170
		189	Width = 118
		190	Height = 13
		191	Caption = 'Attention: File not found'
		192	Font.Charset = DEFAULT_CHARSET
		193	Font.Color = clRed
		194	Font.Height = -11
		195	Font.Name = 'Tahoma'
		196	Font.Style = []
		197	ParentFont = False
		198	Visible = False
		199	end
		200	object SpinEdit1: TSpinEdit
		201	Left = 99
		202	Top = 21
		203	Width = 57
		204	Height = 22
		205	MaxValue = 99
		206	MinValue = 0
		207	TabOrder = 0
		208	Value = 0
		209	OnChange = SpinEdit1Change
		210	end
		211	object Edit1: TEdit
		212	Left = 100
		213	Top = 60
		214	Width = 104
		215	Height = 21
		216	MaxLength = 13
		217	TabOrder = 1
		218	OnChange = Edit1Change
		219	end
		220	object Button6: TButton
		221	Left = 100
		222	Top = 453
		223	Width = 33
		224	Height = 25
		225	Caption = '+'
		226	TabOrder = 6
		227	OnClick = Button6Click
		228	end
		229	object Button7: TButton
		230	Left = 139
		231	Top = 453
		232	Width = 33
		233	Height = 25
		234	Caption = '-'
		235	TabOrder = 7
		236	OnClick = Button7Click
		237	end
		238	object Button8: TButton
		239	Left = 11
		240	Top = 453
		241	Width = 33
		242	Height = 25
		243	Caption = '^'
		244	TabOrder = 4
		245	OnClick = Button8Click
		246	end
		247	object Button9: TButton
		248	Left = 50
		249	Top = 453
		250	Width = 33
		251	Height = 25
		252	Caption = 'v'
		253	TabOrder = 5
		254	OnClick = Button9Click
		255	end
		256	object ListBox2: TListBox
		257	Left = 10
		258	Top = 127
		259	Width = 239
		260	Height = 306
		261	ItemHeight = 13
		262	TabOrder = 3
		263	OnClick = ListBox2Click
		264	OnDblClick = ListBox2DblClick
		265	end
		266	object Edit3: TEdit
		267	Left = 368
		268	Top = 143
		269	Width = 137
		270	Height = 21
		271	TabOrder = 9
		272	OnChange = Edit3Change
		273	end
		274	object SpinEdit13: TSpinEdit
		275	Left = 272
		276	Top = 143
		277	Width = 65
		278	Height = 22
		279	MaxValue = 0
		280	MinValue = 0
		281	TabOrder = 8
		282	Value = 0
		283	OnChange = SpinEdit13Change
		284	end
		285	object Button13: TButton
		286	Left = 664
		287	Top = 19
		288	Width = 120
		289	Height = 25
		290	Anchors = [akTop, akRight]
		291	Caption = 'Open scene folder'
		292	TabOrder = 12
		293	OnClick = Button13Click
		294	end
		295	object MediaPlayer1: TMediaPlayer
		296	Left = 684
		297	Top = 371
		298	Width = 29
		299	Height = 30
		300	ColoredButtons = []
		301	VisibleButtons = [btPlay]
		302	DoubleBuffered = True
		303	Visible = False
		304	ParentDoubleBuffered = False
		305	TabOrder = 14
		306	end
		307	object GroupBox1: TGroupBox
		308	Left = 591
		309	Top = 63
		310	Width = 185
		311	Height = 121
		312	Caption = 'Scene length'
		313	TabOrder = 15
		314	object Label20: TLabel
		315	Left = 16
		316	Top = 24
		317	Width = 119
		318	Height = 13
		319	Caption = 'Picture sequence length:'
		320	end
		321	object Label21: TLabel
		322	Left = 16
		323	Top = 43
		324	Width = 37
		325	Height = 13
		326	Caption = 'Label21'
		327	end
		328	object Label22: TLabel
		329	Left = 16
		330	Top = 72
		331	Width = 91
		332	Height = 13
		333	Caption = 'Soundtrack length:'
		334	end
		335	object Label23: TLabel
		336	Left = 16
		337	Top = 91
		338	Width = 37
		339	Height = 13
		340	Caption = 'Label23'
		341	end
		342	end
		343	object GroupBox2: TGroupBox
		344	Left = 591
		345	Top = 190
		346	Width = 185
		347	Height = 167
		348	Caption = 'Playback'
		349	TabOrder = 13
		350	object Label18: TLabel
		351	Left = 14
		352	Top = 128
		353	Width = 153
		354	Height = 24
		355	Alignment = taCenter
		356	AutoSize = False
		357	Caption = 'Label18'
		358	Font.Charset = DEFAULT_CHARSET
		359	Font.Color = clWindowText
		360	Font.Height = -20
		361	Font.Name = 'Tahoma'
		362	Font.Style = []
		363	ParentFont = False
		364	end
		365	object Button15: TButton
		366	Left = 23
		367	Top = 27
		368	Width = 137
		369	Height = 25
		370	Caption = 'Start from here'
		371	TabOrder = 0
		372	OnClick = Button15Click
		373	end
		374	object Button17: TButton
		375	Left = 22
		376	Top = 89
		377	Width = 137
		378	Height = 25
		379	Caption = 'Stop'
		380	TabOrder = 2
		381	OnClick = Button17Click
		382	end
		383	object Button16: TButton
		384	Left = 23
		385	Top = 58
		386	Width = 137
		387	Height = 25
		388	Caption = 'Start from beginning'
		389	TabOrder = 1
		390	OnClick = Button16Click
		391	end
		392	end
		393	object ListBox3: TListBox
		394	Left = 272
		395	Top = 453
		396	Width = 225
		397	Height = 97
		398	ItemHeight = 13
		399	PopupMenu = PopupMenu1
		400	TabOrder = 11
		401	OnDblClick = ListBox3DblClick
		402	OnMouseDown = ListBox3MouseDown
		403	end
		404	object Button12: TButton
		405	Left = 511
		406	Top = 143
		407	Width = 26
		408	Height = 21
		409	Caption = '1'
		410	Font.Charset = DEFAULT_CHARSET
		411	Font.Color = clWindowText
		412	Font.Height = -15
		413	Font.Name = 'Wingdings'
		414	Font.Style = []
		415	ParentFont = False
		416	TabOrder = 10
		417	Visible = False
		418	OnClick = Button12Click
		419	end
		420	object Button18: TButton
		421	Left = 210
		422	Top = 60
		423	Width = 31
		424	Height = 21
		425	Caption = '1'
		426	Font.Charset = DEFAULT_CHARSET
		427	Font.Color = clWindowText
		428	Font.Height = -15
		429	Font.Name = 'Wingdings'
		430	Font.Style = []
		431	ParentFont = False
		432	TabOrder = 2
		433	Visible = False
		434	OnClick = Button18Click
		435	end
6	daniel-mar	436	object Panel2: TPanel
		437	Left = 272
		438	Top = 189
		439	Width = 305
		440	Height = 212
		441	TabOrder = 16
		442	object Image2: TImage
		443	Left = 0
		444	Top = 1
		445	Width = 305
		446	Height = 211
		447	Stretch = True
		448	OnMouseMove = Image1MouseMove
		449	end
		450	end
2	daniel-mar	451	end
		452	object TabSheet5: TTabSheet
		453	Caption = 'Decision'
		454	ImageIndex = 1
		455	object Label3: TLabel
		456	Left = 16
		457	Top = 16
		458	Width = 80
		459	Height = 13
		460	Caption = 'Decision-Picture:'
		461	end
		462	object Label10: TLabel
		463	Left = 12
		464	Top = 552
		465	Width = 37
		466	Height = 13
		467	Caption = 'Label10'
		468	end
		469	object Label11: TLabel
		470	Left = 320
		471	Top = 17
		472	Width = 39
		473	Height = 13
		474	Caption = 'Actions:'
		475	end
		476	object Label27: TLabel
		477	Left = 183
		478	Top = 38
		479	Width = 118
		480	Height = 13
		481	Caption = 'Attention: File not found'
		482	Font.Charset = DEFAULT_CHARSET
		483	Font.Color = clRed
		484	Font.Height = -11
		485	Font.Name = 'Tahoma'
		486	Font.Style = []
		487	ParentFont = False
		488	Visible = False
		489	end
		490	object Label28: TLabel
		491	Left = 427
		492	Top = 509
		493	Width = 180
		494	Height = 13
		495	Caption = 'Left mouse button: Set top-left coord'
		496	Visible = False
		497	end
		498	object Label29: TLabel
		499	Left = 427
		500	Top = 528
		501	Width = 210
		502	Height = 13
		503	Caption = 'Right mouse button: Set bottom-right coord'
		504	Visible = False
		505	end
		506	object Edit2: TEdit
		507	Left = 12
		508	Top = 35
		509	Width = 134
		510	Height = 21
		511	MaxLength = 13
		512	TabOrder = 0
		513	OnChange = Edit2Change
		514	end
		515	object PageControl1: TPageControl
		516	Left = 12
		517	Top = 64
		518	Width = 365
		519	Height = 185
		520	ActivePage = TabSheet3
		521	TabOrder = 3
		522	object TabSheet1: TTabSheet
		523	Caption = 'Action 1 (Red)'
		524	object Label5: TLabel
		525	Left = 171
		526	Top = 72
		527	Width = 29
		528	Height = 13
		529	Caption = 'Points'
		530	end
		531	object Label4: TLabel
		532	Left = 16
		533	Top = 72
		534	Width = 116
		535	Height = 13
		536	Caption = 'Grid corner coordinates:'
		537	end
		538	object Label6: TLabel
		539	Left = 16
		540	Top = 16
		541	Width = 36
		542	Height = 13
		543	Caption = 'Target:'
		544	end
		545	object SpinEdit6: TSpinEdit
		546	Left = 171
		547	Top = 94
		548	Width = 126
		549	Height = 22
		550	MaxValue = 0
		551	MinValue = 0
		552	TabOrder = 5
		553	Value = 0
		554	OnChange = ActionSpinEditsChange
		555	end
		556	object SpinEdit2: TSpinEdit
		557	Left = 79
		558	Top = 91
		559	Width = 57
		560	Height = 22
		561	MaxValue = 0
		562	MinValue = 0
		563	TabOrder = 2
		564	Value = 0
		565	OnChange = ActionSpinEditsChange
		566	end
		567	object SpinEdit3: TSpinEdit
		568	Left = 16
		569	Top = 91
		570	Width = 57
		571	Height = 22
		572	MaxValue = 0
		573	MinValue = 0
		574	TabOrder = 1
		575	Value = 0
		576	OnChange = ActionSpinEditsChange
		577	end
		578	object SpinEdit4: TSpinEdit
		579	Left = 16
		580	Top = 119
		581	Width = 57
		582	Height = 22
		583	MaxValue = 0
		584	MinValue = 0
		585	TabOrder = 3
		586	Value = 0
		587	OnChange = ActionSpinEditsChange
		588	end
		589	object SpinEdit5: TSpinEdit
		590	Left = 79
		591	Top = 119
		592	Width = 57
		593	Height = 22
		594	MaxValue = 0
		595	MinValue = 0
		596	TabOrder = 4
		597	Value = 0
		598	OnChange = ActionSpinEditsChange
		599	end
		600	object ComboBox1: TComboBox
		601	Left = 16
		602	Top = 35
		603	Width = 145
		604	Height = 21
		605	Style = csDropDownList
		606	TabOrder = 0
		607	OnChange = ActionTargetChange
		608	end
		609	end
		610	object TabSheet2: TTabSheet
		611	Caption = 'Action 2 (Green)'
		612	ImageIndex = 1
		613	object Label13: TLabel
		614	Left = 16
		615	Top = 16
		616	Width = 36
		617	Height = 13
		618	Caption = 'Target:'
		619	end
		620	object Label14: TLabel
		621	Left = 16
		622	Top = 72
		623	Width = 116
		624	Height = 13
		625	Caption = 'Grid corner coordinates:'
		626	end
		627	object Label15: TLabel
		628	Left = 171
		629	Top = 72
		630	Width = 29
		631	Height = 13
		632	Caption = 'Points'
		633	end
		634	object ComboBox2: TComboBox
		635	Left = 16
		636	Top = 35
		637	Width = 145
		638	Height = 21
		639	Style = csDropDownList
		640	TabOrder = 0
		641	OnChange = ActionTargetChange
		642	end
		643	object SpinEdit17: TSpinEdit
		644	Left = 16
		645	Top = 91
		646	Width = 57
		647	Height = 22
		648	MaxValue = 0
		649	MinValue = 0
		650	TabOrder = 1
		651	Value = 0
		652	OnChange = ActionSpinEditsChange
		653	end
		654	object SpinEdit18: TSpinEdit
		655	Left = 79
		656	Top = 91
		657	Width = 57
		658	Height = 22
		659	MaxValue = 0
		660	MinValue = 0
		661	TabOrder = 2
		662	Value = 0
		663	OnChange = ActionSpinEditsChange
		664	end
		665	object SpinEdit19: TSpinEdit
		666	Left = 16
		667	Top = 119
		668	Width = 57
		669	Height = 22
		670	MaxValue = 0
		671	MinValue = 0
		672	TabOrder = 3
		673	Value = 0
		674	OnChange = ActionSpinEditsChange
		675	end
		676	object SpinEdit20: TSpinEdit
		677	Left = 79
		678	Top = 119
		679	Width = 57
		680	Height = 22
		681	MaxValue = 0
		682	MinValue = 0
		683	TabOrder = 4
		684	Value = 0
		685	OnChange = ActionSpinEditsChange
		686	end
		687	object SpinEdit21: TSpinEdit
		688	Left = 171
		689	Top = 94
		690	Width = 126
		691	Height = 22
		692	MaxValue = 0
		693	MinValue = 0
		694	TabOrder = 5
		695	Value = 0
		696	OnChange = ActionSpinEditsChange
		697	end
		698	end
		699	object TabSheet3: TTabSheet
		700	Caption = 'Action 3 (Blue)'
		701	ImageIndex = 2
		702	object Label7: TLabel
		703	Left = 16
		704	Top = 16
		705	Width = 36
		706	Height = 13
		707	Caption = 'Target:'
		708	end
		709	object Label8: TLabel
		710	Left = 16
		711	Top = 72
		712	Width = 116
		713	Height = 13
		714	Caption = 'Grid corner coordinates:'
		715	end
		716	object Label9: TLabel
		717	Left = 171
		718	Top = 72
		719	Width = 29
		720	Height = 13
		721	Caption = 'Points'
		722	end
		723	object ComboBox3: TComboBox
		724	Left = 16
		725	Top = 35
		726	Width = 145
		727	Height = 21
		728	Style = csDropDownList
		729	TabOrder = 0
		730	OnChange = ActionTargetChange
		731	end
		732	object SpinEdit7: TSpinEdit
		733	Left = 16
		734	Top = 91
		735	Width = 57
		736	Height = 22
		737	MaxValue = 0
		738	MinValue = 0
		739	TabOrder = 1
		740	Value = 0
		741	OnChange = ActionSpinEditsChange
		742	end
		743	object SpinEdit8: TSpinEdit
		744	Left = 79
		745	Top = 91
		746	Width = 57
		747	Height = 22
		748	MaxValue = 0
		749	MinValue = 0
		750	TabOrder = 2
		751	Value = 0
		752	OnChange = ActionSpinEditsChange
		753	end
		754	object SpinEdit9: TSpinEdit
		755	Left = 79
		756	Top = 119
		757	Width = 57
		758	Height = 22
		759	MaxValue = 0
		760	MinValue = 0
		761	TabOrder = 3
		762	Value = 0
		763	OnChange = ActionSpinEditsChange
		764	end
		765	object SpinEdit10: TSpinEdit
		766	Left = 16
		767	Top = 119
		768	Width = 57
		769	Height = 22
		770	MaxValue = 0
		771	MinValue = 0
		772	TabOrder = 4
		773	Value = 0
		774	OnChange = ActionSpinEditsChange
		775	end
		776	object SpinEdit11: TSpinEdit
		777	Left = 171
		778	Top = 94
		779	Width = 126
		780	Height = 22
		781	MaxValue = 0
		782	MinValue = 0
		783	TabOrder = 5
		784	Value = 0
		785	OnChange = ActionSpinEditsChange
		786	end
		787	end
		788	end
		789	object SpinEdit12: TSpinEdit
		790	Left = 320
		791	Top = 36
		792	Width = 57
		793	Height = 22
		794	MaxValue = 3
		795	MinValue = 1
		796	TabOrder = 2
		797	Value = 1
		798	OnChange = SpinEdit12Change
		799	end
		800	object Button11: TButton
		801	Left = 147
		802	Top = 35
		803	Width = 30
		804	Height = 21
		805	Caption = '1'
		806	Font.Charset = DEFAULT_CHARSET
		807	Font.Color = clWindowText
		808	Font.Height = -15
		809	Font.Name = 'Wingdings'
		810	Font.Style = []
		811	ParentFont = False
		812	TabOrder = 1
		813	Visible = False
		814	OnClick = Button11Click
		815	end
6	daniel-mar	816	object Panel1: TPanel
		817	Left = 12
		818	Top = 255
		819	Width = 409
		820	Height = 291
		821	TabOrder = 4
		822	object Image1: TImage
		823	Left = 0
		824	Top = 1
		825	Width = 409
		826	Height = 290
		827	Cursor = crCross
		828	Stretch = True
		829	OnMouseDown = Image1MouseDown
		830	OnMouseEnter = Image1MouseEnter
		831	OnMouseLeave = Image1MouseLeave
		832	OnMouseMove = Image1MouseMove
		833	end
		834	end
2	daniel-mar	835	end
		836	end
		837	object Button14: TButton
		838	Left = 8
		839	Top = 529
		840	Width = 75
		841	Height = 25
		842	Caption = 'New'
		843	TabOrder = 5
		844	OnClick = Button14Click
		845	end
		846	object Timer1: TTimer
		847	Enabled = False
		848	Interval = 100
		849	OnTimer = Timer1Timer
		850	Left = 955
		851	Top = 408
		852	end
		853	object MainMenu1: TMainMenu
		854	Left = 963
		855	Top = 496
		856	object File1: TMenuItem
		857	Caption = 'File'
		858	object Newfile1: TMenuItem
		859	Caption = 'New file'
		860	OnClick = Button14Click
		861	end
		862	object N2: TMenuItem
		863	Caption = '-'
		864	end
		865	object Savetogamebin1: TMenuItem
		866	Caption = 'Save to GAME.BIN'
		867	OnClick = Button3Click
		868	end
		869	object Saveandtest1: TMenuItem
		870	Caption = 'Save to GAME.BIN and Test'
		871	OnClick = Button10Click
		872	end
		873	object N1: TMenuItem
		874	Caption = '-'
		875	end
		876	object Close1: TMenuItem
		877	Caption = 'Terminate program'
		878	OnClick = Close1Click
		879	end
		880	end
		881	object Help1: TMenuItem
		882	Caption = 'Help'
		883	object About1: TMenuItem
		884	Caption = 'About'
		885	OnClick = About1Click
		886	end
		887	end
		888	end
		889	object PopupMenu1: TPopupMenu
		890	Left = 763
		891	Top = 496
		892	object Addtoscene1: TMenuItem
		893	Caption = 'Add to scene'
		894	OnClick = Addtoscene1Click
		895	end
		896	end
		897	end

Subversion Repositories plumbers

plumbers/trunk/SceneEditor/Unit1.dfm @ 8 – Rev 6