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"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <ActiveWindowIndexAtStart Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -26,94 +30,244 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="cmdbox"/>
<MinVersion Valid="True"/>
</Item1> </Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="CmdLineExample.lpr"/> <Filename Value="CmdLineExample.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="CmdLineExample"/> <UnitName Value="CmdLineExample"/>
<CursorPos X="27" Y="11"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="148"/> <CursorPos X="15" Y="4"/>
<UsageCount Value="155"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="wnmainform.pas"/> <Filename Value="wnmainform.pas"/>
<ComponentName Value="WMainForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="WMainForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<ResourceFilename Value="wnmainform.lrs"/>
<UnitName Value="wnmainform"/> <UnitName Value="wnmainform"/>
<CursorPos X="63" Y="113"/>
<TopLine Value="63"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="148"/> <WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="124" Y="194"/>
<UsageCount Value="155"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\ucmdline.pas"/> <Filename Value="..\ucmdline.pas"/>
<UnitName Value="ucmdline"/> <UnitName Value="ucmdline"/>
<CursorPos X="48" Y="1083"/>
<TopLine Value="146"/> <TopLine Value="146"/>
<CursorPos X="48" Y="1083"/>
<UsageCount Value="4"/> <UsageCount Value="4"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="wnmainform.lfm"/> <Filename Value="wnmainform.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="46"/> <CursorPos X="1" Y="1"/>
<SyntaxHighlighter Value="LFM"/> <SyntaxHighlighter Value="LFM"/>
<UsageCount Value="46"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="tcmdbox.lrs"/> <Filename Value="tcmdbox.lrs"/>
<CursorPos X="17" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="17" Y="1"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="ucmdline.pas"/> <Filename Value="ucmdline.pas"/>
<UnitName Value="ucmdline"/> <UnitName Value="ucmdline"/>
<CursorPos X="8" Y="30"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="8" Y="30"/>
<UsageCount Value="30"/> <UsageCount Value="30"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\uflowcharteditor.pas"/> <Filename Value="..\uflowcharteditor.pas"/>
<UnitName Value="uflowcharteditor"/> <UnitName Value="uflowcharteditor"/>
<CursorPos X="25" Y="1039"/>
<TopLine Value="1015"/> <TopLine Value="1015"/>
<CursorPos X="25" Y="1039"/>
<UsageCount Value="16"/> <UsageCount Value="16"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="ucmdbox.pas"/> <Filename Value="ucmdbox.pas"/>
<UnitName Value="uCmdBox"/> <UnitName Value="uCmdBox"/>
<CursorPos X="56" Y="1479"/> <EditorIndex Value="2"/>
<TopLine Value="1448"/> <WindowIndex Value="0"/>
<EditorIndex Value="1"/> <TopLine Value="1"/>
<UsageCount Value="48"/> <CursorPos X="14" Y="36"/>
<UsageCount Value="51"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="..\..\lcl\include\application.inc"/>
<TopLine Value="91"/>
<CursorPos X="7" Y="128"/>
<UsageCount Value="10"/>
</Unit8>
</Units> </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> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration> <CodeGeneration>
<Checks> <Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/> <RangeChecks Value="True"/>
<OverflowChecks Value="True"/> <OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks> </Checks>
<Generate Value="Faster"/> <VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging> <Debugging>
<StripSymbols Value="True"/> <StripSymbols Value="True"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

2
components/cmdline/CmdLineExample.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms Forms
{ add your units here }, wnmainform; { add your units here }, wnmainform, cmdbox;
begin begin
Application.Initialize; 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 object WMainForm: TWMainForm
Left = 319 Left = 536
Height = 480 Height = 529
Top = 337 Top = 288
Width = 720 Width = 707
ActiveControl = CmdBox
Caption = 'TCmdBox Example Application' Caption = 'TCmdBox Example Application'
ClientHeight = 480 ClientHeight = 529
ClientWidth = 720 ClientWidth = 707
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.25' LCLVersion = '0.9.27'
object RightPanel: TPanel object RightPanel: TPanel
Left = 579 Left = 566
Height = 480 Height = 529
Top = 0
Width = 141 Width = 141
Align = alRight Align = alRight
ClientHeight = 480 ClientHeight = 529
ClientWidth = 141 ClientWidth = 141
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
@ -30,7 +30,7 @@ object WMainForm: TWMainForm
object Button1: TButton object Button1: TButton
Left = 16 Left = 16
Height = 25 Height = 25
Top = 440 Top = 489
Width = 109 Width = 109
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -40,16 +40,17 @@ object WMainForm: TWMainForm
end end
object HistoryList: TListBox object HistoryList: TListBox
Left = 16 Left = 16
Height = 285 Height = 272
Top = 24 Top = 24
Width = 109 Width = 109
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 1 TabOrder = 1
end end
object Button2: TButton object Button2: TButton
Left = 16 Left = 16
Height = 25 Height = 25
Top = 315 Top = 304
Width = 109 Width = 109
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -60,10 +61,10 @@ object WMainForm: TWMainForm
object CbSetCaret: TComboBox object CbSetCaret: TComboBox
Left = 16 Left = 16
Height = 21 Height = 21
Top = 397 Top = 456
Width = 109 Width = 109
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoComplete = False
ItemHeight = 13 ItemHeight = 13
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -71,6 +72,7 @@ object WMainForm: TWMainForm
'Caret-Sub-Bar' 'Caret-Sub-Bar'
'Caret-Big-Bar' 'Caret-Big-Bar'
) )
ItemWidth = 0
OnChange = CbSetCaretChange OnChange = CbSetCaretChange
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
@ -79,30 +81,46 @@ object WMainForm: TWMainForm
object Button3: TButton object Button3: TButton
Left = 16 Left = 16
Height = 25 Height = 25
Top = 353 Top = 336
Width = 109 Width = 109
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Process' Caption = 'Process'
OnClick = Button3Click OnClick = Button3Click
TabOrder = 4 TabOrder = 4
end 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 end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 574 Left = 561
Height = 480 Height = 529
Top = 0
Width = 5 Width = 5
Align = alRight Align = alRight
Beveled = True Beveled = True
ResizeAnchor = akRight ResizeAnchor = akRight
end end
object CmdBox: TCmdBox object CmdBox: TCmdBox
Height = 480 Left = 0
Width = 574 Height = 529
Top = 0
Width = 561
Align = alClient Align = alClient
PopupMenu = PopupMenu1
CaretColor = 33023 CaretColor = 33023
CaretType = cartUser CaretType = cartUser
CaretWidth = 1 CaretWidth = 1
CaretHeight = 13 CaretHeight = 15
CaretYShift = 3 CaretYShift = 3
OnInput = CmdBoxInput OnInput = CmdBoxInput
LineCount = 1000 LineCount = 1000
@ -118,11 +136,11 @@ object WMainForm: TWMainForm
InputSelColor = clPurple InputSelColor = clPurple
InputSelBackGround = clSilver InputSelBackGround = clSilver
CaretInterval = 500 CaretInterval = 500
EscapeCodeType = esctCmdBox
GraphicalCharacterWidth = 10 GraphicalCharacterWidth = 10
AutoFollow = True
end end
object ReaderTimer: TTimer object ReaderTimer: TTimer
Interval = 700 Interval = 500
OnTimer = ReaderTimerTimer OnTimer = ReaderTimerTimer
left = 66 left = 66
top = 75 top = 75
@ -134,4 +152,17 @@ object WMainForm: TWMainForm
left = 104 left = 104
top = 75 top = 75
end 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 end

123
components/cmdline/wnmainform.lrs
View File

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

46
components/cmdline/wnmainform.pas
View File

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