pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1881 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
julianus
2011-08-31 14:27:23 +00:00
parent 79e55f98bc
commit 6d981c0a9c
6 changed files with 3030 additions and 2141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
components/cmdline/CmdLineExample.lpi
View File

@ -1,19 +1,23 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -26,94 +30,244 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
<PackageName Value="cmdbox"/>
<MinVersion Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="8">
<Units Count="9">
<Unit0>
<Filename Value="CmdLineExample.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CmdLineExample"/>
<CursorPos X="27" Y="11"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<UsageCount Value="148"/>
<CursorPos X="15" Y="4"/>
<UsageCount Value="155"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="wnmainform.pas"/>
<ComponentName Value="WMainForm"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="WMainForm"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="wnmainform.lrs"/>
<UnitName Value="wnmainform"/>
<CursorPos X="63" Y="113"/>
<TopLine Value="63"/>
<EditorIndex Value="0"/>
<UsageCount Value="148"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="124" Y="194"/>
<UsageCount Value="155"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\ucmdline.pas"/>
<UnitName Value="ucmdline"/>
<CursorPos X="48" Y="1083"/>
<TopLine Value="146"/>
<CursorPos X="48" Y="1083"/>
<UsageCount Value="4"/>
</Unit2>
<Unit3>
<Filename Value="wnmainform.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="46"/>
<CursorPos X="1" Y="1"/>
<SyntaxHighlighter Value="LFM"/>
<UsageCount Value="46"/>
</Unit3>
<Unit4>
<Filename Value="tcmdbox.lrs"/>
<CursorPos X="17" Y="1"/>
<TopLine Value="1"/>
<CursorPos X="17" Y="1"/>
<UsageCount Value="13"/>
</Unit4>
<Unit5>
<Filename Value="ucmdline.pas"/>
<UnitName Value="ucmdline"/>
<CursorPos X="8" Y="30"/>
<TopLine Value="1"/>
<CursorPos X="8" Y="30"/>
<UsageCount Value="30"/>
</Unit5>
<Unit6>
<Filename Value="..\uflowcharteditor.pas"/>
<UnitName Value="uflowcharteditor"/>
<CursorPos X="25" Y="1039"/>
<TopLine Value="1015"/>
<CursorPos X="25" Y="1039"/>
<UsageCount Value="16"/>
</Unit6>
<Unit7>
<Filename Value="ucmdbox.pas"/>
<UnitName Value="uCmdBox"/>
<CursorPos X="56" Y="1479"/>
<TopLine Value="1448"/>
<EditorIndex Value="1"/>
<UsageCount Value="48"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="14" Y="36"/>
<UsageCount Value="51"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="..\..\lcl\include\application.inc"/>
<TopLine Value="91"/>
<CursorPos X="7" Y="128"/>
<UsageCount Value="10"/>
</Unit8>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="ucmdbox.pas"/>
<Caret Line="1867" Column="51" TopLine="1829"/>
</Position1>
<Position2>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2079" Column="17" TopLine="2041"/>
</Position2>
<Position3>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2109" Column="73" TopLine="2041"/>
</Position3>
<Position4>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2799" Column="38" TopLine="2761"/>
</Position4>
<Position5>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2809" Column="41" TopLine="2761"/>
</Position5>
<Position6>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2838" Column="26" TopLine="2791"/>
</Position6>
<Position7>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2919" Column="34" TopLine="2881"/>
</Position7>
<Position8>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2930" Column="21" TopLine="2881"/>
</Position8>
<Position9>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2936" Column="82" TopLine="2881"/>
</Position9>
<Position10>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2942" Column="82" TopLine="2881"/>
</Position10>
<Position11>
<Filename Value="ucmdbox.pas"/>
<Caret Line="350" Column="38" TopLine="322"/>
</Position11>
<Position12>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2332" Column="105" TopLine="2287"/>
</Position12>
<Position13>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2364" Column="13" TopLine="2295"/>
</Position13>
<Position14>
<Filename Value="ucmdbox.pas"/>
<Caret Line="157" Column="26" TopLine="135"/>
</Position14>
<Position15>
<Filename Value="ucmdbox.pas"/>
<Caret Line="175" Column="16" TopLine="135"/>
</Position15>
<Position16>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2362" Column="13" TopLine="2295"/>
</Position16>
<Position17>
<Filename Value="wnmainform.pas"/>
<Caret Line="257" Column="18" TopLine="183"/>
</Position17>
<Position18>
<Filename Value="ucmdbox.pas"/>
<Caret Line="290" Column="56" TopLine="269"/>
</Position18>
<Position19>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2783" Column="19" TopLine="2744"/>
</Position19>
<Position20>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2785" Column="19" TopLine="2744"/>
</Position20>
<Position21>
<Filename Value="ucmdbox.pas"/>
<Caret Line="358" Column="71" TopLine="345"/>
</Position21>
<Position22>
<Filename Value="ucmdbox.pas"/>
<Caret Line="1816" Column="21" TopLine="1778"/>
</Position22>
<Position23>
<Filename Value="ucmdbox.pas"/>
<Caret Line="132" Column="90" TopLine="123"/>
</Position23>
<Position24>
<Filename Value="ucmdbox.pas"/>
<Caret Line="308" Column="29" TopLine="241"/>
</Position24>
<Position25>
<Filename Value="ucmdbox.pas"/>
<Caret Line="381" Column="28" TopLine="356"/>
</Position25>
<Position26>
<Filename Value="ucmdbox.pas"/>
<Caret Line="1919" Column="39" TopLine="1871"/>
</Position26>
<Position27>
<Filename Value="ucmdbox.pas"/>
<Caret Line="286" Column="69" TopLine="270"/>
</Position27>
<Position28>
<Filename Value="ucmdbox.pas"/>
<Caret Line="309" Column="23" TopLine="270"/>
</Position28>
<Position29>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2357" Column="34" TopLine="2321"/>
</Position29>
<Position30>
<Filename Value="ucmdbox.pas"/>
<Caret Line="2209" Column="30" TopLine="2171"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<Generate Value="Faster"/>
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<StripSymbols Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>

2
components/cmdline/CmdLineExample.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, wnmainform;
{ add your units here }, wnmainform, cmdbox;
begin
Application.Initialize;

4711
components/cmdline/ucmdbox.pas
View File

File diff suppressed because it is too large Load Diff

79
components/cmdline/wnmainform.lfm
View File

@ -1,22 +1,22 @@
object WMainForm: TWMainForm
Left = 319
Height = 480
Top = 337
Width = 720
ActiveControl = CmdBox
Left = 536
Height = 529
Top = 288
Width = 707
Caption = 'TCmdBox Example Application'
ClientHeight = 480
ClientWidth = 720
ClientHeight = 529
ClientWidth = 707
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.25'
LCLVersion = '0.9.27'
object RightPanel: TPanel
Left = 579
Height = 480
Left = 566
Height = 529
Top = 0
Width = 141
Align = alRight
ClientHeight = 480
ClientHeight = 529
ClientWidth = 141
TabOrder = 0
object Label1: TLabel
@ -30,7 +30,7 @@ object WMainForm: TWMainForm
object Button1: TButton
Left = 16
Height = 25
Top = 440
Top = 489
Width = 109
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -40,16 +40,17 @@ object WMainForm: TWMainForm
end
object HistoryList: TListBox
Left = 16
Height = 285
Height = 272
Top = 24
Width = 109
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 1
end
object Button2: TButton
Left = 16
Height = 25
Top = 315
Top = 304
Width = 109
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -60,10 +61,10 @@ object WMainForm: TWMainForm
object CbSetCaret: TComboBox
Left = 16
Height = 21
Top = 397
Top = 456
Width = 109
Anchors = [akLeft, akRight, akBottom]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
AutoComplete = False
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
@ -71,6 +72,7 @@ object WMainForm: TWMainForm
'Caret-Sub-Bar'
'Caret-Big-Bar'
)
ItemWidth = 0
OnChange = CbSetCaretChange
Style = csDropDownList
TabOrder = 3
@ -79,30 +81,46 @@ object WMainForm: TWMainForm
object Button3: TButton
Left = 16
Height = 25
Top = 353
Top = 336
Width = 109
Anchors = [akLeft, akRight, akBottom]
Caption = 'Process'
OnClick = Button3Click
TabOrder = 4
end
object cbWordWrap: TCheckBox
Left = 18
Height = 17
Top = 376
Width = 72
Anchors = [akLeft, akBottom]
Caption = 'WordWrap'
Checked = True
OnChange = cbWordWrapChange
State = cbChecked
TabOrder = 5
end
end
object Splitter1: TSplitter
Left = 574
Height = 480
Left = 561
Height = 529
Top = 0
Width = 5
Align = alRight
Beveled = True
ResizeAnchor = akRight
end
object CmdBox: TCmdBox
Height = 480
Width = 574
Left = 0
Height = 529
Top = 0
Width = 561
Align = alClient
PopupMenu = PopupMenu1
CaretColor = 33023
CaretType = cartUser
CaretWidth = 1
CaretHeight = 13
CaretHeight = 15
CaretYShift = 3
OnInput = CmdBoxInput
LineCount = 1000
@ -118,11 +136,11 @@ object WMainForm: TWMainForm
InputSelColor = clPurple
InputSelBackGround = clSilver
CaretInterval = 500
EscapeCodeType = esctCmdBox
GraphicalCharacterWidth = 10
AutoFollow = True
end
object ReaderTimer: TTimer
Interval = 700
Interval = 500
OnTimer = ReaderTimerTimer
left = 66
top = 75
@ -134,4 +152,17 @@ object WMainForm: TWMainForm
left = 104
top = 75
end
object FontDialog: TFontDialog
MinFontSize = 0
MaxFontSize = 0
left = 144
top = 75
end
object PopupMenu1: TPopupMenu
left = 168
top = 196
object MenuItem1: TMenuItem
Caption = 'Nothing here'
end
end
end

123
components/cmdline/wnmainform.lrs
View File

@ -1,81 +1,50 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TWMainForm','FORMDATA',[
'TPF0'#10'TWMainForm'#9'WMainForm'#4'Left'#3'?'#1#6'Height'#3#224#1#3'Top'#3
+'Q'#1#5'Width'#3#208#2#13'ActiveControl'#7#6'CmdBox'#7'Caption'#6#27'TCmdBox'
+' Example Application'#12'ClientHeight'#3#224#1#11'ClientWidth'#3#208#2#8'On'
+'Create'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'po'
+'ScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6'TPanel'#10'RightPanel'#4'Left'
+#3'C'#2#6'Height'#3#224#1#5'Width'#3#141#0#5'Align'#7#7'alRight'#12'ClientHe'
+'ight'#3#224#1#11'ClientWidth'#3#141#0#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'
+#4'Left'#2#16#6'Height'#2#14#3'Top'#2#8#5'Width'#2'#'#7'Caption'#6#7'History'
+#11'ParentColor'#8#0#0#7'TButton'#7'Button1'#4'Left'#2#16#6'Height'#2#25#3'T'
+'op'#3#184#1#5'Width'#2'm'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#12'End Programm'#7'OnClick'#7
+#12'Button1Click'#8'TabOrder'#2#0#0#0#8'TListBox'#11'HistoryList'#4'Left'#2
+#16#6'Height'#3#29#1#3'Top'#2#24#5'Width'#2'm'#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#8'akBottom'#0#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Le'
+'ft'#2#16#6'Height'#2#25#3'Top'#3';'#1#5'Width'#2'm'#7'Anchors'#11#6'akLeft'
+#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'C'
+'lear'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#9'TComboBox'#10'CbS'
+'etCaret'#4'Left'#2#16#6'Height'#2#21#3'Top'#3#141#1#5'Width'#2'm'#7'Anchors'
+#11#6'akLeft'#7'akRight'#8'akBottom'#0#16'AutoCompleteText'#11#22'cbactEndOf'
+'LineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9'ItemIndex'#2
+#0#13'Items.Strings'#1#6#10'Caret-Line'#6#13'Caret-Sub-Bar'#6#13'Caret-Big-B'
+'ar'#0#8'OnChange'#7#16'CbSetCaretChange'#5'Style'#7#14'csDropDownList'#8'Ta'
+'bOrder'#2#3#4'Text'#6#10'Caret-Line'#0#0#7'TButton'#7'Button3'#4'Left'#2#16
+#6'Height'#2#25#3'Top'#3'a'#1#5'Width'#2'm'#7'Anchors'#11#6'akLeft'#7'akRigh'
+'t'#8'akBottom'#0#7'Caption'#6#7'Process'#7'OnClick'#7#12'Button3Click'#8'Ta'
+'bOrder'#2#4#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3'>'#2#6'Height'#3#224#1
+#5'Width'#2#5#5'Align'#7#7'alRight'#7'Beveled'#9#12'ResizeAnchor'#7#7'akRigh'
+'t'#0#0#7'TCmdBox'#6'CmdBox'#6'Height'#3#224#1#5'Width'#3'>'#2#5'Align'#7#8
+'alClient'#10'CaretColor'#4#255#128#0#0#9'CaretType'#7#8'cartUser'#10'CaretW'
+'idth'#2#1#11'CaretHeight'#2#13#11'CaretYShift'#2#3#7'OnInput'#7#11'CmdBoxIn'
+'put'#9'LineCount'#3#232#3#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'
+#7#8'clSilver'#11'Font.Height'#2#240#9'Font.Name'#6#5'Arial'#10'Font.Pitch'#7
+#10'fpVariable'#15'BackGroundColor'#7#6'clNavy'#8'TabWidth'#2'<'#12'PassWord'
+'Char'#6#1'*'#10'HistoryMax'#2#10#13'InputSelColor'#7#8'clPurple'#18'InputSe'
+'lBackGround'#7#8'clSilver'#13'CaretInterval'#3#244#1#23'GraphicalCharacterW'
+'idth'#2#10#10'AutoFollow'#9#0#0#6'TTimer'#11'ReaderTimer'#8'Interval'#3#188
+#2#7'OnTimer'#7#16'ReaderTimerTimer'#4'left'#2'B'#3'top'#2'K'#0#0#6'TTimer'
+#12'ProcessTimer'#7'Enabled'#8#8'Interval'#2'd'#7'OnTimer'#7#17'ProcessTimer'
+'Timer'#4'left'#2'h'#3'top'#2'K'#0#0#0#10'TWMainForm'#9'WMainForm'#4'Left'#3
+'?'#1#6'Height'#3#224#1#3'Top'#3'Q'#1#5'Width'#3#208#2#13'ActiveControl'#7#6
+'CmdBox'#7'Caption'#6#27'TCmdBox Example Application'#12'ClientHeight'#3#224
+#1#11'ClientWidth'#3#208#2#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'Fo'
+'rmDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.25'#0#6
+'TPanel'#10'RightPanel'#4'Left'#3'C'#2#6'Height'#3#224#1#5'Width'#3#141#0#5
+'Align'#7#7'alRight'#12'ClientHeight'#3#224#1#11'ClientWidth'#3#141#0#8'TabO'
+'rder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#14#3'Top'#2#8#5'Wi'
+'dth'#2'#'#7'Caption'#6#7'History'#11'ParentColor'#8#0#0#7'TButton'#7'Button'
+'1'#4'Left'#2#16#6'Height'#2#25#3'Top'#3#184#1#5'Width'#2'm'#7'Anchors'#11#6
+'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Captio'
+'n'#6#12'End Programm'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#8'T'
+'ListBox'#11'HistoryList'#4'Left'#2#16#6'Height'#3#29#1#3'Top'#2#24#5'Width'
+#2'm'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabOrder'#2
+#1#0#0#7'TButton'#7'Button2'#4'Left'#2#16#6'Height'#2#25#3'Top'#3';'#1#5'Wid'
+'th'#2'm'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.'
+'InnerBorder'#2#4#7'Caption'#6#5'Clear'#7'OnClick'#7#12'Button2Click'#8'TabO'
+'rder'#2#2#0#0#9'TComboBox'#10'CbSetCaret'#4'Left'#2#16#6'Height'#2#21#3'Top'
+#3#141#1#5'Width'#2'm'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16'A'
+'utoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10
+'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#10'Caret-Line'#6#13
+'Caret-Sub-Bar'#6#13'Caret-Big-Bar'#0#8'OnChange'#7#16'CbSetCaretChange'#5'S'
+'tyle'#7#14'csDropDownList'#8'TabOrder'#2#3#4'Text'#6#10'Caret-Line'#0#0#7'T'
+'Button'#7'Button3'#4'Left'#2#16#6'Height'#2#25#3'Top'#3'a'#1#5'Width'#2'm'#7
+'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#7'Process'#7'On'
+'Click'#7#12'Button3Click'#8'TabOrder'#2#4#0#0#0#9'TSplitter'#9'Splitter1'#4
,'Left'#3'>'#2#6'Height'#3#224#1#5'Width'#2#5#5'Align'#7#7'alRight'#7'Beveled'
+#9#12'ResizeAnchor'#7#7'akRight'#0#0#7'TCmdBox'#6'CmdBox'#6'Height'#3#224#1#5
+'Width'#3'>'#2#5'Align'#7#8'alClient'#10'CaretColor'#4#255#128#0#0#9'CaretTy'
+'pe'#7#8'cartUser'#10'CaretWidth'#2#1#11'CaretHeight'#2#13#11'CaretYShift'#2
+#3#7'OnInput'#7#11'CmdBoxInput'#9'LineCount'#3#232#3#12'Font.CharSet'#7#12'A'
+'NSI_CHARSET'#10'Font.Color'#7#8'clSilver'#11'Font.Height'#2#240#9'Font.Name'
+#6#5'Arial'#10'Font.Pitch'#7#10'fpVariable'#15'BackGroundColor'#7#6'clNavy'#8
+'TabWidth'#2'<'#12'PassWordChar'#6#1'*'#10'HistoryMax'#2#10#13'InputSelColor'
+#7#8'clPurple'#18'InputSelBackGround'#7#8'clSilver'#13'CaretInterval'#3#244#1
+#23'GraphicalCharacterWidth'#2#10#10'AutoFollow'#9#0#0#6'TTimer'#11'ReaderTi'
+'mer'#8'Interval'#3#188#2#7'OnTimer'#7#16'ReaderTimerTimer'#4'left'#2'B'#3't'
+'op'#2'K'#0#0#6'TTimer'#12'ProcessTimer'#7'Enabled'#8#8'Interval'#2'd'#7'OnT'
+'imer'#7#17'ProcessTimerTimer'#4'left'#2'h'#3'top'#2'K'#0#0#0
'TPF0'#10'TWMainForm'#9'WMainForm'#4'Left'#3#24#2#6'Height'#3#17#2#3'Top'#3' '
+#1#5'Width'#3#195#2#7'Caption'#6#27'TCmdBox Example Application'#12'ClientHe'
+'ight'#3#17#2#11'ClientWidth'#3#195#2#8'OnCreate'#7#10'FormCreate'#9'OnDestr'
+'oy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0'
+'.9.27'#0#6'TPanel'#10'RightPanel'#4'Left'#3'6'#2#6'Height'#3#17#2#3'Top'#2#0
+#5'Width'#3#141#0#5'Align'#7#7'alRight'#12'ClientHeight'#3#17#2#11'ClientWid'
+'th'#3#141#0#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2
+#14#3'Top'#2#8#5'Width'#2'#'#7'Caption'#6#7'History'#11'ParentColor'#8#0#0#7
+'TButton'#7'Button1'#4'Left'#2#16#6'Height'#2#25#3'Top'#3#233#1#5'Width'#2'm'
+#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBord'
+'er'#2#4#7'Caption'#6#12'End Programm'#7'OnClick'#7#12'Button1Click'#8'TabOr'
+'der'#2#0#0#0#8'TListBox'#11'HistoryList'#4'Left'#2#16#6'Height'#3#16#1#3'To'
+'p'#2#24#5'Width'#2'm'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBotto'
+'m'#0#10'ItemHeight'#2#0#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'#2
+#16#6'Height'#2#25#3'Top'#3'0'#1#5'Width'#2'm'#7'Anchors'#11#6'akLeft'#7'akR'
+'ight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Clear'
+#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#9'TComboBox'#10'CbSetCare'
+'t'#4'Left'#2#16#6'Height'#2#21#3'Top'#3#200#1#5'Width'#2'm'#7'Anchors'#11#6
+'akLeft'#7'akRight'#8'akBottom'#0#12'AutoComplete'#8#10'ItemHeight'#2#13#9'I'
+'temIndex'#2#0#13'Items.Strings'#1#6#10'Caret-Line'#6#13'Caret-Sub-Bar'#6#13
+'Caret-Big-Bar'#0#9'ItemWidth'#2#0#8'OnChange'#7#16'CbSetCaretChange'#5'Styl'
+'e'#7#14'csDropDownList'#8'TabOrder'#2#3#4'Text'#6#10'Caret-Line'#0#0#7'TBut'
+'ton'#7'Button3'#4'Left'#2#16#6'Height'#2#25#3'Top'#3'P'#1#5'Width'#2'm'#7'A'
+'nchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#7'Process'#7'OnC'
+'lick'#7#12'Button3Click'#8'TabOrder'#2#4#0#0#9'TCheckBox'#10'cbWordWrap'#4
+'Left'#2#18#6'Height'#2#17#3'Top'#3'x'#1#5'Width'#2'H'#7'Anchors'#11#6'akLef'
+'t'#8'akBottom'#0#7'Caption'#6#8'WordWrap'#7'Checked'#9#8'OnChange'#7#16'cbW'
+'ordWrapChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#5#0#0#0#9'TSplitter'#9
+'Splitter1'#4'Left'#3'1'#2#6'Height'#3#17#2#3'Top'#2#0#5'Width'#2#5#5'Align'
+#7#7'alRight'#7'Beveled'#9#12'ResizeAnchor'#7#7'akRight'#0#0#7'TCmdBox'#6'Cm'
+'dBox'#4'Left'#2#0#6'Height'#3#17#2#3'Top'#2#0#5'Width'#3'1'#2#5'Align'#7#8
+'alClient'#9'PopupMenu'#7#10'PopupMenu1'#10'CaretColor'#4#255#128#0#0#9'Care'
+'tType'#7#8'cartUser'#10'CaretWidth'#2#1#11'CaretHeight'#2#15#11'CaretYShift'
+#2#3#7'OnInput'#7#11'CmdBoxInput'#9'LineCount'#3#232#3#12'Font.CharSet'#7#12
+'ANSI_CHARSET'#10'Font.Color'#7#8'clSilver'#11'Font.Height'#2#240#9'Font.Nam'
+'e'#6#5'Arial'#10'Font.Pitch'#7#10'fpVariable'#15'BackGroundColor'#7#6'clNav'
+'y'#8'TabWidth'#2'<'#12'PassWordChar'#6#1'*'#10'HistoryMax'#2#10#13'InputSel'
+'Color'#7#8'clPurple'#18'InputSelBackGround'#7#8'clSilver'#13'CaretInterval'
+#3#244#1#14'EscapeCodeType'#7#10'esctCmdBox'#23'GraphicalCharacterWidth'#2#10
+#0#0#6'TTimer'#11'ReaderTimer'#8'Interval'#3#244#1#7'OnTimer'#7#16'ReaderTim'
+'erTimer'#4'left'#2'B'#3'top'#2'K'#0#0#6'TTimer'#12'ProcessTimer'#7'Enabled'
+#8#8'Interval'#2'd'#7'OnTimer'#7#17'ProcessTimerTimer'#4'left'#2'h'#3'top'#2
+'K'#0#0#11'TFontDialog'#10'FontDialog'#11'MinFontSize'#2#0#11'MaxFontSize'#2
+#0#4'left'#3#144#0#3'top'#2'K'#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#3
+#168#0#3'top'#3#196#0#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#12'Nothing he'
+'re'#0#0#0#0
]);

46
components/cmdline/wnmainform.pas
View File

@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Graphics, Dialogs, ExtCtrls,LCLType,
ucmdbox, StdCtrls, Controls, Buttons;
ucmdbox, StdCtrls, Controls, Buttons, Menus;
type
@ -39,10 +39,14 @@ type
Button1: TButton;
Button2: TButton;
Button3: TButton;
cbWordWrap: TCheckBox;
CmdBox: TCmdBox;
CbSetCaret: TComboBox;
FontDialog: TFontDialog;
Label1: TLabel;
HistoryList: TListBox;
MenuItem1: TMenuItem;
PopupMenu1: TPopupMenu;
RightPanel: TPanel;
Splitter1: TSplitter;
ReaderTimer: TTimer;
@ -50,6 +54,8 @@ type
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure cbWordWrapChange(Sender: TObject);
procedure CmdBoxInput(ACmdBox: TCmdBox; Input: String);
procedure CbSetCaretChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -67,22 +73,22 @@ var WMainForm: TWMainForm;
implementation
var Dir:String;
{ TWMainForm }
procedure TWMainForm.ReaderTimerTimer(Sender: TObject);
var i:Integer;
s:String;
begin
CmdBox.TextColors(clRed,clNavy);
for i:=0 to 0 do
begin
if TextPosition<DText.Count then
begin
CmdBox.ClearLine;
CmdBox.Writeln(DText[TextPosition]);
Inc(TextPosition);
end;
if TextPosition>=DText.Count then
s:='';
s:=DText[TextPosition];{+#13#10;}
Inc(TextPosition);
CmdBox.TextColors(clAqua,clNavy);
CmdBox.Writeln(s);
if (TextPosition>=DText.Count) then
begin
CmdBox.ClearLine;
CmdBox.TextColor(clYellow);
@ -97,8 +103,8 @@ procedure TWMainForm.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
DText := TStringList.Create;
if FileExists('demotext.txt') then DText.LoadFromFile('demotext.txt');
CmdBox.StartRead(clRed,clNavy,'>',clYellow,clNavy);
if FileExists(Dir+'/demotext.txt') then DText.LoadFromFile(Dir+'/demotext.txt');
CmdBox.StartRead(clSilver,clNavy,'/example/prompt/>',clYellow,clNavy);
CmdBox.TextColors(clWhite,clNavy);
CmdBox.Writeln(#27#218#27#10#191);
CmdBox.Writeln(#27#179'Type "help" to see a short list of available commands.'#27#10#179);
@ -180,7 +186,7 @@ begin
end;
end;
if rdpw then CmdBox.StartReadPassWord(clYellow,clNavy,'Pwd:',clLime,clNavy) else
CmdBox.StartRead(clRed,clNavy,'>',clYellow,clNavy);
CmdBox.StartRead(clSilver,clNavy,'/example/prompt/>',clYellow,clNavy);
HistoryList.Clear;
for i:=0 to CmdBox.HistoryCount-1 do HistoryList.Items.Add(CmdBox.History[i]);
end;
@ -207,6 +213,20 @@ begin
ProcessTimer.Enabled:=True;
end;
procedure TWMainForm.Button4Click(Sender: TObject);
begin
FontDialog.Font:=CmdBox.Font;
if FontDialog.Execute then
begin
CmdBox.Font:=FontDialog.Font;
end;
end;
procedure TWMainForm.cbWordWrapChange(Sender: TObject);
begin
if CmdBox.WrapMode=wwmWord then CmdBox.WrapMode:=wwmChar else CmdBox.WrapMode:=wwmWord;
end;
procedure TWMainForm.Button1Click(Sender: TObject);
begin
Close;
@ -234,6 +254,6 @@ end;
initialization
{$I wnmainform.lrs}
Dir:=ExtractFileDir(ParamStr(0));
end.