Did lots on GUI. Tabs extended, now use shortcuts, save all etc. Tab-popup.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@167 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-11-01 13:56:54 +00:00
parent 8a101c65f5
commit a3625f5d07
11 changed files with 2188 additions and 1500 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 488 B

After

Width:  |  Height:  |  Size: 479 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 493 B

After

Width:  |  Height:  |  Size: 386 B

BIN
Images/closetabs.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 516 B

View File

@ -1,5 +1,5 @@
pause,stop: From Lazarus (http://lazarus.freepascal.org) pause,stop: From Lazarus (http://lazarus.freepascal.org)
addtab,closetab,cut,new,open,paste,redo,run,save,undo: Mark James http://www.famfamfam.com/lab/icons/silk/ cut,new,open,paste,redo,run,save,undo: Mark James http://www.famfamfam.com/lab/icons/silk/
eraser,terminate: Yusuke Kamiyamane http://www.pinvoke.com/ closetab,closetabs,addtab,eraser,terminate: Yusuke Kamiyamane http://www.pinvoke.com/
pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL pickcolor: From the Crystal Clear Project (http://www.everaldo.com/crystal/) licensed under LGPL
crosshair: http://led24.de/iconset/ or http://led24.de/ would be appreciated. Follow us on twitter http://twitter.com/gasyoun or email leds24@gmail.com 512 icons 20/05/2009 crosshair: http://led24.de/iconset/ or http://led24.de/ would be appreciated. Follow us on twitter http://twitter.com/gasyoun or email leds24@gmail.com 512 icons 20/05/2009

BIN
Images/saveall.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 691 B

View File

@ -228,14 +228,6 @@ object ScriptFrame: TScriptFrame
Command = ecLineBreak Command = ecLineBreak
ShortCut = 16461 ShortCut = 16461
end end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item item
Command = ecBlockUnindent Command = ecBlockUnindent
ShortCut = 24661 ShortCut = 24661

View File

@ -1,3 +1,5 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TScriptFrame','FORMDATA',[ LazarusResources.Add('TScriptFrame','FORMDATA',[
'TPF0'#12'TScriptFrame'#11'ScriptFrame'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2 'TPF0'#12'TScriptFrame'#11'ScriptFrame'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2
+#0#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'TabOrd' +#0#5'Width'#3#144#1#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'TabOrd'
@ -41,111 +43,110 @@ LazarusResources.Add('TScriptFrame','FORMDATA',[
+'ut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#2#13#0#1#7'Com' +'ut'#4#8#160#0#0#0#1#7'Command'#7#11'ecLineBreak'#8'ShortCut'#2#13#0#1#7'Com'
+'mand'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'Command'#7#6'ecCopy'#8'Shor' +'mand'#7#11'ecSelectAll'#8'ShortCut'#3'A@'#0#1#7'Command'#7#6'ecCopy'#8'Shor'
+'tCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8'ShortCut'#3'I`'#0#1#7'Comm' +'tCut'#3'C@'#0#1#7'Command'#7#13'ecBlockIndent'#8'ShortCut'#3'I`'#0#1#7'Comm'
+'and'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Command'#7#12'ecInsertLine'#8 +'and'#7#11'ecLineBreak'#8'ShortCut'#3'M@'#0#1#7'Command'#7#15'ecBlockUninden'
+'ShortCut'#3'N@'#0#1#7'Command'#7#12'ecDeleteWord'#8'ShortCut'#3'T@'#0#1#7'C' +'t'#8'ShortCut'#3'U`'#0#1#7'Command'#7#7'ecPaste'#8'ShortCut'#3'V@'#0#1#7'Co'
+'ommand'#7#15'ecBlockUnindent'#8'ShortCut'#3'U`'#0#1#7'Command'#7#7'ecPaste' +'mmand'#7#5'ecCut'#8'ShortCut'#3'X@'#0#1#7'Command'#7#12'ecDeleteLine'#8'Sho'
+#8'ShortCut'#3'V@'#0#1#7'Command'#7#5'ecCut'#8'ShortCut'#3'X@'#0#1#7'Command' +'rtCut'#3'Y@'#0#1#7'Command'#7#11'ecDeleteEOL'#8'ShortCut'#3'Y`'#0#1#7'Comma'
+#7#12'ecDeleteLine'#8'ShortCut'#3'Y@'#0#1#7'Command'#7#11'ecDeleteEOL'#8'Sho' +'nd'#7#6'ecUndo'#8'ShortCut'#3'Z@'#0#1#7'Command'#7#6'ecRedo'#8'ShortCut'#3
+'rtCut'#3'Y`'#0#1#7'Command'#7#6'ecUndo'#8'ShortCut'#3'Z@'#0#1#7'Command'#7#6 +'Z`'#0#1#7'Command'#7#13'ecGotoMarker0'#8'ShortCut'#3'0@'#0#1#7'Command'#7#13
+'ecRedo'#8'ShortCut'#3'Z`'#0#1#7'Command'#7#13'ecGotoMarker0'#8'ShortCut'#3 +'ecGotoMarker1'#8'ShortCut'#3'1@'#0#1#7'Command'#7#13'ecGotoMarker2'#8'Short'
+'0@'#0#1#7'Command'#7#13'ecGotoMarker1'#8'ShortCut'#3'1@'#0#1#7'Command'#7#13 +'Cut'#3'2@'#0#1#7'Command'#7#13'ecGotoMarker3'#8'ShortCut'#3'3@'#0#1#7'Comma'
+'ecGotoMarker2'#8'ShortCut'#3'2@'#0#1#7'Command'#7#13'ecGotoMarker3'#8'Short' +'nd'#7#13'ecGotoMarker4'#8'ShortCut'#3'4@'#0#1#7'Command'#7#13'ecGotoMarker5'
+'Cut'#3'3@'#0#1#7'Command'#7#13'ecGotoMarker4'#8'ShortCut'#3'4@'#0#1#7'Comma' +#8'ShortCut'#3'5@'#0#1#7'Command'#7#13'ecGotoMarker6'#8'ShortCut'#3'6@'#0#1#7
+'nd'#7#13'ecGotoMarker5'#8'ShortCut'#3'5@'#0#1#7'Command'#7#13'ecGotoMarker6' +'Command'#7#13'ecGotoMarker7'#8'ShortCut'#3'7@'#0#1#7'Command'#7#13'ecGotoMa'
+#8'ShortCut'#3'6@'#0#1#7'Command'#7#13'ecGotoMarker7'#8'ShortCut'#3'7@'#0#1#7 +'rker8'#8'ShortCut'#3'8@'#0#1#7'Command'#7#13'ecGotoMarker9'#8'ShortCut'#3'9'
+'Command'#7#13'ecGotoMarker8'#8'ShortCut'#3'8@'#0#1#7'Command'#7#13'ecGotoMa' +'@'#0#1#7'Command'#7#12'ecSetMarker0'#8'ShortCut'#3'0`'#0#1#7'Command'#7#12
+'rker9'#8'ShortCut'#3'9@'#0#1#7'Command'#7#12'ecSetMarker0'#8'ShortCut'#3'0`' +'ecSetMarker1'#8'ShortCut'#3'1`'#0#1#7'Command'#7#12'ecSetMarker2'#8'ShortCu'
+#0#1#7'Command'#7#12'ecSetMarker1'#8'ShortCut'#3'1`'#0#1#7'Command'#7#12'ecS' +'t'#3'2`'#0#1#7'Command'#7#12'ecSetMarker3'#8'ShortCut'#3'3`'#0#1#7'Command'
+'etMarker2'#8'ShortCut'#3'2`'#0#1#7'Command'#7#12'ecSetMarker3'#8'ShortCut'#3 +#7#12'ecSetMarker4'#8'ShortCut'#3'4`'#0#1#7'Command'#7#12'ecSetMarker5'#8'Sh'
+'3`'#0#1#7'Command'#7#12'ecSetMarker4'#8'ShortCut'#3'4`'#0#1#7'Command'#7#12 +'ortCut'#3'5`'#0#1#7'Command'#7#12'ecSetMarker6'#8'ShortCut'#3'6`'#0#1#7'Com'
+'ecSetMarker5'#8'ShortCut'#3'5`'#0#1#7'Command'#7#12'ecSetMarker6'#8'ShortCu' +'mand'#7#12'ecSetMarker7'#8'ShortCut'#3'7`'#0#1#7'Command'#7#12'ecSetMarker8'
+'t'#3'6`'#0#1#7'Command'#7#12'ecSetMarker7'#8'ShortCut'#3'7`'#0#1#7'Command' +#8'ShortCut'#3'8`'#0#1#7'Command'#7#12'ecSetMarker9'#8'ShortCut'#3'9`'#0#1#7
+#7#12'ecSetMarker8'#8'ShortCut'#3'8`'#0#1#7'Command'#7#12'ecSetMarker9'#8'Sh' +'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'1'#160#0#0#0#1#7'Command'#7#12'Ec'
+'ortCut'#3'9`'#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'1'#160#0#0#0#1 +'FoldLevel2'#8'ShortCut'#4'2'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'Sh'
+#7'Command'#7#12'EcFoldLevel2'#8'ShortCut'#4'2'#160#0#0#0#1#7'Command'#7#12 +'ortCut'#4'3'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'4'#160
,'EcFoldLevel1'#8'ShortCut'#4'3'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8 ,#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'5'#160#0#0#0#1#7'Comman'
+'ShortCut'#4'4'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel1'#8'ShortCut'#4'5' +'d'#7#12'EcFoldLevel6'#8'ShortCut'#4'6'#160#0#0#0#1#7'Command'#7#12'EcFoldLe'
+#160#0#0#0#1#7'Command'#7#12'EcFoldLevel6'#8'ShortCut'#4'6'#160#0#0#0#1#7'Co' +'vel7'#8'ShortCut'#4'7'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel8'#8'ShortCut'
+'mmand'#7#12'EcFoldLevel7'#8'ShortCut'#4'7'#160#0#0#0#1#7'Command'#7#12'EcFo' +#4'8'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel9'#8'ShortCut'#4'9'#160#0#0#0#1
+'ldLevel8'#8'ShortCut'#4'8'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel9'#8'Shor' +#7'Command'#7#12'EcFoldLevel0'#8'ShortCut'#4'0'#160#0#0#0#1#7'Command'#7#13
+'tCut'#4'9'#160#0#0#0#1#7'Command'#7#12'EcFoldLevel0'#8'ShortCut'#4'0'#160#0 +'EcFoldCurrent'#8'ShortCut'#4'-'#160#0#0#0#1#7'Command'#7#15'EcUnFoldCurrent'
+#0#0#1#7'Command'#7#13'EcFoldCurrent'#8'ShortCut'#4'-'#160#0#0#0#1#7'Command' +#8'ShortCut'#4'+'#160#0#0#0#1#7'Command'#7#18'EcToggleMarkupWord'#8'ShortCut'
+#7#15'EcUnFoldCurrent'#8'ShortCut'#4'+'#160#0#0#0#1#7'Command'#7#18'EcToggle' +#4'M'#128#0#0#0#1#7'Command'#7#14'ecNormalSelect'#8'ShortCut'#3'N`'#0#1#7'Co'
+'MarkupWord'#8'ShortCut'#4'M'#128#0#0#0#1#7'Command'#7#14'ecNormalSelect'#8 +'mmand'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7'Command'#7#12'ecLineSel'
+'ShortCut'#3'N`'#0#1#7'Command'#7#14'ecColumnSelect'#8'ShortCut'#3'C`'#0#1#7 +'ect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'ShortCut'#2#9#0#1#7'Comm'
+'Command'#7#12'ecLineSelect'#8'ShortCut'#3'L`'#0#1#7'Command'#7#5'ecTab'#8'S' +'and'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Command'#7#14'ecMatchBracket'
+'hortCut'#2#9#0#1#7'Command'#7#10'ecShiftTab'#8'ShortCut'#3#9' '#0#1#7'Comma' +#8'ShortCut'#3'B`'#0#1#7'Command'#7#10'ecColSelUp'#8'ShortCut'#4'&'#160#0#0#0
+'nd'#7#14'ecMatchBracket'#8'ShortCut'#3'B`'#0#1#7'Command'#7#10'ecColSelUp'#8 +#1#7'Command'#7#12'ecColSelDown'#8'ShortCut'#4'('#160#0#0#0#1#7'Command'#7#12
+'ShortCut'#4'&'#160#0#0#0#1#7'Command'#7#12'ecColSelDown'#8'ShortCut'#4'(' +'ecColSelLeft'#8'ShortCut'#4'%'#160#0#0#0#1#7'Command'#7#13'ecColSelRight'#8
+#160#0#0#0#1#7'Command'#7#12'ecColSelLeft'#8'ShortCut'#4'%'#160#0#0#0#1#7'Co' +'ShortCut'#4''''#160#0#0#0#1#7'Command'#7#16'ecColSelPageDown'#8'ShortCut'#4
+'mmand'#7#13'ecColSelRight'#8'ShortCut'#4''''#160#0#0#0#1#7'Command'#7#16'ec' +'"'#160#0#0#0#1#7'Command'#7#18'ecColSelPageBottom'#8'ShortCut'#4'"'#224#0#0
+'ColSelPageDown'#8'ShortCut'#4'"'#160#0#0#0#1#7'Command'#7#18'ecColSelPageBo' +#0#1#7'Command'#7#14'ecColSelPageUp'#8'ShortCut'#4'!'#160#0#0#0#1#7'Command'
+'ttom'#8'ShortCut'#4'"'#224#0#0#0#1#7'Command'#7#14'ecColSelPageUp'#8'ShortC' +#7#15'ecColSelPageTop'#8'ShortCut'#4'!'#224#0#0#0#1#7'Command'#7#17'ecColSel'
+'ut'#4'!'#160#0#0#0#1#7'Command'#7#15'ecColSelPageTop'#8'ShortCut'#4'!'#224#0 +'LineStart'#8'ShortCut'#4'$'#160#0#0#0#1#7'Command'#7#15'ecColSelLineEnd'#8
+#0#0#1#7'Command'#7#17'ecColSelLineStart'#8'ShortCut'#4'$'#160#0#0#0#1#7'Com' +'ShortCut'#4'#'#160#0#0#0#1#7'Command'#7#17'ecColSelEditorTop'#8'ShortCut'#4
+'mand'#7#15'ecColSelLineEnd'#8'ShortCut'#4'#'#160#0#0#0#1#7'Command'#7#17'ec' +'$'#224#0#0#0#1#7'Command'#7#20'ecColSelEditorBottom'#8'ShortCut'#4'#'#224#0
+'ColSelEditorTop'#8'ShortCut'#4'$'#224#0#0#0#1#7'Command'#7#20'ecColSelEdito' +#0#0#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#5'ssAl'
+'rBottom'#8'ShortCut'#4'#'#224#0#0#0#0#12'MouseActions'#14#1#5'Shift'#11#0#9 +'t'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdD'
+'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8 +'own'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shif'
+'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2 +'t'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLe'
+#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#5 +'ft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#1#9'M'
+'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6 +'oveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#5'ssAlt'#0#9'Shif'
+'cdDown'#7'Command'#2#1#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0#0#1#5'S' +'tMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'cc'
+'hift'#11#5'ssAlt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbL' +'Single'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#0
+'eft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9 +#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#5'ssAlt'#0#9'ShiftMask'#11#7'ssS'
+'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#5'ssA' +'hift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Click'
+'lt'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#0#6'Button'#7#6'mbLeft'#10'ClickC' +'Dir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6'Option'#2#1#8'Priority'#2#0
+'ount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#3#9'MoveCaret'#9#6 +#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7
+'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7 +#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#12#9'MoveCaret'#8#6'Option'#2
+#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2 +#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'
+#12#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMa' +#10'ClickCount'#7#8'ccDouble'#8'ClickDir'#7#6'cdDown'#7'Command'#2#6#9'MoveC'
+'sk'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccDouble'#8'ClickDir'#7#6 +'aret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6
+'cdDown'#7'Command'#2#6#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'S' +'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccTriple'#8'ClickDir'#7#6'cdDown'#7
+'hift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccTri' +'Command'#2#7#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0
+'ple'#8'ClickDir'#7#6'cdDown'#7'Command'#2#7#9'MoveCaret'#9#6'Option'#2#0#8 +#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#6'ccQuad'#8'ClickD'
+'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10 +'ir'#7#6'cdDown'#7'Command'#2#8#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0
+'ClickCount'#7#6'ccQuad'#8'ClickDir'#7#6'cdDown'#7'Command'#2#8#9'MoveCaret' +#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7
+#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Butto' +#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#10#9'MoveCaret'#9#6'Option'
+'n'#7#8'mbMiddle'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Com' +#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#7'ssShift'#5
+'mand'#2#10#9'MoveCaret'#9#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#6's' +'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'Cli'
+'sCtrl'#0#9'ShiftMask'#11#7'ssShift'#5'ssAlt'#6'ssCtrl'#0#6'Button'#7#6'mbLe' +'ckDir'#7#4'cdUp'#7'Command'#2#11#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2
+'ft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#11#9'Mo' +#0#0#0#15'MouseSelActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6
+'veCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#15'MouseSelActions'#14#1#5'Shi' +'mbLeft'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9
+'ft'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#8'ccSingl' +#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#13'Lines.Strings'#1#6#12'p'
+'e'#8'ClickDir'#7#6'cdDown'#7'Command'#2#9#9'MoveCaret'#8#6'Option'#2#0#8'Pr' +'rogram new;'#6#5'begin'#6#4'end.'#0#21'BracketHighlightStyle'#7#8'sbhsBoth'
+'iority'#2#0#0#0#13'Lines.Strings'#1#6#12'program new;'#6#5'begin'#6#4'end.' +#8'OnChange'#7#13'SynEditChange'#16'OnProcessCommand'#7#21'SynEditProcessCom'
+#0#21'BracketHighlightStyle'#7#8'sbhsBoth'#8'OnChange'#7#13'SynEditChange'#16 +'mand'#19'OnSpecialLineColors'#7#24'SynEditSpecialLineColors'#0#18'TSynGutte'
+'OnProcessCommand'#7#21'SynEditProcessCommand'#19'OnSpecialLineColors'#7#24 +'rPartList'#0#0#15'TSynGutterMarks'#0#5'Width'#2#23#0#0#20'TSynGutterLineNum'
+'SynEditSpecialLineColors'#0#18'TSynGutterPartList'#0#0#15'TSynGutterMarks'#0 +'ber'#0#5'Width'#2#17#12'MouseActions'#14#0#21'MarkupInfo.Background'#7#9'cl'
+#5'Width'#2#23#0#0#20'TSynGutterLineNumber'#0#5'Width'#2#17#12'MouseActions' +'BtnFace'#21'MarkupInfo.Foreground'#7#6'clNone'#10'DigitCount'#2#2#30'ShowOn'
+#14#0#21'MarkupInfo.Background'#7#9'clBtnFace'#21'MarkupInfo.Foreground'#7#6 +'lyLineNumbersMultiplesOf'#2#1#9'ZeroStart'#8#12'LeadingZeros'#8#0#0#17'TSyn'
+'clNone'#10'DigitCount'#2#2#30'ShowOnlyLineNumbersMultiplesOf'#2#1#9'ZeroSta' +'GutterChanges'#0#5'Width'#2#4#13'ModifiedColor'#4#252#233#0#0#10'SavedColor'
+'rt'#8#12'LeadingZeros'#8#0#0#17'TSynGutterChanges'#0#5'Width'#2#4#13'Modifi' +#7#7'clGreen'#0#0#19'TSynGutterSeparator'#0#5'Width'#2#2#0#0#21'TSynGutterCo'
+'edColor'#4#252#233#0#0#10'SavedColor'#7#7'clGreen'#0#0#19'TSynGutterSeparat' +'deFolding'#0#12'MouseActions'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'
+'or'#0#5'Width'#2#2#0#0#21'TSynGutterCodeFolding'#0#12'MouseActions'#14#1#5 +#7#7'mbRight'#10'ClickCount'#7#8'ccSingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2
+'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#7'mbRight'#10'ClickCount'#7#8'ccS' +#16#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMa'
+'ingle'#8'ClickDir'#7#4'cdUp'#7'Command'#2#16#9'MoveCaret'#8#6'Option'#2#0#8 +'sk'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'Cli'
+'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8 +'ckDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8'Priority'
+'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14 +#2#0#0#1#5'Shift'#11#7'ssShift'#0#9'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8
,#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#7'ssShift'#0#9 ,'mbMiddle'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14
+'ShiftMask'#11#7'ssShift'#0#6'Button'#7#8'mbMiddle'#10'ClickCount'#7#5'ccAny' +#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'
+#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#1#8'Prio' +#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'
+'rity'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'Clic' +#7'Command'#2#0#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#0#21'MarkupIn'
+'kCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#0#9'MoveCaret'#8#6 +'fo.Background'#7#6'clNone'#21'MarkupInfo.Foreground'#7#6'clGray'#20'MouseAc'
+'Option'#2#0#8'Priority'#2#0#0#0#21'MarkupInfo.Background'#7#6'clNone'#21'Ma' +'tionsExpanded'#14#1#5'Shift'#11#0#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10
+'rkupInfo.Foreground'#7#6'clGray'#20'MouseActionsExpanded'#14#1#5'Shift'#11#0 +'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'
+#9'ShiftMask'#11#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDi' +#8#6'Option'#2#0#8'Priority'#2#0#0#0#21'MouseActionsCollapsed'#14#1#5'Shift'
+'r'#7#6'cdDown'#7'Command'#2#14#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0 +#11#6'ssCtrl'#0#9'ShiftMask'#11#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCo'
+#0#0#21'MouseActionsCollapsed'#14#1#5'Shift'#11#6'ssCtrl'#0#9'ShiftMask'#11#6 +'unt'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#15#9'MoveCaret'#8#6'Op'
+'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'c' +'tion'#2#0#8'Priority'#2#0#0#1#5'Shift'#11#0#9'ShiftMask'#11#6'ssCtrl'#0#6'B'
+'dDown'#7'Command'#2#15#9'MoveCaret'#8#6'Option'#2#0#8'Priority'#2#0#0#1#5'S' +'utton'#7#6'mbLeft'#10'ClickCount'#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Comm'
+'hift'#11#0#9'ShiftMask'#11#6'ssCtrl'#0#6'Button'#7#6'mbLeft'#10'ClickCount' +'and'#2#15#9'MoveCaret'#8#6'Option'#2#1#8'Priority'#2#0#0#0#0#0#0#0#17'TSynF'
+#7#5'ccAny'#8'ClickDir'#7#6'cdDown'#7'Command'#2#15#9'MoveCaret'#8#6'Option' +'reePascalSyn'#17'SynFreePascalSyn1'#7'Enabled'#8#23'CommentAttri.Foreground'
+#2#1#8'Priority'#2#0#0#0#0#0#0#0#17'TSynFreePascalSyn'#17'SynFreePascalSyn1' +#7#6'clBlue'#18'CommentAttri.Style'#11#6'fsBold'#0#26'IdentifierAttri.Foregr'
+#7'Enabled'#8#23'CommentAttri.Foreground'#7#6'clBlue'#18'CommentAttri.Style' +'ound'#7#9'clDefault'#22'NumberAttri.Foreground'#7#6'clNavy'#22'StringAttri.'
+#11#6'fsBold'#0#26'IdentifierAttri.Foreground'#7#9'clDefault'#22'NumberAttri' +'Foreground'#7#6'clBlue'#22'SymbolAttri.Foreground'#7#5'clRed'#25'DirectiveA'
+'.Foreground'#7#6'clNavy'#22'StringAttri.Foreground'#7#6'clBlue'#22'SymbolAt' +'ttri.Foreground'#7#5'clRed'#20'DirectiveAttri.Style'#11#6'fsBold'#0#12'Comp'
+'tri.Foreground'#7#5'clRed'#25'DirectiveAttri.Foreground'#7#5'clRed'#20'Dire' +'ilerMode'#7#9'pcmObjFPC'#14'NestedComments'#9#4'left'#3'@'#1#3'top'#2#16#0#0
+'ctiveAttri.Style'#11#6'fsBold'#0#12'CompilerMode'#7#9'pcmObjFPC'#14'NestedC' +#0
+'omments'#9#4'left'#3'@'#1#3'top'#2#16#0#0#0
]); ]);

View File

@ -33,7 +33,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="170"> <Units Count="183">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -168,8 +168,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="31" Y="489"/> <CursorPos X="3" Y="432"/>
<TopLine Value="486"/> <TopLine Value="419"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -226,7 +226,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="28" Y="34"/> <CursorPos X="28" Y="34"/>
<TopLine Value="25"/> <TopLine Value="26"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -310,9 +310,11 @@
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="20" Y="236"/> <CursorPos X="21" Y="184"/>
<TopLine Value="218"/> <TopLine Value="162"/>
<EditorIndex Value="12"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
@ -323,9 +325,11 @@
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="21" Y="1436"/> <CursorPos X="15" Y="268"/>
<TopLine Value="1419"/> <TopLine Value="240"/>
<EditorIndex Value="9"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit39> </Unit39>
<Unit40> <Unit40>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/>
@ -390,7 +394,7 @@
<Unit49> <Unit49>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/>
<CursorPos X="21" Y="184"/> <CursorPos X="21" Y="184"/>
<TopLine Value="156"/> <TopLine Value="173"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
</Unit49> </Unit49>
<Unit50> <Unit50>
@ -464,9 +468,11 @@
<Unit60> <Unit60>
<Filename Value="../../../lazarus/lcl/lclintf.pas"/> <Filename Value="../../../lazarus/lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/> <UnitName Value="LCLIntf"/>
<CursorPos X="1" Y="1"/> <CursorPos X="10" Y="161"/>
<TopLine Value="1"/> <TopLine Value="150"/>
<UsageCount Value="7"/> <EditorIndex Value="14"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit60> </Unit60>
<Unit61> <Unit61>
<Filename Value="../../../lazarus/lcl/intfgraphics.pas"/> <Filename Value="../../../lazarus/lcl/intfgraphics.pas"/>
@ -665,17 +671,19 @@
<Unit91> <Unit91>
<Filename Value="../../../lazarus/lcl/controls.pp"/> <Filename Value="../../../lazarus/lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="15" Y="1937"/> <CursorPos X="15" Y="1300"/>
<TopLine Value="1926"/> <TopLine Value="1289"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="11"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit91> </Unit91>
<Unit92> <Unit92>
<Filename Value="../../../lazarus/lcl/include/control.inc"/> <Filename Value="../../../lazarus/lcl/include/control.inc"/>
<CursorPos X="28" Y="1022"/> <CursorPos X="20" Y="77"/>
<TopLine Value="1010"/> <TopLine Value="65"/>
<UsageCount Value="8"/> <EditorIndex Value="3"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit92> </Unit92>
<Unit93> <Unit93>
<Filename Value="../../../lazarus/lcl/stdctrls.pp"/> <Filename Value="../../../lazarus/lcl/stdctrls.pp"/>
@ -687,9 +695,9 @@
<Unit94> <Unit94>
<Filename Value="../../../lazarus/lcl/menus.pp"/> <Filename Value="../../../lazarus/lcl/menus.pp"/>
<UnitName Value="Menus"/> <UnitName Value="Menus"/>
<CursorPos X="50" Y="542"/> <CursorPos X="15" Y="165"/>
<TopLine Value="522"/> <TopLine Value="154"/>
<UsageCount Value="8"/> <UsageCount Value="10"/>
</Unit94> </Unit94>
<Unit95> <Unit95>
<Filename Value="../../../cogat/Units/CogatUnits/compdtm.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compdtm.pas"/>
@ -704,7 +712,7 @@
<UnitName Value="dtm"/> <UnitName Value="dtm"/>
<CursorPos X="34" Y="141"/> <CursorPos X="34" Y="141"/>
<TopLine Value="113"/> <TopLine Value="113"/>
<UsageCount Value="192"/> <UsageCount Value="199"/>
</Unit96> </Unit96>
<Unit97> <Unit97>
<Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/comppicker.pas"/>
@ -719,7 +727,7 @@
<UnitName Value="colourpicker"/> <UnitName Value="colourpicker"/>
<CursorPos X="26" Y="198"/> <CursorPos X="26" Y="198"/>
<TopLine Value="191"/> <TopLine Value="191"/>
<UsageCount Value="188"/> <UsageCount Value="195"/>
</Unit98> </Unit98>
<Unit99> <Unit99>
<Filename Value="../../../cogat/Units/CogatUnits/compdragger.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compdragger.pas"/>
@ -744,7 +752,7 @@
<UnitName Value="windowselector"/> <UnitName Value="windowselector"/>
<CursorPos X="32" Y="12"/> <CursorPos X="32" Y="12"/>
<TopLine Value="31"/> <TopLine Value="31"/>
<UsageCount Value="178"/> <UsageCount Value="185"/>
</Unit101> </Unit101>
<Unit102> <Unit102>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@ -755,8 +763,8 @@
<Unit103> <Unit103>
<Filename Value="../../../lazarus/lcl/forms.pp"/> <Filename Value="../../../lazarus/lcl/forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<CursorPos X="17" Y="285"/> <CursorPos X="13" Y="1649"/>
<TopLine Value="276"/> <TopLine Value="1638"/>
<UsageCount Value="16"/> <UsageCount Value="16"/>
</Unit103> </Unit103>
<Unit104> <Unit104>
@ -778,7 +786,7 @@
<UnitName Value="dtmutil"/> <UnitName Value="dtmutil"/>
<CursorPos X="32" Y="18"/> <CursorPos X="32" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="165"/> <UsageCount Value="172"/>
</Unit106> </Unit106>
<Unit107> <Unit107>
<Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/> <Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/>
@ -820,7 +828,7 @@
<UnitName Value="mmath"/> <UnitName Value="mmath"/>
<CursorPos X="32" Y="42"/> <CursorPos X="32" Y="42"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<UsageCount Value="145"/> <UsageCount Value="152"/>
</Unit112> </Unit112>
<Unit113> <Unit113>
<Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/> <Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/>
@ -856,7 +864,7 @@
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="43" Y="42"/> <CursorPos X="43" Y="42"/>
<TopLine Value="5"/> <TopLine Value="5"/>
<UsageCount Value="115"/> <UsageCount Value="122"/>
</Unit117> </Unit117>
<Unit118> <Unit118>
<Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/> <Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/>
@ -871,7 +879,7 @@
<UnitName Value="project"/> <UnitName Value="project"/>
<CursorPos X="46" Y="15"/> <CursorPos X="46" Y="15"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="112"/> <UsageCount Value="119"/>
</Unit119> </Unit119>
<Unit120> <Unit120>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/>
@ -961,9 +969,11 @@
<Unit134> <Unit134>
<Filename Value="../../../lazarus/lcl/comctrls.pp"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<UnitName Value="ComCtrls"/> <UnitName Value="ComCtrls"/>
<CursorPos X="15" Y="283"/> <CursorPos X="22" Y="260"/>
<TopLine Value="265"/> <TopLine Value="232"/>
<UsageCount Value="22"/> <EditorIndex Value="4"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
</Unit134> </Unit134>
<Unit135> <Unit135>
<Filename Value="../../../lazarus/lcl/imglist.pp"/> <Filename Value="../../../lazarus/lcl/imglist.pp"/>
@ -985,7 +995,7 @@
<UnitName Value="web"/> <UnitName Value="web"/>
<CursorPos X="90" Y="16"/> <CursorPos X="90" Y="16"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="40"/> <UsageCount Value="47"/>
</Unit137> </Unit137>
<Unit138> <Unit138>
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/> <Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
@ -1059,9 +1069,9 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="SourceEditor"/> <UnitName Value="SourceEditor"/>
<CursorPos X="42" Y="7039"/> <CursorPos X="24" Y="5054"/>
<TopLine Value="7029"/> <TopLine Value="5033"/>
<UsageCount Value="9"/> <UsageCount Value="10"/>
</Unit147> </Unit147>
<Unit148> <Unit148>
<Filename Value="../../../lazarus/ide/checklfmdlg.pas"/> <Filename Value="../../../lazarus/ide/checklfmdlg.pas"/>
@ -1076,9 +1086,9 @@
<Unit149> <Unit149>
<Filename Value="../../../lazarus/ide/main.pp"/> <Filename Value="../../../lazarus/ide/main.pp"/>
<UnitName Value="Main"/> <UnitName Value="Main"/>
<CursorPos X="3" Y="10698"/> <CursorPos X="3" Y="3039"/>
<TopLine Value="10692"/> <TopLine Value="3032"/>
<UsageCount Value="9"/> <UsageCount Value="10"/>
</Unit149> </Unit149>
<Unit150> <Unit150>
<Filename Value="../../../lazarus/ide/buildfiledlg.pas"/> <Filename Value="../../../lazarus/ide/buildfiledlg.pas"/>
@ -1184,10 +1194,10 @@
<ComponentName Value="ScriptFrame"/> <ComponentName Value="ScriptFrame"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="framescript"/> <UnitName Value="framescript"/>
<CursorPos X="26" Y="125"/> <CursorPos X="23" Y="61"/>
<TopLine Value="107"/> <TopLine Value="53"/>
<EditorIndex Value="4"/> <EditorIndex Value="11"/>
<UsageCount Value="33"/> <UsageCount Value="40"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit162> </Unit162>
<Unit163> <Unit163>
@ -1205,15 +1215,19 @@
<Unit165> <Unit165>
<Filename Value="../../../lazarus/lcl/extctrls.pp"/> <Filename Value="../../../lazarus/lcl/extctrls.pp"/>
<UnitName Value="ExtCtrls"/> <UnitName Value="ExtCtrls"/>
<CursorPos X="14" Y="211"/> <CursorPos X="15" Y="170"/>
<TopLine Value="193"/> <TopLine Value="142"/>
<EditorIndex Value="5"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit165> </Unit165>
<Unit166> <Unit166>
<Filename Value="../../../lazarus/lcl/include/customnotebook.inc"/> <Filename Value="../../../lazarus/lcl/include/customnotebook.inc"/>
<CursorPos X="122" Y="456"/> <CursorPos X="3" Y="519"/>
<TopLine Value="446"/> <TopLine Value="514"/>
<EditorIndex Value="6"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit166> </Unit166>
<Unit167> <Unit167>
<Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/> <Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/>
@ -1227,139 +1241,237 @@
<UnitName Value="SynEditTextBase"/> <UnitName Value="SynEditTextBase"/>
<CursorPos X="3" Y="405"/> <CursorPos X="3" Y="405"/>
<TopLine Value="399"/> <TopLine Value="399"/>
<EditorIndex Value="5"/> <UsageCount Value="13"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit168> </Unit168>
<Unit169> <Unit169>
<Filename Value="../../../lazarus/lcl/include/wincontrol.inc"/> <Filename Value="../../../lazarus/lcl/include/wincontrol.inc"/>
<CursorPos X="3" Y="5295"/> <CursorPos X="24" Y="4739"/>
<TopLine Value="5288"/> <TopLine Value="4721"/>
<EditorIndex Value="3"/> <UsageCount Value="12"/>
</Unit169>
<Unit170>
<Filename Value="../../../lazarus/lcl/include/menuitem.inc"/>
<CursorPos X="3" Y="1400"/>
<TopLine Value="1378"/>
<UsageCount Value="10"/>
</Unit170>
<Unit171>
<Filename Value="../../../lazarus/lcl/widgetset/wsmenus.pp"/>
<UnitName Value="WSMenus"/>
<CursorPos X="1" Y="129"/>
<TopLine Value="126"/>
<UsageCount Value="10"/>
</Unit171>
<Unit172>
<Filename Value="../../../lazarus/lcl/lclclasses.pp"/>
<UnitName Value="LCLClasses"/>
<CursorPos X="5" Y="40"/>
<TopLine Value="32"/>
<UsageCount Value="10"/>
</Unit172>
<Unit173>
<Filename Value="../../../lazarus/ide/codeexplorer.pas"/>
<ComponentName Value="CodeExplorerView"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="CodeExplorer"/>
<CursorPos X="13" Y="1477"/>
<TopLine Value="1466"/>
<UsageCount Value="10"/>
</Unit173>
<Unit174>
<Filename Value="../../../lazarus/ide/keymapping.pp"/>
<UnitName Value="KeyMapping"/>
<CursorPos X="18" Y="77"/>
<TopLine Value="72"/>
<UsageCount Value="10"/>
</Unit174>
<Unit175>
<Filename Value="../../../lazarus/ide/basedebugmanager.pas"/>
<UnitName Value="BaseDebugManager"/>
<CursorPos X="15" Y="87"/>
<TopLine Value="76"/>
<UsageCount Value="10"/>
</Unit175>
<Unit176>
<Filename Value="../../../lazarus/lcl/lmessages.pp"/>
<UnitName Value="LMessages"/>
<CursorPos X="11" Y="429"/>
<TopLine Value="429"/>
<EditorIndex Value="13"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit169> </Unit176>
<Unit177>
<Filename Value="../../../lazarus/lcl/include/customactionlist.inc"/>
<CursorPos X="29" Y="151"/>
<TopLine Value="136"/>
<EditorIndex Value="15"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit177>
<Unit178>
<Filename Value="../../../lazarus/lcl/actnlist.pas"/>
<UnitName Value="ActnList"/>
<CursorPos X="14" Y="188"/>
<TopLine Value="166"/>
<EditorIndex Value="16"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit178>
<Unit179>
<Filename Value="../../../lazarus/lcl/include/customaction.inc"/>
<CursorPos X="3" Y="247"/>
<TopLine Value="245"/>
<EditorIndex Value="17"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit179>
<Unit180>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/lists.inc"/>
<CursorPos X="3" Y="626"/>
<TopLine Value="624"/>
<EditorIndex Value="10"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit180>
<Unit181>
<Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/>
<CursorPos X="11" Y="46"/>
<TopLine Value="13"/>
<EditorIndex Value="8"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit181>
<Unit182>
<Filename Value="../../../lazarus/lcl/include/custompage.inc"/>
<CursorPos X="34" Y="177"/>
<TopLine Value="174"/>
<EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit182>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="677" Column="26" TopLine="638"/> <Caret Line="477" Column="14" TopLine="474"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="testunit.pas"/> <Filename Value="framescript.pas"/>
<Caret Line="159" Column="15" TopLine="131"/> <Caret Line="61" Column="23" TopLine="53"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="12" Column="120" TopLine="1"/> <Caret Line="44" Column="22" TopLine="35"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="framescript.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="124" Column="17" TopLine="78"/> <Caret Line="60" Column="29" TopLine="49"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../lazarus/components/synedit/synedittextbase.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="396" Column="25" TopLine="392"/> <Caret Line="163" Column="42" TopLine="143"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="72" Column="38" TopLine="72"/> <Caret Line="4" Column="64" TopLine="1"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="362" Column="7" TopLine="360"/> <Caret Line="5" Column="49" TopLine="82"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="290" Column="16" TopLine="286"/> <Caret Line="473" Column="15" TopLine="471"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="52" Column="21" TopLine="36"/> <Caret Line="275" Column="19" TopLine="258"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="367" Column="10" TopLine="365"/> <Caret Line="5" Column="67" TopLine="1"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="4" Column="69" TopLine="1"/> <Caret Line="364" Column="64" TopLine="358"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="528" Column="9" TopLine="526"/> <Caret Line="744" Column="31" TopLine="735"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="336" Column="18" TopLine="329"/> <Caret Line="763" Column="1" TopLine="741"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="530" Column="9" TopLine="528"/> <Caret Line="42" Column="141" TopLine="38"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="344" Column="27" TopLine="329"/> <Caret Line="713" Column="7" TopLine="711"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="343" Column="30" TopLine="329"/> <Caret Line="113" Column="125" TopLine="104"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="349" Column="14" TopLine="347"/> <Caret Line="753" Column="1" TopLine="732"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="208" Column="28" TopLine="196"/> <Caret Line="747" Column="15" TopLine="721"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="209" Column="28" TopLine="196"/> <Caret Line="752" Column="49" TopLine="721"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<Caret Line="208" Column="28" TopLine="196"/> <Caret Line="234" Column="57" TopLine="206"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/include/tabsheet.inc"/>
<Caret Line="209" Column="28" TopLine="196"/> <Caret Line="46" Column="11" TopLine="13"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
<Caret Line="210" Column="28" TopLine="196"/> <Caret Line="260" Column="22" TopLine="232"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/extctrls.pp"/>
<Caret Line="23" Column="108" TopLine="1"/> <Caret Line="83" Column="64" TopLine="55"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="testunit.pas"/> <Filename Value="../../../lazarus/lcl/include/custompage.inc"/>
<Caret Line="587" Column="73" TopLine="558"/> <Caret Line="177" Column="34" TopLine="174"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="567" Column="29" TopLine="547"/> <Caret Line="733" Column="115" TopLine="721"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="562" Column="18" TopLine="554"/> <Caret Line="761" Column="21" TopLine="758"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="558" Column="20" TopLine="555"/> <Caret Line="767" Column="12" TopLine="761"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="575" Column="18" TopLine="566"/> <Caret Line="756" Column="3" TopLine="740"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="553" Column="33" TopLine="546"/> <Caret Line="745" Column="16" TopLine="729"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="499" Column="27" TopLine="486"/> <Caret Line="713" Column="9" TopLine="711"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

View File

@ -1,17 +1,19 @@
object Form1: TForm1 object Form1: TForm1
Left = 356 Left = 229
Height = 553 Height = 553
Top = 220 Top = 78
Width = 723 Width = 723
Caption = 'Mufasa v2' Caption = 'Action1'
ClientHeight = 533 ClientHeight = 533
ClientWidth = 723 ClientWidth = 723
Menu = MainMenu1 Menu = MainMenu1
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShortCut = FormShortCuts
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
Visible = True
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 24 Height = 24
@ -23,63 +25,52 @@ object Form1: TForm1
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
object TB_Run: TToolButton object TB_Run: TToolButton
Left = 73 Left = 96
Hint = 'Execute the script'
Top = 2 Top = 2
Caption = 'TB_Run' Action = ActionRunScript
ImageIndex = 6 ImageIndex = 6
OnClick = ButtonRunClick
end end
object TB_Pause: TToolButton object TB_Pause: TToolButton
Left = 96 Left = 119
Hint = 'Pause the script'
Top = 2 Top = 2
Caption = 'ToolButton1' Action = ActionPauseScript
Enabled = False Enabled = False
ImageIndex = 5 ImageIndex = 5
OnClick = ButtonPauseClick
end end
object TB_Stop: TToolButton object TB_Stop: TToolButton
Left = 119 Left = 142
Hint = 'Stop the script'
Top = 2 Top = 2
Caption = 'ToolButton1' Action = ActionStopScript
Enabled = False Enabled = False
ImageIndex = 7 ImageIndex = 7
OnClick = ButtonStopClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 142 Left = 165
Top = 2 Top = 2
Width = 3 Width = 3
Caption = 'ToolButton1' Caption = 'ToolButton1'
Style = tbsDivider Style = tbsDivider
end end
object TB_NewTab: TToolButton object TB_NewTab: TToolButton
Left = 145 Left = 168
Hint = 'Open a new tab'
Top = 2 Top = 2
Caption = 'TB_NewTab' Action = ActionNewTab
ImageIndex = 15
OnClick = ButtonNewTabClick
end end
object TB_CloseTab: TToolButton object TB_CloseTab: TToolButton
Left = 168 Left = 191
Hint = 'Close this tab'
Top = 2 Top = 2
Action = ActionCloseTab
Caption = 'TB_CloseTab' Caption = 'TB_CloseTab'
ImageIndex = 16
OnClick = ButtonCloseTabClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 191 Left = 214
Top = 2 Top = 2
Width = 3 Width = 3
Caption = 'ToolButton4' Caption = 'ToolButton4'
Style = tbsDivider Style = tbsDivider
end end
object TB_ClearDebug: TToolButton object TB_ClearDebug: TToolButton
Left = 194 Left = 217
Hint = 'Clear the debug' Hint = 'Clear the debug'
Top = 2 Top = 2
Caption = 'TB_ClearDebug' Caption = 'TB_ClearDebug'
@ -87,7 +78,7 @@ object Form1: TForm1
OnClick = ButtonClearClick OnClick = ButtonClearClick
end end
object TB_PickColour: TToolButton object TB_PickColour: TToolButton
Left = 217 Left = 240
Hint = 'Pick a color' Hint = 'Pick a color'
Top = 2 Top = 2
Caption = 'TB_PickColour' Caption = 'TB_PickColour'
@ -95,7 +86,7 @@ object Form1: TForm1
OnClick = ButtonPickClick OnClick = ButtonPickClick
end end
object TB_SelectClient: TToolButton object TB_SelectClient: TToolButton
Left = 240 Left = 263
Hint = 'Select a client' Hint = 'Select a client'
Top = 2 Top = 2
Caption = 'TB_SelectClient' Caption = 'TB_SelectClient'
@ -103,28 +94,28 @@ object Form1: TForm1
OnMouseDown = ButtonSelectorDown OnMouseDown = ButtonSelectorDown
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 263 Left = 286
Top = 2 Top = 2
Width = 3 Width = 3
Caption = 'ToolButton8' Caption = 'ToolButton8'
Style = tbsDivider Style = tbsDivider
end end
object TB_Convert: TToolButton object TB_Convert: TToolButton
Left = 266 Left = 289
Top = 2 Top = 2
Caption = 'TB_Convert' Caption = 'TB_Convert'
Enabled = False Enabled = False
ImageIndex = 1 ImageIndex = 1
end end
object TB_ReloadPlugins: TToolButton object TB_ReloadPlugins: TToolButton
Left = 289 Left = 312
Top = 2 Top = 2
Caption = 'TB_ReloadPlugins' Caption = 'TB_ReloadPlugins'
Enabled = False Enabled = False
ImageIndex = 13 ImageIndex = 13
end end
object TB_Tray: TToolButton object TB_Tray: TToolButton
Left = 312 Left = 335
Hint = 'Minimize to tray' Hint = 'Minimize to tray'
Top = 2 Top = 2
Caption = 'TB_Tray' Caption = 'TB_Tray'
@ -133,16 +124,13 @@ object Form1: TForm1
end end
object TB_New: TToolButton object TB_New: TToolButton
Left = 1 Left = 1
Hint = 'Create an empty file'
Top = 2 Top = 2
Caption = 'File' Action = ActionNewScript
ImageIndex = 9
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = ButtonNewClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 70 Left = 93
Top = 2 Top = 2
Width = 3 Width = 3
Caption = 'ToolButton2' Caption = 'ToolButton2'
@ -150,21 +138,21 @@ object Form1: TForm1
end end
object TB_Open: TToolButton object TB_Open: TToolButton
Left = 24 Left = 24
Hint = 'Open a script'
Top = 2 Top = 2
Caption = 'TB_Open' Action = ActionOpenScript
ImageIndex = 10
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = ButtonOpenClick
end end
object TB_Save: TToolButton object TB_Save: TToolButton
Left = 47 Left = 47
Hint = 'Save the script'
Top = 2 Top = 2
Caption = 'TB_Save' Action = ActionSaveScript
ImageIndex = 14 end
OnClick = ButtonSaveClick object TB_SaveAll: TToolButton
Left = 70
Top = 2
Action = ActionSaveAll
Enabled = False
end end
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
@ -221,8 +209,13 @@ object Form1: TForm1
Top = 24 Top = 24
Width = 723 Width = 723
Align = alClient Align = alClient
PopupMenu = TabPopup
TabOrder = 4 TabOrder = 4
OnChange = PageControl1Change OnChange = PageControl1Change
OnContextPopup = PageControl1ContextPopup
OnDragDrop = PageControl1DragDrop
OnDragOver = PageControl1DragOver
OnMouseDown = PageControl1MouseDown
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
left = 560 left = 560
@ -231,7 +224,7 @@ object Form1: TForm1
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
OnClick = MenuFileClick OnClick = MenuFileClick
object MenuItemNew: TMenuItem object MenuItemNew: TMenuItem
Caption = 'New' Action = ActionNewScript
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00BB6A 2000000000000004000064000000640000000000000000000000FFFFFF00BB6A
@ -268,13 +261,14 @@ object Form1: TForm1
4460C88B4DBBC88C4FEEC88C4FF6C88C4FF7C88C4FF7C88D4FF7C98C4FF7C78B 4460C88B4DBBC88C4FEEC88C4FF6C88C4FF7C88C4FF7C88D4FF7C98C4FF7C78B
4FF7C5894BD4C4763B91B3683C06FFFFFF00FFFFFF00FFFFFF00 4FF7C5894BD4C4763B91B3683C06FFFFFF00FFFFFF00FFFFFF00
} }
ImageIndex = 9
ShortCut = 16462
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
OnClick = MenuItemNewClick OnClick = ActionNewExecute
end
object MenuItemDivider: TMenuItem
Caption = '-'
end end
object MenuItemOpen: TMenuItem object MenuItemOpen: TMenuItem
Caption = 'Open' Action = ActionOpenScript
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000002C86D8D12D88 20000000000000040000640000006400000000000000000000002C86D8D12D88
@ -311,12 +305,10 @@ object Form1: TForm1
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB
92FFD1A06CF5D09E6DF6CC965FDAC479427EB2673C09FFFFFF00 92FFD1A06CF5D09E6DF6CC965FDAC479427EB2673C09FFFFFF00
} }
ImageIndex = 10 OnClick = ActionOpenExecute
ShortCut = 16463
OnClick = MenuItemOpenClick
end end
object MenuItemSave: TMenuItem object MenuItemSave: TMenuItem
Caption = 'Save' Action = ActionSaveScript
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A368FB969 2000000000000004000064000000640000000000000000000000BA6A368FB969
@ -353,13 +345,105 @@ object Form1: TForm1
3690BC6B36CCBC6B36EEBC6B36FABB6B36FEBB6B36FFBB6A36FFBB6A36FFBC6C 3690BC6B36CCBC6B36EEBC6B36FABB6B36FEBB6B36FFBB6A36FFBB6A36FFBC6C
39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00 39FFBD6E3BFFBB6D3AFFBB6B38EFBB703ECBB6693554FFFFFF00
} }
ImageIndex = 14 OnClick = ActionSaveExecute
ShortCut = 16467
OnClick = MenuItemSaveClick
end end
object MenuItemSaveAs: TMenuItem object MenuItemSaveAs: TMenuItem
Caption = 'Save as..' Action = ActionSaveScriptAs
OnClick = MenuItemSaveAsClick OnClick = ActionSaveAsExecute
end
object MenuItemSaveAll: TMenuItem
Action = ActionSaveAll
Enabled = False
OnClick = ActionSaveAllExecute
end
object MenuItemDivider2: TMenuItem
Caption = '-'
end
object MenuItemNewTab: TMenuItem
Action = ActionNewTab
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004390000066D0099056900CC066D00990439000000000000000000090000
00160000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
001A0000001A0B8000D12BDF1AFF0B8000D100000016000000090D0D0D671010
1085101010851010108510101085101010851010108510101085101010850E62
04CF0E7E02E70E7E02E73DE22CFF0E7E02E70E7E02E70B5F02B02727277BEBEB
EBFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FF3BA5
2FFF52E741FF52E741FF52E741FF52E741FF52E741FF128905E532323276EAEA
EAFFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF66B9
5BFF3CAB2DFF3CAB2DFF66EB55FF3CAB2DFF3EAD2FFF1C7A11C838383873EDED
EDFFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FF3EB12EFF75EE64FF3EB12EFFEDEDEDFF383838733E3E3E71F0F0
F0FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFF6BC45FFF40B62FFF6BC45FFFF0F0F0FF3E3E3E714444446EF3F3
F3FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF3F3F3FF4444446E4949496CF7F7
F7FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF7F7F7FF4949496C4D4D4D6AFAFA
FAFFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFFAFAFAFF4D4D4D6A51515168FDFD
FDFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFDFDFDFF5151516855555567FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555556750505069BBBB
BBFFBABABAFFB8B8B8FFB6B6B6FFB3B3B3FFB0B0B0FFAEAEAEFFABABABFFA8A8
A8FFA6A6A6FFA3A3A3FFA0A0A0FF9E9E9EFF9C9C9CFF030303665252525BC6C6
C6D4DCDCDCFFD8D9D9FFD5D5D5FFD0D1D1FFCCCCCCFFC8C8C8FFC6C6C6FFC6C5
C5FFC9C5C5FFCDC6C6FFD1C7C7FFD7CBCBFFC4B8B8D45252525B555555225555
5559555555665555556655555566555555665555556655555566555555665555
5566555555665555556655555566555555665555555955555522FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = ActionNewTabExecute
end
object MenuItemCloseTab: TMenuItem
Action = ActionCloseTab
Caption = 'Close Tab'
OnClick = ActionCloseTabExecute
end
object MenuItemCloseTabs: TMenuItem
Caption = 'Close all tabs'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000000000000A0000
00180000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
001A0000001A000000190000000B000000000000770000008000111111651414
1483141414831414148314141483141414831414148314141483141414831414
148314141483141414831111116500005A0000007700000080002D2D2D78ECEC
ECFFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FF5F5F
ADFF2F2F95FF303096FF050577E4000080CC000080CC0000849936363674EBEB
EBFFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FF2E2E
A7FF5E5EF7FF5E5EF7FF5E5EF7FF5E5EF7FF5E5EF7FF000098CC3D3D3D71EFEF
EFFFEAEAEAFFEAEAEAFFEAEAEAFFEAEAEAFFEAEAEAFFEAEAEAFFEAEAEAFF5E5E
C2FF2F2FB5FF3030B6FF06069AE60000A3D10000A4D100007C9E4545456EF4F4
F4FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0
F0FFF0F0F0FFF4F4F4FF313131B81414148314141483111111654B4B4B6BF8F8
F8FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6
F6FFF6F6F6FFF8F8F8FFA6A6A6FFE8E8E8FFECECECFF2D2D2D7850505069FCFC
FCFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFB
FBFFFBFBFBFFFCFCFCFFA8A8A8FFE4E4E4FFEBEBEBFF3636367454545467FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFAEAEAEFFEAEAEAFFEFEFEFFF3D3D3D7150505069BBBB
BBFFB9B9B9FFB6B6B6FFB4B4B4FFB0B0B0FFADADADFFA9A9A9FFA6A6A6FFA2A2
A2FFA0A0A0FF9D9D9DFF919191FFF0F0F0FFF4F4F4FF4545456E5252525BC6C6
C6D4DBDBDBFFD6D6D6FFD1D1D1FFCBCCCCFFC7C7C7FFC6C4C4FFC8C5C5FFCEC6
C6FFD4C9C9FFD0C5C5FFBCBCBCFFF6F6F6FFF8F8F8FF4B4B4B6B555555225555
555955555566535353A5B9B9B9FFB8B8B8FFB8B8B8FFB8B8B8FFB8B8B8FFB8B8
B8FFB8B8B8FFC1C1C1FFE5E5E5FFFBFBFBFFFCFCFCFF50505069555555005555
55005555550054545467FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF54545467555555005454
54005050500050505069BBBBBBFFB9B9B9FFB6B6B6FFB4B4B4FFB0B0B0FFADAD
ADFFA9A9A9FFA6A6A6FFA2A2A2FFA0A0A0FF9D9D9DFF03030366545454005252
5200525252005252525BC6C6C6D4DBDBDBFFD6D6D6FFD1D1D1FFCBCCCCFFC7C7
C7FFC6C4C4FFC8C5C5FFCEC6C6FFD4C9C9FFC4B7B7D45252525B545454005454
5400545454005555552255555559555555665555556655555566555555665555
5566555555665555556655555566555555665555555955555522
}
ImageIndex = 20
OnClick = MenuItemCloseTabsClick
end end
end end
object MenuEdit: TMenuItem object MenuEdit: TMenuItem
@ -539,136 +623,26 @@ object Form1: TForm1
Caption = 'Script' Caption = 'Script'
SubMenuImages = Mufasa_Image_List SubMenuImages = Mufasa_Image_List
object MenuItemRun: TMenuItem object MenuItemRun: TMenuItem
Caption = 'Run' Action = ActionRunScript
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000004733AFF21824FFF638272FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF7ACFA4FF2C8C5AFF3D7659FFAEAEAEFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF82D8ACFF76D6A6FF3C9D6AFF27744CFFACAEADFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000009773FFF83DBAEFF1FC671FF72DEA7FF4BB27FFF177445FFA8ADAAFF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF83DCAFFF11C369FF1ACC73FF69DFA3FF5AC28DFF137643FF9EA7
A3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF10BD65FF11C167FF13C269FF59D395FF67C998FF167C
47FF889C92FF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0DB35EFF0EB660FF0EB660FF0DB45FFF47C484FF70CA
9CFF1D824DFF678C79FF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0CAA58FF12AE5EFF15AF60FF16AD61FF13AA5DFF3AB6
77FF75C79DFF288957FF4E8367FF000000000000000000000000000000000000
000004733AFFA9DCC1FF2EAD6BFF2BAD6AFF27AB68FF22A964FF1CA55FFF41B2
78FF78C69FFF298858FF678C79FF000000000000000000000000000000000000
000004733AFFA9DCC1FF36AD70FF32AC6DFF2DAA6AFF28A866FF58BC89FF78C5
9DFF1F804EFF839A8EFF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF3EB176FF3AAF73FF36AE70FF6FC598FF71BF97FF187B
49FFA6B0ABFF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF45B47BFF47B47CFF82CCA6FF67B68CFF177745FFC1C5
C3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA5DABFFF57BB87FF90D2B0FF5BAB82FF23774CFFD4D5D4FF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF9BD5B7FF4C9F73FF3D7D5CFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA4D9BEFF3D9366FF5F8873FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF2D8859FF859C90FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
ImageIndex = 6 ImageIndex = 6
ShortCut = 120 OnClick = ActionRunExecute
OnClick = MenuItemRunClick
end end
object MenuItemPause: TMenuItem object MenuItemPause: TMenuItem
Caption = 'Pause' Action = ActionPauseScript
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000EEEEEE00EEEE
EE00EEEEEE00987050FFA46534FFA46534FF987050FFFBE3BC00FBE3BC009870
50FFA46534FFA46534FF987050FF000000000000000000000000987050009870
5000987050009F683EFFC99C76FFCDA585FF9F683EFF98705000987050009F68
3EFFC99C76FFCDA585FF9F683EFF000000000000000000000000A2663800A266
3800A2663800A36535FFD7AC88FFE1C5ADFFA36535FFA2663800A2663800A365
35FFD7AC88FFE1C5ADFFA36535FF000000000000000000000000A4653400A465
3400A4653400A46534FFD8A981FFE6CCB5FFA46534FFA4653400A4653400A465
34FFD8A981FFE6CCB5FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD7A77FFFE6CCB5FFA46534FFA4653400A4653400A465
34FFD7A77FFFE6CCB5FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD7A981FFE6CDB6FFA46534FFA4653400A4653400A465
34FFD7A981FFE6CDB6FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD8AB84FFE6CEB7FFA46534FFA4653400A4653400A465
34FFD8AB84FFE6CEB7FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD9AE89FFE6CEB7FFA46534FFA4653400A4653400A465
34FFD9AE89FFE6CEB7FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD9B08DFFE6CEB7FFA46534FFA4653400A4653400A465
34FFD9B08DFFE6CEB7FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFD9B28FFFE6CEB7FFA46534FFA4653400A4653400A465
34FFD9B28FFFE6CEB7FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFDAB391FFE6CEB7FFA46534FFA4653400A4653400A465
34FFDAB391FFE6CEB7FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFDAB593FFE6CFB9FFA46534FFA4653400A4653400A465
34FFDAB593FFE6CFB9FFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFDBB694FFE7D1BBFFA46534FFA4653400A4653400A465
34FFDBB694FFE7D1BBFFA46534FF000000000000000000000000A4653400A465
3400A4653400A46534FFDDBC9DFFE7D1BCFFA46534FFA4653400A4653400A465
34FFDDBC9DFFE7D1BCFFA46534FF000000000000000000000000996E4C00996E
4C00996E4C00A26637FFDCBFA4FFDFC6AFFFA26637FF996E4C00996E4C00A266
37FFDCBFA4FFDFC6AFFFA26637FF000000000000000000000000EEEEEE00EEEE
EE00EEEEEE00996E4CFFAB7143FFAC7244FF996E4CFFFBE3BC00FBE3BC00996E
4CFFAB7143FFAC7244FF996E4CFF000000000000000000000000
}
ImageIndex = 5 ImageIndex = 5
OnClick = MenuItemPauseClick OnClick = ActionPauseExecute
end end
object MenuItemStop: TMenuItem object MenuItemStop: TMenuItem
Caption = 'Stop' Action = ActionStopScript
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6393986E6393986E6393986E6393986E6393986E6393986E63939
86E6393986E6393986E6393986E6393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE68796F6FF7C8DF7FF7284F8FF687CF8FF5E73FAFF536AFAFF4A63
FAFF425CFBFF3A55FCFF334FFCFF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6929EF5FF8796F6FF7C8DF7FF7285F8FF687CF9FF5E73F9FF546B
FAFF4B63FBFF425CFBFF3955FCFF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE69BA7F5FF929FF5FF8796F7FF7C8DF7FF7284F8FF677CF8FF5E73
F9FF546BFAFF4A63FBFF415CFBFF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6A6AFF4FF9CA7F5FF919FF5FF8796F6FF7D8DF7FF7184F7FF687C
F8FF5D73F9FF546AFAFF4A63FBFF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6AEB7F3FFA5AFF5FF9CA7F5FF919FF5FF8796F7FF7C8DF7FF7284
F8FF687BF9FF5D73F9FF536BFAFF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6B7BEF3FFAFB7F4FFA6B0F4FF9BA8F5FF929FF6FF8796F6FF7C8D
F7FF7284F8FF677BF8FF5D73F9FF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6BFC5F2FFB7BEF3FFAFB7F4FFA5AFF4FF9CA7F5FF929FF6FF8795
F6FF7D8DF7FF7284F8FF687CF8FF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6C7CAF1FFBFC5F3FFB7BEF3FFAEB7F4FFA6AFF4FF9BA7F5FF929F
F6FF8796F6FF7C8DF7FF7284F7FF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6CCD0F1FFC6CBF1FFBFC5F2FFB7BFF3FFAFB7F4FFA6AFF5FF9BA8
F5FF919FF6FF8796F6FF7D8DF7FF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE6D1D4F1FFCCD0F2FFC6CBF2FFBFC5F2FFB7BEF3FFAEB8F3FFA5AF
F4FF9BA8F4FF919FF5FF8795F6FF393986E6FFFFFF00FFFFFF00FFFFFF00FFFF
FF004550BFE64550BFE64550BFE64550BFE64550BFE64550BFE64550BFE64550
BFE64550BFE64550BFE64550BFE64550BFE6FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 7 ImageIndex = 7
ShortCut = 16497 OnClick = ActionStopExecute
OnClick = MenuItemStopClick
end end
end end
end end
object Mufasa_Image_List: TImageList object Mufasa_Image_List: TImageList
left = 512 left = 512
Bitmap = { Bitmap = {
4C69140000001000000010000000424242004242420042424200424242004242 4C69160000001000000010000000424242004242420042424200424242004242
420042424200424242004242420042424200424242004242420042424200A155 420042424200424242004242420042424200424242004242420042424200A155
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242 42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
4200424242004242420042424200424242004242420042424200A15542FFFFDA 4200424242004242420042424200424242004242420042424200A15542FFFFDA
@ -1150,70 +1124,70 @@ object Form1: TForm1
35FFB46734FFB26634FFB06533FFAE6433FFAC6332FFAA6232FFA96132FFA860 35FFB46734FFB26634FFB06533FFAE6433FFAC6332FFAA6232FFA96132FFA860
31FFA76031FEA66031F1A86131C4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 31FFA76031FEA66031F1A86131C4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00555555225555555955555566555555665555
5566555555665555556655555566555555665555556655555566555555665555
55665555556655555559555555225252525BC6C6C6D4DCDCDCFFD8D9D9FFD5D5
D5FFD0D1D1FFCCCCCCFFC8C8C8FFC6C6C6FFC6C5C5FFC9C5C5FFCDC6C6FFD1C7
C7FFD7CBCBFFC4B8B8D45252525B50505069BBBBBBFFBABABAFFB8B8B8FFB6B6
B6FFB3B3B3FFB0B0B0FFAEAEAEFFABABABFFA8A8A8FFA6A6A6FFA3A3A3FFA0A0
A0FF9E9E9EFF9C9C9CFF0303036655555567FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF5555556751515168FDFDFDFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFDFDFDFF515151684D4D4D6AFAFAFAFFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFFAFAFAFF4D4D4D6A4949496CF7F7F7FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF7F7F7FF4949496C4444446EF3F3F3FFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFF3F3F3FF4444446E3E3E3E71F0F0F0FFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFF6BC45FFF40B6
2FFF6BC45FFFF0F0F0FF3E3E3E7138383873EDEDEDFFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FF3EB12EFF75EE
64FF3EB12EFFEDEDEDFF3838387332323276EAEAEAFFE2E2E2FFE2E2E2FFE2E2
E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF66B95BFF3CAB2DFF3CAB2DFF66EB
55FF3CAB2DFF3EAD2FFF1C7A11C82727277BEBEBEBFFE7E7E7FFE7E7E7FFE7E7
E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FF3BA52FFF52E741FF52E741FF52E7
41FF52E741FF52E741FF128905E50D0D0D671010108510101085101010851010
1085101010851010108510101085101010850E6204CF0E7E02E70E7E02E73DE2
2CFF0E7E02E70E7E02E70B5F02B000000009000000160000001A0000001A0000
001A0000001A0000001A0000001A0000001A0000001A0000001A0B8000D12BDF
1AFF0B8000D10000001600000009000000000000000000000000000000000000
0000000000000000000000000000000000000000000004390000066D00990569
00CC066D00990439000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00555555225555555955555566555555665555
5566555555665555556655555566555555665555556655555566555555665555
55665555556655555559555555225252525BC6C6C6D4DCDCDCFFD8D9D9FFD5D5
D5FFD0D1D1FFCCCCCCFFC8C8C8FFC6C6C6FFC6C5C5FFC9C5C5FFCDC6C6FFD1C7
C7FFD7CBCBFFC4B8B8D45252525B50505069BBBBBBFFBABABAFFB8B8B8FFB6B6
B6FFB3B3B3FFB0B0B0FFAEAEAEFFABABABFFA8A8A8FFA6A6A6FFA3A3A3FFA0A0
A0FF9E9E9EFF9C9C9CFF0303036655555567FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF5555556751515168FDFDFDFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFDFDFDFF515151684D4D4D6AFAFAFAFFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFFAFAFAFF4D4D4D6A4949496CF7F7F7FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF7F7F7FF4949496C4444446EF3F3F3FFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFF3F3F3FF4444446E3E3E3E71F0F0F0FFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFFF0F0F0FF3E3E3E7138383873EDEDEDFFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FFEDEDEDFF3838387332323276EAEAEAFFE2E2E2FFE2E2E2FFE2E2
E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF5B5BBEFF2D2DB3FF2D2DB3FF2D2D
B3FF2D2DB3FF2F2FB5FF111181C82727277BEBEBEBFFE7E7E7FFE7E7E7FFE7E7
E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FF2F2FA7FF5E5EF7FF5E5EF7FF5E5E
F7FF5E5EF7FF5E5EF7FF05058BE50D0D0D671010108510101085101010851010
10851010108510101085101010851010108504045BCF020273E7020273E70202
73E7020273E7020273E7020258B000000009000000160000001A0000001A0000
001A0000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
001A0000001A0000001600000009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009E9E9E439E9E9EC89E9E9EFF9E9E
9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E
9EFF9E9E9EDD9E9E9E4EFFFFFF00FFFFFF009E9E9ED6C7CDCDFFDBE4E4FFDBE4
E4FFDBE5E5FFDCE5E5FFDCE5E5FFDDE6E6FFDDE6E6FFDEE7E7FFDFE8E8FFE0E8
E8FFCDD3D3FF9E9E9EE3FFFFFF00FFFFFF009E9E9EEAD6DFDFFFC4C6C6FFC1C1
C1FFC1C1C1FFC3C3C3FFC4C4C4FFC5C5C5FFC6C6C6FFC8C8C8FFC9C9C9FFCDCD
CDFFE0E8E8FF9E9E9EF7FFFFFF00FFFFFF009E9E9EEAD7DFDFFFC7C9C9FFC3C3
C3FFC5C5C5FFC6C6C6FFC8C8C8FFC9C9C9FFCACACAFFCCCCCCFFCDCDCDFFD0D1
D1FFE3EAEAFF9E9E9EF7FFFFFF00FFFFFF009E9E9EEAD9E1E1FFCBCCCCFFC7C7
C7FFC8C8C8FFCACACAFFCBCBCBFFCDCDCDFFCECECEFFD0D0D0FFD1D1D1FFD3D4
D4FFE5EBEBFF9E9E9EF7FFFFFF00FFFFFF009E9E9EEADBE2E2FFCDCFCFFFCBCB
CBFFCCCCCCFFCECECEFFCFCFCFFFD0D0D0FFD2D2D2FF98B4A2FF5E9773FF4F8E
66FF498960FF678B74FBFFFFFF009E9E9EFFBBBEBEFFE6ECECFFE6EDEDFFE7ED
EDFFE8EEEEFFE9EFEFFFE9EFEFFFEAEFEFFF9DBFACFF61AB81FF95D4B4FFBAE6
D0FF6ABB8FFF2D8F57FF558265FF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E
9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF47885FFF90D3B1FF92D6B1FFFFFF
FFFF65BC8CFF67BC8FFF1D6D3AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00317B4CFF9CD4B6FFFFFFFFFFFFFF
FFFFFFFFFFFF95D2B2FF196B37FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001B6C39F762BA8BFF60BA87FFFFFF
FFFF60B987FF67BC8FFF196B37F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00196B3784288C53FF64BA8DFF95D2
B2FF64BA8DFF288C53FF196B378CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00196B3788196B37F2196B
37FF196B37F2196B3788FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009E9E9E439E9E9EC89E9E9EFF9E9E
9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E
9EFF9E9E9EDD9E9E9E4EFFFFFF00FFFFFF009E9E9ED6C7CDCDFFDBE4E4FFDBE4
E4FFDBE5E5FFDCE5E5FFDCE5E5FFDDE6E6FFDDE6E6FFDEE7E7FFDFE8E8FFE0E8
E8FFCDD3D3FF9E9E9EE3FFFFFF00FFFFFF009E9E9EEAD6DFDFFFC4C6C6FFC1C1
C1FFC1C1C1FFC3C3C3FFC4C4C4FFC5C5C5FFC6C6C6FFC8C8C8FFC9C9C9FFCDCD
CDFFE0E8E8FF9E9E9EF7FFFFFF00FFFFFF009E9E9EEAD7DFDFFFC7C9C9FFC3C3
C3FFC5C5C5FFC6C6C6FFC8C8C8FFC9C9C9FFCACACAFFCCCCCCFFCDCDCDFFD0D1
D1FFE3EAEAFF9E9E9EF7FFFFFF00FFFFFF009E9E9EEAD9E1E1FFCBCCCCFFC7C7
C7FFC8C8C8FFCACACAFFCBCBCBFFCDCDCDFFCECECEFFD0D0D0FFD1D1D1FFD3D4
D4FFE5EBEBFF9E9E9EF7FFFFFF00FFFFFF009E9E9EEADBE2E2FFCDCFCFFFCBCB
CBFFCCCCCCFFCECECEFFCFCFCFFFD0D0D0FFD2D2D2FF7E99CCFF255DC2FF0543
BCFF1D58BFFF5473ABFBFFFFFF009E9E9EFFBBBEBEFFE6ECECFFE6EDEDFFE7ED
EDFFE8EEEEFFE9EFEFFFE9EFEFFFEAEFEFFF8BA9DBFF3C76D2FF8DB5F7FFB8D6
FEFF72A8F5FF2F6CCBFF5C77AAFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E
9EFF9E9E9EFF9E9E9EFF9E9E9EFF9E9E9EFF1850B5FF8DB5F6FF4D92FFFF1177
FFFF2186FFFF408AEBFF1750B6FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000442BCFEAECDFEFFFFFFFFFFFFFF
FFFFFFFFFFFF187FEFFF0442BCFEFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000345B9E3639DF4FF187FFFFF0076
F8FF0076EEFF0368E1FF0345B9E4FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001A57C3802564C9FB2177E6FF0579
EAFF0164DDFF044DBDFC0345B87AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001D57C4780345B9DF0442
BCFE0345B9E30345B87AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
0000000000000000000B000000230000002F0000002F0000002F0000002F0000 0000000000000000000B000000230000002F0000002F0000002F0000002F0000
00230000000BFFFFFF00FFFFFF00000000000000000000000000000000000000 00230000000BFFFFFF00FFFFFF00000000000000000000000000000000000000
@ -1308,7 +1282,71 @@ object Form1: TForm1
1A430000448000005AAB00005DC400005DC400005AAB0000448000001A430000 1A430000448000005AAB00005DC400005DC400005AAB0000448000001A430000
002D0000001800000004FFFFFF00FFFFFF00000000020000000C000000160000 002D0000001800000004FFFFFF00FFFFFF00000000020000000C000000160000
001A0000001A0000001A0000001A0000001A0000001A0000001A0000001A0000 001A0000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
00170000000C00000002FFFFFF00 00170000000C00000002FFFFFF00545454005454540054545400555555225555
5559555555665555556655555566555555665555556655555566555555665555
55665555556655555559555555225454540052525200525252005252525BC6C6
C6D4DBDBDBFFD6D6D6FFD1D1D1FFCBCCCCFFC7C7C7FFC6C4C4FFC8C5C5FFCEC6
C6FFD4C9C9FFC4B7B7D45252525B55555500545454005050500050505069BBBB
BBFFB9B9B9FFB6B6B6FFB4B4B4FFB0B0B0FFADADADFFA9A9A9FFA6A6A6FFA2A2
A2FFA0A0A0FF9D9D9DFF0303036655555500555555005555550054545467FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF54545467555555225555555955555566535353A5B9B9
B9FFB8B8B8FFB8B8B8FFB8B8B8FFB8B8B8FFB8B8B8FFB8B8B8FFC1C1C1FFE5E5
E5FFFBFBFBFFFCFCFCFF505050695252525BC6C6C6D4DBDBDBFFD6D6D6FFD1D1
D1FFCBCCCCFFC7C7C7FFC6C4C4FFC8C5C5FFCEC6C6FFD4C9C9FFD0C5C5FFBCBC
BCFFF6F6F6FFF8F8F8FF4B4B4B6B50505069BBBBBBFFB9B9B9FFB6B6B6FFB4B4
B4FFB0B0B0FFADADADFFA9A9A9FFA6A6A6FFA2A2A2FFA0A0A0FF9D9D9DFF9191
91FFF0F0F0FFF4F4F4FF4545456E54545467FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAEAE
AEFFEAEAEAFFEFEFEFFF3D3D3D7150505069FCFCFCFFFBFBFBFFFBFBFBFFFBFB
FBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFBFBFBFFFCFCFCFFA8A8
A8FFE4E4E4FFEBEBEBFF363636744B4B4B6BF8F8F8FFF6F6F6FFF6F6F6FFF6F6
F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF6F6F6FFF8F8F8FFA6A6
A6FFE8E8E8FFECECECFF2D2D2D784545456EF4F4F4FFF0F0F0FFF0F0F0FFF0F0
F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF4F4F4FF3131
31B81414148314141483111111653D3D3D71EFEFEFFFEAEAEAFFEAEAEAFFEAEA
EAFFEAEAEAFFEAEAEAFFEAEAEAFFEAEAEAFF5E5EC2FF2F2FB5FF3030B6FF0606
9AE60000A3D10000A4D100007C9E36363674EBEBEBFFE4E4E4FFE4E4E4FFE4E4
E4FFE4E4E4FFE4E4E4FFE4E4E4FFE4E4E4FF2E2EA7FF5E5EF7FF5E5EF7FF5E5E
F7FF5E5EF7FF5E5EF7FF000098CC2D2D2D78ECECECFFE8E8E8FFE8E8E8FFE8E8
E8FFE8E8E8FFE8E8E8FFE8E8E8FFE8E8E8FF5F5FADFF2F2F95FF303096FF0505
77E4000080CC000080CC00008499111111651414148314141483141414831414
1483141414831414148314141483141414831414148314141483141414831111
116500005A0000007700000080000000000A000000180000001A0000001A0000
001A0000001A0000001A0000001A0000001A0000001A0000001A000000190000
000B000000000000770000008000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D4976EC9D49E7BC9D09871C9D6A4
82C9CD8E68C9CD9069C9D09A75C9D19973C9C88B62C9AD5A202BFFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00CC8D65C9F3CDB0C9FFFFFFC9E3C7
B3C9FFFFFFC9FFFFFFC9FFFFFFC9FFFFFFC9EABFA1C9C98960C9FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C7865BC9EFC09EC9D9A27DF8D39D
7AF8D5A380F8DAAE8FF8D29A77F8D29B77F8D29C77F8D09771F8C88B62DEAD5A
202FFFFFFF00FFFFFF00FFFFFF00FFFFFF00C8885DC9EFBFA1C9D19975F8F4D2
B8F8FFFFFFF8E6CDBBF8FFFFFEF8FFFFFFF8FBF6F2F8F8F1EDF8EABFA1DEC989
60DEFFFFFF00FFFFFF00FFFFFF00FFFFFF00CA8D65C9EAB899C9C9895FF8EDBD
9BF8D4976EFFD49E7BFFD09871FFD6A482FFCD8E68FFCD9069FFD09A75FFD199
73FFC88B62FFAD5A2036FFFFFF00FFFFFF00C98B61C9E6B592C9CB8B61F8EEBC
9EF8CC8D65FFF3CDB0FFFFFFFFFFE3C7B3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFEABFA1FFC98960FFFFFFFF00FFFFFF00C48154C9EAB697C9CE9873F8EABE
A1F8C7865BFFEFC09EFFFFFFFFFFCC936EFFFFFFFFFFFFFFFFFFFFFBF7FFFFF8
F1FFE4AF8CFFC78A61FFFFFFFF00FFFFFF00C37F51C9EFB69AC9CC966FF8D6B6
91F8C8885DFFEFBFA1FFFDFCFAFFFEFCFBFFFEFDFDFFFEFDFCFFFDFBFAFFFDFC
FBFFDDA885FFC17F53FFFFFFFF00FFFFFF00C68355C9EFCEBAC9C78E66F8E0BC
9CF8CA8D65FFEAB899FFDDA57EFFDDA680FFDBA37CFFD9A07AFFD9A079FFD89F
78FFD89E78FFBF845DFFFFFFFF00FFFFFF00BA68339BC38458C9C58053F8EEB2
96F8C98B61FFE6B592FFE2A781FFE1A781FFDEA37DFFDCA17BFFDB9F79FFD99E
77FFD49A73FFBB7E57FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00C68355DEEFCE
BADEC48154FFEAB697FFF3F3EAFFEDF1E6FFEFF1E6FFEFF0E6FFEDF1E5FFF3F5
EDFFD59C79FFB07044FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00BA6833ACC384
58DEC37F51FFEFB69AFFEAF3E8FF51BF84FF6FC998FF71C999FF54BF84FFE4F4
E9FFDD9C7BFFAA693AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00C68355FFEFCEBAFFDDFFFFFF87EEC7FFA2F4D7FFA2F6D7FF8CEEC7FFE0FF
FFFFDDA285FFAB6A3EFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00BA6833C5C38458FFD38B68FFE18F70FFDC8D6CFFDA8B6DFFD78A6EFFCD8B
6CFFAB6D44FFA65F2EFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00
} }
end end
object MTrayIcon: TTrayIcon object MTrayIcon: TTrayIcon
@ -1355,17 +1393,21 @@ object Form1: TForm1
Images = Mufasa_Image_List Images = Mufasa_Image_List
left = 600 left = 600
object TrayStop: TMenuItem object TrayStop: TMenuItem
Caption = 'Stop' Action = ActionStopScript
OnClick = TrayStopClick Enabled = False
OnClick = ActionStopExecute
end end
object TrayPause: TMenuItem object TrayPause: TMenuItem
Caption = 'Pause' Action = ActionPauseScript
Enabled = False Enabled = False
OnClick = TrayPauseClick OnClick = ActionPauseExecute
end end
object TrayPlay: TMenuItem object TrayPlay: TMenuItem
Caption = 'Play' Action = ActionRunScript
OnClick = TrayPlayClick OnClick = ActionRunExecute
end
object TrayDivider: TMenuItem
Caption = '-'
end end
object MenuItemShow: TMenuItem object MenuItemShow: TMenuItem
Caption = 'Show' Caption = 'Show'
@ -1376,4 +1418,163 @@ object Form1: TForm1
OnClick = MenuItemExitClick OnClick = MenuItemExitClick
end end
end end
object TabPopup: TPopupMenu
Images = Mufasa_Image_List
left = 424
object MenuItemTabAdd: TMenuItem
Action = ActionNewTab
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004390000066D0099056900CC066D00990439000000000000000000090000
00160000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
001A0000001A0B8000D12BDF1AFF0B8000D100000016000000090D0D0D671010
1085101010851010108510101085101010851010108510101085101010850E62
04CF0E7E02E70E7E02E73DE22CFF0E7E02E70E7E02E70B5F02B02727277BEBEB
EBFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FF3BA5
2FFF52E741FF52E741FF52E741FF52E741FF52E741FF128905E532323276EAEA
EAFFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF66B9
5BFF3CAB2DFF3CAB2DFF66EB55FF3CAB2DFF3EAD2FFF1C7A11C838383873EDED
EDFFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FF3EB12EFF75EE64FF3EB12EFFEDEDEDFF383838733E3E3E71F0F0
F0FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFF6BC45FFF40B62FFF6BC45FFFF0F0F0FF3E3E3E714444446EF3F3
F3FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF3F3F3FF4444446E4949496CF7F7
F7FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF7F7F7FF4949496C4D4D4D6AFAFA
FAFFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFFAFAFAFF4D4D4D6A51515168FDFD
FDFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFDFDFDFF5151516855555567FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555556750505069BBBB
BBFFBABABAFFB8B8B8FFB6B6B6FFB3B3B3FFB0B0B0FFAEAEAEFFABABABFFA8A8
A8FFA6A6A6FFA3A3A3FFA0A0A0FF9E9E9EFF9C9C9CFF030303665252525BC6C6
C6D4DCDCDCFFD8D9D9FFD5D5D5FFD0D1D1FFCCCCCCFFC8C8C8FFC6C6C6FFC6C5
C5FFC9C5C5FFCDC6C6FFD1C7C7FFD7CBCBFFC4B8B8D45252525B555555225555
5559555555665555556655555566555555665555556655555566555555665555
5566555555665555556655555566555555665555555955555522FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = ActionNewTabExecute
end
object MenuItemTabClose: TMenuItem
Caption = 'Close tab'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000090000
00160000001A0000001A0000001A0000001A0000001A0000001A0000001A0000
001A0000001A0000001A0000001A0000001A00000016000000090D0D0D671010
1085101010851010108510101085101010851010108510101085101010850404
5BCF020273E7020273E7020273E7020273E7020273E7020258B02727277BEBEB
EBFFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FFE7E7E7FF2F2F
A7FF5E5EF7FF5E5EF7FF5E5EF7FF5E5EF7FF5E5EF7FF05058BE532323276EAEA
EAFFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FFE2E2E2FF5B5B
BEFF2D2DB3FF2D2DB3FF2D2DB3FF2D2DB3FF2F2FB5FF111181C838383873EDED
EDFFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6E6FFEDEDEDFF383838733E3E3E71F0F0
F0FFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEB
EBFFEBEBEBFFEBEBEBFFEBEBEBFFEBEBEBFFF0F0F0FF3E3E3E714444446EF3F3
F3FFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEF
EFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFF3F3F3FF4444446E4949496CF7F7
F7FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4
F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF7F7F7FF4949496C4D4D4D6AFAFA
FAFFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8
F8FFF8F8F8FFF8F8F8FFF8F8F8FFF8F8F8FFFAFAFAFF4D4D4D6A51515168FDFD
FDFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFC
FCFFFCFCFCFFFCFCFCFFFCFCFCFFFCFCFCFFFDFDFDFF5151516855555567FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5555556750505069BBBB
BBFFBABABAFFB8B8B8FFB6B6B6FFB3B3B3FFB0B0B0FFAEAEAEFFABABABFFA8A8
A8FFA6A6A6FFA3A3A3FFA0A0A0FF9E9E9EFF9C9C9CFF030303665252525BC6C6
C6D4DCDCDCFFD8D9D9FFD5D5D5FFD0D1D1FFCCCCCCFFC8C8C8FFC6C6C6FFC6C5
C5FFC9C5C5FFCDC6C6FFD1C7C7FFD7CBCBFFC4B8B8D45252525B555555225555
5559555555665555556655555566555555665555556655555566555555665555
5566555555665555556655555566555555665555555955555522FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 16
OnClick = MenuItemTabCloseClick
end
object MenuItemTabCloseOthers: TMenuItem
Caption = 'Close Other Tabs'
OnClick = MenuItemTabCloseOthersClick
end
end
object ActionList: TActionList
Images = Mufasa_Image_List
left = 384
object ActionTabNext: TAction
Caption = 'Next tab'
OnExecute = ActionTabNextExecute
ShortCut = 16393
end
object ActionTabLast: TAction
Caption = 'Last tab'
OnExecute = ActionTabLastExecute
ShortCut = 24585
end
object ActionCloseTab: TAction
Caption = 'ActionCloseTab'
ImageIndex = 16
OnExecute = ActionCloseTabExecute
SecondaryShortCuts.Strings = (
'Ctrl+F4'
)
ShortCut = 16471
end
object ActionNewTab: TAction
Caption = 'New Tab'
ImageIndex = 15
OnExecute = ActionNewTabExecute
ShortCut = 16468
end
object ActionNewScript: TAction
Caption = 'New'
ImageIndex = 9
OnExecute = ActionNewExecute
ShortCut = 16462
end
object ActionOpenScript: TAction
Caption = 'Open'
ImageIndex = 10
OnExecute = ActionOpenExecute
ShortCut = 16463
end
object ActionSaveScript: TAction
Caption = 'Save'
ImageIndex = 14
OnExecute = ActionSaveExecute
ShortCut = 16467
end
object ActionSaveScriptAs: TAction
Caption = 'Save as..'
OnExecute = ActionSaveAsExecute
end
object ActionRunScript: TAction
Caption = 'Run'
OnExecute = ActionRunExecute
ShortCut = 120
end
object ActionPauseScript: TAction
Caption = 'Pause'
OnExecute = ActionPauseExecute
end
object ActionStopScript: TAction
Caption = 'Stop'
OnExecute = ActionStopExecute
end
object ActionSaveAll: TAction
Caption = 'Save All'
ImageIndex = 21
OnExecute = ActionSaveAllExecute
ShortCut = 24659
end
end
end end

File diff suppressed because it is too large Load Diff

View File

@ -37,8 +37,8 @@ uses
window, // for the comp picker and selector window, // for the comp picker and selector
colourpicker, framescript, colourpicker, framescript,
windowselector, windowselector,
lcltype lcltype, ActnList, StdActns
, SynEditKeyCmds,SynEditHighlighter, SynEditMarkupSpecialLine, SynEditMiscClasses; , SynEditKeyCmds,SynEditHighlighter, SynEditMarkupSpecialLine, SynEditMiscClasses, LMessages;
type type
@ -59,9 +59,34 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
ActionSaveAll: TAction;
ActionStopScript: TAction;
ActionSaveScript: TAction;
ActionSaveScriptAs: TAction;
ActionRunScript: TAction;
ActionPauseScript: TAction;
ActionNewScript: TAction;
ActionOpenScript: TAction;
ActionNewTab: TAction;
ActionCloseTab: TAction;
ActionTabLast: TAction;
ActionTabNext: TAction;
ActionList: TActionList;
Memo1: TMemo; Memo1: TMemo;
MenuFile: TMenuItem; MenuFile: TMenuItem;
MenuEdit: TMenuItem; MenuEdit: TMenuItem;
MenuItemSaveAll: TMenuItem;
MenuItemTabCloseOthers: TMenuItem;
MenuItemTabAdd: TMenuItem;
MenuItemTabClose: TMenuItem;
MenuItemCloseTabs: TMenuItem;
MenuItemCloseTab: TMenuItem;
MenuItemNewTab: TMenuItem;
MenuItemDivider2: TMenuItem;
MenuItemDivider: TMenuItem;
TabPopup: TPopupMenu;
TB_SaveAll: TToolButton;
TrayDivider: TMenuItem;
TrayPlay: TMenuItem; TrayPlay: TMenuItem;
TrayStop: TMenuItem; TrayStop: TMenuItem;
TrayPause: TMenuItem; TrayPause: TMenuItem;
@ -106,9 +131,19 @@ type
ToolButton8: TToolButton; ToolButton8: TToolButton;
TB_Convert: TToolButton; TB_Convert: TToolButton;
MTrayIcon: TTrayIcon; MTrayIcon: TTrayIcon;
procedure ButtonCloseTabClick(Sender: TObject); procedure ActionCloseTabExecute(Sender: TObject);
procedure ActionNewExecute(Sender: TObject);
procedure ActionNewTabExecute(Sender: TObject);
procedure ActionOpenExecute(Sender: TObject);
procedure ActionPauseExecute(Sender: TObject);
procedure ActionRunExecute(Sender: TObject);
procedure ActionSaveAllExecute(Sender: TObject);
procedure ActionSaveAsExecute(Sender: TObject);
procedure ActionSaveExecute(Sender: TObject);
procedure ActionStopExecute(Sender: TObject);
procedure ActionTabLastExecute(Sender: TObject);
procedure ActionTabNextExecute(Sender: TObject);
procedure ButtonNewClick(Sender: TObject); procedure ButtonNewClick(Sender: TObject);
procedure ButtonNewTabClick(Sender: TObject);
procedure ButtonOpenClick(Sender: TObject); procedure ButtonOpenClick(Sender: TObject);
procedure ButtonPauseClick(Sender: TObject); procedure ButtonPauseClick(Sender: TObject);
procedure ButtonRunClick(Sender: TObject); procedure ButtonRunClick(Sender: TObject);
@ -117,8 +152,10 @@ type
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShortCuts(var Msg: TLMKey; var Handled: Boolean);
procedure MenuEditClick(Sender: TObject); procedure MenuEditClick(Sender: TObject);
procedure MenuFileClick(Sender: TObject); procedure MenuFileClick(Sender: TObject);
procedure MenuItemCloseTabsClick(Sender: TObject);
procedure MenuItemCutClick(Sender: TObject); procedure MenuItemCutClick(Sender: TObject);
procedure MenuItemExitClick(Sender: TObject); procedure MenuItemExitClick(Sender: TObject);
procedure MenuItemNewClick(Sender: TObject); procedure MenuItemNewClick(Sender: TObject);
@ -130,6 +167,8 @@ type
procedure MenuItemSaveClick(Sender: TObject); procedure MenuItemSaveClick(Sender: TObject);
procedure MenuItemShowClick(Sender: TObject); procedure MenuItemShowClick(Sender: TObject);
procedure MenuItemStopClick(Sender: TObject); procedure MenuItemStopClick(Sender: TObject);
procedure MenuItemTabCloseClick(Sender: TObject);
procedure MenuItemTabCloseOthersClick(Sender: TObject);
procedure OnLinePSScript(Sender: TObject); procedure OnLinePSScript(Sender: TObject);
procedure ButtonPickClick(Sender: TObject); procedure ButtonPickClick(Sender: TObject);
procedure MenuItemRedoClick(Sender: TObject); procedure MenuItemRedoClick(Sender: TObject);
@ -140,10 +179,18 @@ type
procedure ButtonStopClick(Sender: TObject); procedure ButtonStopClick(Sender: TObject);
procedure ButtonTrayClick(Sender: TObject); procedure ButtonTrayClick(Sender: TObject);
procedure MenuItemUndoClick(Sender: TObject); procedure MenuItemUndoClick(Sender: TObject);
procedure PageControl1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure PageControl1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TrayPauseClick(Sender: TObject); procedure TrayPauseClick(Sender: TObject);
procedure TrayPlayClick(Sender: TObject); procedure TrayPlayClick(Sender: TObject);
procedure TrayStopClick(Sender: TObject); procedure TrayStopClick(Sender: TObject);
private private
PopupTab : integer;
function GetScriptState: TScriptState; function GetScriptState: TScriptState;
procedure SetScriptState(const State: TScriptState); procedure SetScriptState(const State: TScriptState);
public public
@ -168,6 +215,8 @@ type
procedure AddTab; procedure AddTab;
function DeleteTab( TabIndex : integer; CloseLast : boolean) : boolean; function DeleteTab( TabIndex : integer; CloseLast : boolean) : boolean;
procedure ClearTab( TabIndex : integer); procedure ClearTab( TabIndex : integer);
procedure CloseTabs( Exclude : integer);overload;//-1 for none
procedure CloseTabs;overload;
procedure RefreshTab;//Refreshes all the form items that depend on the Script (Panels, title etc.) procedure RefreshTab;//Refreshes all the form items that depend on the Script (Panels, title etc.)
end; end;
{$ifdef mswindows} {$ifdef mswindows}
@ -296,14 +345,22 @@ var
begin; begin;
Tab := TMufasaTab.Create(Self.PageControl1); Tab := TMufasaTab.Create(Self.PageControl1);
Tabs.Add(Tab); Tabs.Add(Tab);
// Tab.TabSheet.OnContextPopup:= @TabPopup;
PageControl1.TabIndex:= Tabs.Count - 1; PageControl1.TabIndex:= Tabs.Count - 1;
RefreshTab; RefreshTab;
if tabs.count > 1 then
begin;
TB_SaveAll.Enabled:= True;
MenuItemSaveAll.Enabled:= True;
end;
end; end;
function TForm1.DeleteTab(TabIndex: integer; CloseLast : boolean) : boolean; function TForm1.DeleteTab(TabIndex: integer; CloseLast : boolean) : boolean;
var var
Tab : TMufasaTab; Tab : TMufasaTab;
OldIndex : integer;//So that we can switch back, if needed.
begin begin
OldIndex := PageControl1.TabIndex;
PageControl1.TabIndex:= TabIndex; PageControl1.TabIndex:= TabIndex;
//ScriptFrame now is now correct ;-D //ScriptFrame now is now correct ;-D
result := CanExitOrOpen; result := CanExitOrOpen;
@ -316,6 +373,15 @@ begin
begin; begin;
Tab.Free; Tab.Free;
Tabs.Delete(TabIndex); Tabs.Delete(TabIndex);
if OldIndex > TabIndex then
PageControl1.TabIndex := OldIndex - 1
else if OldIndex < TabIndex then
PageControl1.TabIndex := OldIndex;
end;
if tabs.count <= 1 then
begin;
TB_SaveAll.Enabled:= false;
MenuItemSaveAll.Enabled:= false;
end; end;
end; end;
@ -324,6 +390,20 @@ begin
TMufasaTab(Tabs[TabIndex]).Clear; TMufasaTab(Tabs[TabIndex]).Clear;
end; end;
procedure TForm1.CloseTabs(Exclude: integer);
var
I : integer;
begin
for i := tabs.count - 1 downto 0 do
if i <> exclude then
DeleteTab(i,false);
end;
procedure TForm1.CloseTabs;
begin
CloseTabs(-1);
end;
procedure TForm1.RefreshTab; procedure TForm1.RefreshTab;
var var
Tab : TMufasaTab; Tab : TMufasaTab;
@ -348,7 +428,8 @@ begin
StatusBar.Panels[Panel_ScriptPath].text:= Script.ScriptFile; StatusBar.Panels[Panel_ScriptPath].text:= Script.ScriptFile;
SetScriptState(Tab.ScriptFrame.FScriptState);//To set the buttons right SetScriptState(Tab.ScriptFrame.FScriptState);//To set the buttons right
if Self.Showing then if Self.Showing then
CurrScript.SynEdit.SetFocus; if Tab.TabSheet.TabIndex = Self.PageControl1.TabIndex then
CurrScript.SynEdit.SetFocus;
end; end;
procedure TForm1.ButtonRunClick(Sender: TObject); procedure TForm1.ButtonRunClick(Sender: TObject);
@ -366,14 +447,87 @@ begin
Self.ClearScript; Self.ClearScript;
end; end;
procedure TForm1.ButtonNewTabClick(Sender: TObject); procedure TForm1.ActionTabLastExecute(Sender: TObject);
begin; var
AddTab; CurrIndex : integer;
begin
CurrIndex := PageControl1.TabIndex;
if CurrIndex = 0 then
CurrIndex := Tabs.count - 1
else
Dec(CurrIndex);
PageControl1.TabIndex:= CurrIndex;
end; end;
procedure TForm1.ButtonCloseTabClick(Sender: TObject); procedure TForm1.ActionCloseTabExecute(Sender: TObject);
begin begin
DeleteTab( PageControl1.TabIndex,false); Self.DeleteTab(PageControl1.TabIndex,false);
end;
procedure TForm1.ActionNewExecute(Sender: TObject);
begin
Self.ClearScript;
end;
procedure TForm1.ActionNewTabExecute(Sender: TObject);
begin
Self.AddTab;
end;
procedure TForm1.ActionOpenExecute(Sender: TObject);
begin
Self.OpenScript;
end;
procedure TForm1.ActionPauseExecute(Sender: TObject);
begin
Self.PauseScript;
end;
procedure TForm1.ActionRunExecute(Sender: TObject);
begin
Self.RunScript;
end;
procedure TForm1.ActionSaveAllExecute(Sender: TObject);
var
i : integer;
OldIndex : integer;
begin
OldIndex := PageControl1.TabIndex;
for i := 0 to Tabs.Count - 1 do
begin;
PageControl1.TabIndex:= i;
SaveCurrentScript;
end;
PageControl1.TabIndex:= oldindex;
end;
procedure TForm1.ActionSaveAsExecute(Sender: TObject);
begin
Self.SaveCurrentScriptAs;
end;
procedure TForm1.ActionSaveExecute(Sender: TObject);
begin
Self.SaveCurrentScript;
end;
procedure TForm1.ActionStopExecute(Sender: TObject);
begin
Self.StopScript;
end;
procedure TForm1.ActionTabNextExecute(Sender: TObject);
var
CurrIndex : integer;
begin
CurrIndex := PageControl1.TabIndex;
if CurrIndex = Tabs.count - 1 then
CurrIndex := 0
else
Inc(CurrIndex);
PageControl1.TabIndex:= CurrIndex;
end; end;
procedure TForm1.ButtonOpenClick(Sender: TObject); procedure TForm1.ButtonOpenClick(Sender: TObject);
@ -428,6 +582,13 @@ begin
PluginsGlob.Free; PluginsGlob.Free;
end; end;
procedure TForm1.FormShortCuts(var Msg: TLMKey; var Handled: Boolean);
begin
Handled := ActionList.IsShortCut(Msg);
{ ShiftState := MsgKeyDataToShiftState(Message.KeyData);
ShortCut := KeyToShortCut(Message.CharCode, ShiftState);}
end;
procedure TForm1.MenuEditClick(Sender: TObject); procedure TForm1.MenuEditClick(Sender: TObject);
begin begin
@ -438,6 +599,11 @@ begin
end; end;
procedure TForm1.MenuItemCloseTabsClick(Sender: TObject);
begin
Self.CloseTabs;
end;
procedure TForm1.MenuItemCutClick(Sender: TObject); procedure TForm1.MenuItemCutClick(Sender: TObject);
begin begin
Self.cut; Self.cut;
@ -494,6 +660,16 @@ begin
self.StopScript; self.StopScript;
end; end;
procedure TForm1.MenuItemTabCloseClick(Sender: TObject);
begin
DeleteTab(PopupTab,false);
end;
procedure TForm1.MenuItemTabCloseOthersClick(Sender: TObject);
begin
CloseTabs(PopupTab);
end;
procedure TForm1.OnLinePSScript(Sender: TObject); procedure TForm1.OnLinePSScript(Sender: TObject);
begin begin
//Writeln('We just completed a line!!'); //Writeln('We just completed a line!!');
@ -528,7 +704,7 @@ end;
procedure TForm1.NoTray(Sender: TObject); procedure TForm1.NoTray(Sender: TObject);
begin begin
if Not Form1.IsVisible then if Not Form1.IsVisible then
Form1.Show Self.MenuItemShowClick(Sender)
else else
Form1.Hide; Form1.Hide;
end; end;
@ -554,6 +730,42 @@ begin
CurrScript.Undo; CurrScript.Undo;
end; end;
procedure TForm1.PageControl1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
PopupTab := PageControl1.TabIndexAtClientPos(MousePos);
end;
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
NewPos : integer;
OldPos : integer;
begin
if sender <> PageControl1 then
exit;
NewPos := PageControl1.TabIndexAtClientPos(Point(x,y));
OldPos := PageControl1.TabIndex;
if NewPos <> OldPos then
begin;
Tabs.Move(OldPos,NewPos);
PageControl1.Pages[PageControl1.TabIndex].TabIndex:= PageControl1.TabIndexAtClientPos(Point(x,y));
end;
end;
procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Sender = PageControl1 then;
Accept := True;
end;
procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PageControl1.BeginDrag(False);
end;
procedure TForm1.TrayPauseClick(Sender: TObject); procedure TForm1.TrayPauseClick(Sender: TObject);
begin begin
Self.PauseScript; Self.PauseScript;