fix fileconverter example

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2824 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2013-11-01 23:38:17 +00:00
parent 91722ff2a9
commit 9423e11d6c
4 changed files with 301 additions and 418 deletions

View File

@ -1,121 +1,21 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
<Title Value="Fileconverter Example"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<LazDoc Paths=""/>
<Units Count="12">
<Unit0>
<CursorPos X="1" Y="14"/>
<EditorIndex Value="6"/>
<Filename Value="fileconverter.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="fileconverter"/>
<UsageCount Value="22"/>
</Unit0>
<Unit1>
<CursorPos X="20" Y="71"/>
<EditorIndex Value="0"/>
<Filename Value="umain.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="umain.lrs"/>
<TopLine Value="54"/>
<UnitName Value="uMain"/>
<UsageCount Value="22"/>
</Unit1>
<Unit2>
<CursorPos X="1" Y="337"/>
<EditorIndex Value="1"/>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_file.pas"/>
<Loaded Value="True"/>
<TopLine Value="321"/>
<UnitName Value="acs_file"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<CursorPos X="2" Y="724"/>
<EditorIndex Value="2"/>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_classes.pas"/>
<Loaded Value="True"/>
<TopLine Value="712"/>
<UnitName Value="acs_classes"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<CursorPos X="1" Y="2235"/>
<Filename Value="D:\lazarus\lcl\include\control.inc"/>
<TopLine Value="2219"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<CursorPos X="1" Y="814"/>
<Filename Value="D:\lazarus\lcl\EditBtn.pas"/>
<TopLine Value="798"/>
<UnitName Value="EditBtn"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<CursorPos X="18" Y="82"/>
<EditorIndex Value="3"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Loaded Value="True"/>
<TopLine Value="66"/>
<UnitName Value="acs_vorbis"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<CursorPos X="22" Y="317"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_dsfiles.pas"/>
<TopLine Value="313"/>
<UnitName Value="acs_dsfiles"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<CursorPos X="8" Y="12"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Allformats.pas"/>
<TopLine Value="1"/>
<UnitName Value="acs_allformats"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<CursorPos X="1" Y="227"/>
<EditorIndex Value="5"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_lame.pas"/>
<Loaded Value="True"/>
<TopLine Value="195"/>
<UnitName Value="acs_lame"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<CursorPos X="1" Y="1038"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\lame.pas"/>
<TopLine Value="1022"/>
<UnitName Value="lame"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<CursorPos X="3" Y="96"/>
<EditorIndex Value="4"/>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\vorbiscodec.pas"/>
<Loaded Value="True"/>
<TopLine Value="80"/>
<UnitName Value="vorbiscodec"/>
<UsageCount Value="10"/>
</Unit11>
</Units>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -135,138 +35,145 @@
<MinVersion Major="2" Minor="4" Valid="True"/>
</Item2>
</RequiredPackages>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Units Count="12">
<Unit0>
<Filename Value="fileconverter.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="fileconverter"/>
<EditorIndex Value="1"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="46" Y="17"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="umain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="fMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="uMain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="1"/>
<TopLine Value="54"/>
<CursorPos X="20" Y="71"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_file.pas"/>
<UnitName Value="acs_file"/>
<WindowIndex Value="1"/>
<TopLine Value="321"/>
<CursorPos X="1" Y="337"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit2>
<Unit3>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_classes.pas"/>
<UnitName Value="acs_classes"/>
<WindowIndex Value="1"/>
<TopLine Value="712"/>
<CursorPos X="2" Y="724"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit3>
<Unit4>
<Filename Value="D:\lazarus\lcl\include\control.inc"/>
<TopLine Value="2219"/>
<CursorPos X="1" Y="2235"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="D:\lazarus\lcl\EditBtn.pas"/>
<UnitName Value="EditBtn"/>
<TopLine Value="798"/>
<CursorPos X="1" Y="814"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="348" Column="1" TopLine="332"/>
<UnitName Value="acs_vorbis"/>
<WindowIndex Value="1"/>
<TopLine Value="66"/>
<CursorPos X="18" Y="82"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit6>
<Unit7>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_dsfiles.pas"/>
<UnitName Value="acs_dsfiles"/>
<TopLine Value="313"/>
<CursorPos X="22" Y="317"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\ACS_Allformats.pas"/>
<UnitName Value="acs_allformats"/>
<TopLine Value="1"/>
<CursorPos X="8" Y="12"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_lame.pas"/>
<UnitName Value="acs_lame"/>
<WindowIndex Value="1"/>
<TopLine Value="195"/>
<CursorPos X="1" Y="227"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit9>
<Unit10>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\lame.pas"/>
<UnitName Value="lame"/>
<TopLine Value="1022"/>
<CursorPos X="1" Y="1038"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\general\vorbiscodec.pas"/>
<UnitName Value="vorbiscodec"/>
<WindowIndex Value="1"/>
<TopLine Value="80"/>
<CursorPos X="3" Y="96"/>
<UsageCount Value="10"/>
<LoadedDesigner Value="True"/>
</Unit11>
</Units>
<JumpHistory Count="4" HistoryIndex="3">
<Position1>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position1>
<Position2>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="346" Column="28" TopLine="328"/>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position2>
<Position3>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position3>
<Position4>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="335" Column="1" TopLine="319"/>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position4>
<Position5>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="351" Column="17" TopLine="335"/>
</Position5>
<Position6>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position6>
<Position7>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="335" Column="1" TopLine="319"/>
</Position7>
<Position8>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="336" Column="1" TopLine="320"/>
</Position8>
<Position9>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="337" Column="1" TopLine="321"/>
</Position9>
<Position10>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="344" Column="1" TopLine="328"/>
</Position10>
<Position11>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="345" Column="1" TopLine="329"/>
</Position11>
<Position12>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="346" Column="1" TopLine="330"/>
</Position12>
<Position13>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="347" Column="1" TopLine="331"/>
</Position13>
<Position14>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position14>
<Position15>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="335" Column="1" TopLine="319"/>
</Position15>
<Position16>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="336" Column="1" TopLine="320"/>
</Position16>
<Position17>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="337" Column="1" TopLine="321"/>
</Position17>
<Position18>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="344" Column="1" TopLine="328"/>
</Position18>
<Position19>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="345" Column="1" TopLine="329"/>
</Position19>
<Position20>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="346" Column="1" TopLine="330"/>
</Position20>
<Position21>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="347" Column="1" TopLine="331"/>
</Position21>
<Position22>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="348" Column="1" TopLine="332"/>
</Position22>
<Position23>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="349" Column="1" TopLine="333"/>
</Position23>
<Position24>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="351" Column="1" TopLine="335"/>
</Position24>
<Position25>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="353" Column="1" TopLine="337"/>
</Position25>
<Position26>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_file.pas"/>
<Caret Line="334" Column="15" TopLine="321"/>
</Position26>
<Position27>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="353" Column="45" TopLine="347"/>
</Position27>
<Position28>
<Filename Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Caret Line="82" Column="18" TopLine="66"/>
</Position28>
<Position29>
<Filename Value="D:\LKomponenten\acs\Src\classes\acs_classes.pas"/>
<Caret Line="724" Column="2" TopLine="712"/>
</Position29>
<Position30>
<Filename Value="umain.pas"/>
<Caret Line="66" Column="1" TopLine="50"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
<SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -281,14 +188,23 @@
<Debugging>
<BreakPoints Count="3">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:\LKomponenten\acs\Demos\Ripper\umain.pas"/>
<Line Value="68"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:\LKomponenten\acs\Src\fileformats\acs_lame.pas"/>
<Line Value="297"/>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsGlobal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="D:\LKomponenten\acs\Src\fileformats\acs_vorbis.pas"/>
<Line Value="335"/>
</Item3>
@ -299,4 +215,5 @@
</Item1>
</Watches>
</Debugging>
<EditorMacros Count="0"/>
</CONFIG>

View File

@ -1,161 +1,126 @@
object Form1: TForm1
object fMain: TfMain
Left = 440
Height = 62
Top = 309
Width = 401
HorzScrollBar.Page = 400
VertScrollBar.Page = 61
ActiveControl = BitBtn1
BorderStyle = bsToolWindow
Caption = 'Fileconverter'
ClientHeight = 62
ClientWidth = 401
OnCreate = FormCreate
PixelsPerInch = 96
HorzScrollBar.Page = 400
VertScrollBar.Page = 61
Left = 440
Height = 62
Top = 309
Width = 401
LCLVersion = '1.3'
object Label1: TLabel
Caption = 'Output Dir'
Color = clNone
ParentColor = False
Left = 96
Left = 88
Height = 14
Top = 16
Width = 51
Width = 59
Caption = 'Output Dir'
ParentColor = False
end
object pbProgress: TProgressBar
Max = 100
Left = 8
Height = 16
Top = 40
Width = 384
TabOrder = 4
end
object BitBtn1: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Open'
Glyph.Data = {
910900002F2A2058504D202A2F0D0A7374617469632063686172202A2062746E
5F6F70656E66696C655F78706D5B5D203D207B0D0A2231382031382039372032
222C0D0A2220200963204E6F6E65222C0D0A222E200963202330303030303022
2C0D0A222B2009632023344533333142222C0D0A224020096320234535413536
36222C0D0A22232009632023464544333941222C0D0A22242009632023464543
353835222C0D0A22252009632023464443353837222C0D0A2226200963202346
4543323832222C0D0A222A2009632023463841433632222C0D0A223D20096320
23464543383841222C0D0A222D2009632023353335303444222C0D0A223B2009
632023353535323446222C0D0A223E2009632023354335413537222C0D0A222C
2009632023353435313445222C0D0A22272009632023353635333530222C0D0A
22292009632023433438363445222C0D0A22212009632023353234463443222C
0D0A227E2009632023463546354635222C0D0A227B2009632023454345434543
222C0D0A225D2009632023453445344534222C0D0A225E200963202344434443
4443222C0D0A222F2009632023443444344434222C0D0A222820096320234342
43424342222C0D0A225F2009632023433443344334222C0D0A223A2009632023
424342434243222C0D0A223C2009632023423542354235222C0D0A225B200963
2023423342334233222C0D0A227D2009632023333033303330222C0D0A227C20
09632023344133313139222C0D0A22312009632023444244424442222C0D0A22
322009632023444644464445222C0D0A22332009632023453845384537222C0D
0A22342009632023453645364534222C0D0A2235200963202344324432443122
2C0D0A22362009632023433743374336222C0D0A223720096320234241424142
39222C0D0A22382009632023414441444143222C0D0A22392009632023413041
303946222C0D0A22302009632023393439343933222C0D0A2261200963202334
3934393438222C0D0A22622009632023423737443434222C0D0A226320096320
23353335313445222C0D0A22642009632023444144414441222C0D0A22652009
632023444244424441222C0D0A22662009632023453145314530222C0D0A2267
2009632023444444444443222C0D0A22682009632023443644364435222C0D0A
22692009632023434243424341222C0D0A226A2009632023433143314330222C
0D0A226B2009632023423642364235222C0D0A226C2009632023413941394138
222C0D0A226D2009632023363836383637222C0D0A226E200963202332323232
3231222C0D0A226F2009632023343933303138222C0D0A227020096320234344
43444344222C0D0A22712009632023434143414339222C0D0A22722009632023
443544354434222C0D0A22732009632023443244324430222C0D0A2274200963
2023434343434342222C0D0A22752009632023433243324331222C0D0A227620
09632023423942394238222C0D0A22772009632023414641464145222C0D0A22
782009632023413241324131222C0D0A22792009632023393539353934222C0D
0A227A2009632023434543454345222C0D0A2241200963202342454245424322
2C0D0A22422009632023433443344332222C0D0A224320096320234336433643
35222C0D0A22442009632023433343334332222C0D0A22452009632023424642
464245222C0D0A22462009632023414541454144222C0D0A2247200963202341
3541354134222C0D0A22482009632023394539453944222C0D0A224920096320
23364636463645222C0D0A224A2009632023313231323132222C0D0A224B2009
632023424442444244222C0D0A224C2009632023413641364135222C0D0A224D
2009632023414141414138222C0D0A224E2009632023414441444142222C0D0A
224F2009632023414541454143222C0D0A22502009632023414241424141222C
0D0A22512009632023413741374136222C0D0A22522009632023413141314130
222C0D0A22532009632023394139413939222C0D0A2254200963202339343934
3932222C0D0A22552009632023384438443842222C0D0A225620096320233233
32333233222C0D0A22572009632023344134413441222C0D0A22582009632023
344134413439222C0D0A22592009632023344334433442222C0D0A225A200963
2023344334433443222C0D0A22602009632023344234423441222C0D0A22202E
09632023343634363436222C0D0A222E2E09632023343334333433222C0D0A22
2B2E09632023343134313430222C0D0A22402E09632023333433343333222C0D
0A22232E09632023314631463145222C0D0A222020202020202020202020202E
202E202E202E2020202020202020202020202020202020222C0D0A2220202020
2020202020202E202E2020202E202E202E202E2020202E202020202020202020
222C0D0A2220202020202020202E20202020202020202020202E202E202E202E
202020202020202020222C0D0A22202020202020202020202020202020202020
202020202E202E202E202020202020202020222C0D0A22202020202020202020
20202020202020202020202E202E202E202E202020202020202020222C0D0A22
20202B202B202B202B2020202020202020202020202020202020202020202020
20202020222C0D0A222B2040202320242040202B202B202B202B202B202B202B
20202020202020202020202020222C0D0A222B202320252026202A202A202A20
2A202A202A202A202A202E2020202020202020202020222C0D0A222B203D2026
202B202D202D203B203E202C202C20272027202C202E202E202E202020202022
2C0D0A222B202620292021207E207E207B205D205E202F2028205F203A203C20
5B207D2020202020222C0D0A222B2026207C2031203220332034203220352036
2037203820392030206120202020202020222C0D0A222B206220632064206520
66206720682069206A206B206C2039206D206E20202020202020222C0D0A222B
206F207020712072207220732074207520762077207820792061202020202020
202020222C0D0A222B2027207A20412042204320442045206B20462047204820
49204A202020202020202020222C0D0A222B204B204C204D204E204F20502051
205220532054205520612020202020202020202020222C0D0A22562057205820
59205A20592060206120202E2E2E2B2E402E232E20202020202020202020222C
0D0A222020202020202020202020202020202020202020202020202020202020
20202020202020222C0D0A222020202020202020202020202020202020202020
20202020202020202020202020202020227D3B0D0A
}
NumGlyphs = 0
OnClick = BitBtn1Click
TabOrder = 0
Left = 8
Height = 24
Top = 11
Width = 72
BorderSpacing.InnerBorder = 2
Caption = 'Open'
Glyph.Data = {
46050000424D4605000000000000360000002800000012000000120000000100
2000000000001005000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000232323FF4A4A4AFF494A4AFF4B4C4CFF4C4C4CFF4B4C
4CFF4A4B4BFF484949FF464646FF434343FF404141FF333434FF1E1F1FFF0000
0000000000000000000000000000000000001B334EFFBDBDBDFFA5A6A6FFA8AA
AAFFABADADFFACAEAEFFAAABABFFA6A7A7FFA0A1A1FF999A9AFF929494FF8B8D
8DFF484949FF00000000000000000000000000000000000000001B334EFF5053
56FFCECECEFFBCBEBEFFC2C4C4FFC5C6C6FFC2C3C3FFBEBFBFFFB5B6B6FFADAE
AEFFA4A5A5FF9D9E9EFF6E6F6FFF121212FF0000000000000000000000000000
00001B334EFF183049FFCDCDCDFFC9CACAFFD4D5D5FFD4D5D5FFD0D2D2FFCBCC
CCFFC1C2C2FFB8B9B9FFAEAFAFFFA1A2A2FF949595FF484949FF000000000000
000000000000000000001B334EFF447DB7FF4E5153FFDADADAFFDADBDBFFE0E1
E1FFDCDDDDFFD5D6D6FFCACBCBFFC0C1C1FFB5B6B6FFA8A9A9FF9FA0A0FF6768
68FF212222FF0000000000000000000000001B334EFF82C2FEFF19314AFFDBDB
DBFFDEDFDFFFE7E8E8FFE4E6E6FFDEDFDFFFD1D2D2FFC6C7C7FFB9BABAFFACAD
ADFF9FA0A0FF939494FF484949FF0000000000000000000000001B334EFF82C2
FEFF4E86C4FF4C4F52FFF5F5F5FFF5F5F5FFECECECFFE4E4E4FFDCDCDCFFD4D4
D4FFCBCBCBFFC4C4C4FFBCBCBCFFB5B5B5FFB3B3B3FF303030FF000000000000
00001B334EFF8AC8FEFF82C2FEFF1B334EFF4D5053FF4D5053FF4F5255FF575A
5CFF4E5154FF4E5154FF505356FF505356FF4E5154FF000000FF000000FF0000
00FF00000000000000001B334EFF9AD3FEFF87C5FDFF82C2FEFF62ACF8FF62AC
F8FF62ACF8FF62ACF8FF62ACF8FF62ACF8FF62ACF8FF62ACF8FF000000FF0000
0000000000000000000000000000000000001B334EFF66A5E5FF9AD3FEFF85C5
FEFF66A5E5FF1B334EFF1B334EFF1B334EFF1B334EFF1B334EFF1B334EFF1B33
4EFF000000000000000000000000000000000000000000000000000000001B33
4EFF1B334EFF1B334EFF1B334EFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FF000000FF000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000FF000000FF0000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000FF0000000000000000000000000000000000000000000000FF0000
00FF000000FF000000FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000FF000000FF00000000000000FF0000
00FF000000FF000000FF00000000000000FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000FF0000
00FF000000FF000000FF00000000000000000000000000000000000000000000
00000000000000000000
}
OnClick = BitBtn1Click
TabOrder = 0
end
object DirectoryEdit: TDirectoryEdit
ButtonWidth = 23
NumGlyphs = 1
ParentColor = False
TabOrder = 1
TabOrder = 1
Left = 152
Height = 23
Height = 24
Top = 11
Width = 112
ShowHidden = False
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 1
end
object btStart: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Start'
NumGlyphs = 0
OnClick = BitBtn2Click
TabOrder = 2
Left = 352
Height = 22
Top = 11
Width = 43
BorderSpacing.InnerBorder = 2
Caption = 'Start'
OnClick = BitBtn2Click
TabOrder = 2
end
object cbOutput: TComboBox
MaxLength = 0
Style = csDropDownList
TabOrder = 3
Left = 295
Height = 21
Height = 28
Top = 11
Width = 49
ItemHeight = 0
Style = csDropDownList
TabOrder = 3
end
object FileIn: TACSFileIn
EndSample = -1
EndSample = -1
Loop = False
StartSample = 0
left = 32
top = 8
end
object FileOut: TACSFileOut
FileMode = foRewrite
Input = FileIn
OnDone = FileOutDone
OnProgress = FileOutProgress

View File

@ -1,71 +1,72 @@
{ Dies ist eine automatisch erzeugte Lazarus-Ressourcendatei }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#7'BitBtn1'#11'BorderStyle'#7#12
+'bsToolWindow'#7'Caption'#6#13'Fileconverter'#12'ClientHeight'#2'>'#11'Clien'
+'tWidth'#3#145#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'`'#18'Horz'
+'ScrollBar.Page'#3#144#1#18'VertScrollBar.Page'#2'='#4'Left'#3#184#1#6'Heigh'
+'t'#2'>'#3'Top'#3'5'#1#5'Width'#3#145#1#0#6'TLabel'#6'Label1'#7'Caption'#6#10
+'Output Dir'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'`'#6'Height'#2
+#14#3'Top'#2#16#5'Width'#2'3'#0#0#12'TProgressBar'#10'pbProgress'#3'Max'#2'd'
+#4'Left'#2#8#6'Height'#2#16#3'Top'#2'('#5'Width'#3#128#1#0#0#7'TBitBtn'#7'Bi'
+'tBtn1'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Open'#10'Glyph.Data'
+#10#149#9#0#0#145#9#0#0'/* XPM */'#13#10'static char * btn_openfile_xpm[] = '
+'{'#13#10'"18 18 97 2",'#13#10'" '#9'c None",'#13#10'". '#9'c #000000",'#13
+#10'"+ '#9'c #4E331B",'#13#10'"@ '#9'c #E5A566",'#13#10'"# '#9'c #FED39A",'
+#13#10'"$ '#9'c #FEC585",'#13#10'"% '#9'c #FDC587",'#13#10'"& '#9'c #FEC282"'
+','#13#10'"* '#9'c #F8AC62",'#13#10'"= '#9'c #FEC88A",'#13#10'"- '#9'c #5350'
+'4D",'#13#10'"; '#9'c #55524F",'#13#10'"> '#9'c #5C5A57",'#13#10'", '#9'c #5'
+'4514E",'#13#10'"'' '#9'c #565350",'#13#10'") '#9'c #C4864E",'#13#10'"! '#9
+'c #524F4C",'#13#10'"~ '#9'c #F5F5F5",'#13#10'"{ '#9'c #ECECEC",'#13#10'"] '
+#9'c #E4E4E4",'#13#10'"^ '#9'c #DCDCDC",'#13#10'"/ '#9'c #D4D4D4",'#13#10'"('
+' '#9'c #CBCBCB",'#13#10'"_ '#9'c #C4C4C4",'#13#10'": '#9'c #BCBCBC",'#13#10
+'"< '#9'c #B5B5B5",'#13#10'"[ '#9'c #B3B3B3",'#13#10'"} '#9'c #303030",'#13
+#10'"| '#9'c #4A3119",'#13#10'"1 '#9'c #DBDBDB",'#13#10'"2 '#9'c #DFDFDE",'
+#13#10'"3 '#9'c #E8E8E7",'#13#10'"4 '#9'c #E6E6E4",'#13#10'"5 '#9'c #D2D2D1"'
+','#13#10'"6 '#9'c #C7C7C6",'#13#10'"7 '#9'c #BABAB9",'#13#10'"8 '#9'c #ADAD'
+'AC",'#13#10'"9 '#9'c #A0A09F",'#13#10'"0 '#9'c #949493",'#13#10'"a '#9'c #4'
+'94948",'#13#10'"b '#9'c #B77D44",'#13#10'"c '#9'c #53514E",'#13#10'"d '#9'c'
+' #DADADA",'#13#10'"e '#9'c #DBDBDA",'#13#10'"f '#9'c #E1E1E0",'#13#10'"g '#9
+'c #DDDDDC",'#13#10'"h '#9'c #D6D6D5",'#13#10'"i '#9'c #CBCBCA",'#13#10'"j '
+#9'c #C1C1C0",'#13#10'"k '#9'c #B6B6B5",'#13#10'"l '#9'c #A9A9A8",'#13#10'"m'
+' '#9'c #686867",'#13#10'"n '#9'c #222221",'#13#10'"o '#9'c #493018",'#13#10
+'"p '#9'c #CDCDCD",'#13#10'"q '#9'c #CACAC9",'#13#10'"r '#9'c #D5D5D4",'#13
+#10'"s '#9'c #D2D2D0",'#13#10'"t '#9'c #CCCCCB",'#13#10'"u '#9'c #C2C2C1",'
+#13#10'"v '#9'c #B9B9B8",'#13#10'"w '#9'c #AFAFAE",'#13#10'"x '#9'c #A2A2A1"'
+','#13#10'"y '#9'c #959594",'#13#10'"z '#9'c #CECECE",'#13#10'"A '#9'c #BEBE'
+'BC",'#13#10'"B '#9'c #C4C4C2",'#13#10'"C '#9'c #C6C6C5",'#13#10'"D '#9'c #C'
+'3C3C2",'#13#10'"E '#9'c #BFBFBE",'#13#10'"F '#9'c #AEAEAD",'#13#10'"G '#9'c'
+' #A5A5A4",'#13#10'"H '#9'c #9E9E9D",'#13#10'"I '#9'c #6F6F6E",'#13#10'"J '#9
+'c #121212",'#13#10'"K '#9'c #BDBDBD",'#13#10'"L '#9'c #A6A6A5",'#13#10'"M '
+#9'c #AAAAA8",'#13#10'"N '#9'c #ADADAB",'#13#10'"O '#9'c #AEAEAC",'#13#10'"P'
+' '#9'c #ABABAA",'#13#10'"Q '#9'c #A7A7A6",'#13#10'"R '#9'c #A1A1A0",'#13#10
+'"S '#9'c #9A9A99",'#13#10'"T '#9'c #949492",'#13#10'"U '#9'c #8D8D8B",'#13
+#10'"V '#9'c #232323",'#13#10'"W '#9'c #4A4A4A",'#13#10'"X '#9'c #4A4A49",'
+#13#10'"Y '#9'c #4C4C4B",'#13#10'"Z '#9'c #4C4C4C",'#13#10'"` '#9'c #4B4B4A"'
+','#13#10'" .'#9'c #464646",'#13#10'"..'#9'c #434343",'#13#10'"+.'#9'c #4141'
+'40",'#13#10'"@.'#9'c #343433",'#13#10'"#.'#9'c #1F1F1E",'#13#10'" '
+' . . . . ",'#13#10'" . . . . . . . ",'
+#13#10'" . . . . . ",'#13#10'" '
+' . . . ",'#13#10'" . . . . ",'#13#10'" '
+'+ + + + ",'#13#10'"+ @ # $ @ + + + + + + + '
+' ",'#13#10'"+ # % & * * * * * * * * . ",'#13#10'"+ = & + - -'
+' ; > , , '' '' , . . . ",'#13#10'"+ & ) ! ~ ~ { ] ^ / ( _ : < [ } "'
+','#13#10'"+ & | 1 2 3 4 2 5 6 7 8 9 0 a ",'#13#10'"+ b c d e f g h i '
+'j k l 9 m n ",'#13#10'"+ o p q r r s t u v w x y a ",'#13#10
+'"+ '' z A B C D E k F G H I J ",'#13#10'"+ K L M N O P Q R S T U a '
+' ",'#13#10'"V W X Y Z Y ` a ...+.@.#. ",'#13#10'" '
+' ",'#13#10'" '
+' "};'#13#10#9'NumGlyphs'#2#0#7'OnClick'#7#12'BitBtn1Click'#8'TabOrder'#2#0#4
+'Left'#2#8#6'Height'#2#24#3'Top'#2#11#5'Width'#2'H'#0#0#14'TDirectoryEdit'#13
+'DirectoryEdit'#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#11'ParentColor'#8#8'Ta'
+'bOrder'#2#1#8'TabOrder'#2#1#4'Left'#3#152#0#6'Height'#2#23#3'Top'#2#11#5'Wi'
+'dth'#2'p'#0#0#7'TBitBtn'#7'btStart'#25'BorderSpacing.InnerBorder'#2#2#7'Cap'
+'tion'#6#5'Start'#9'NumGlyphs'#2#0#7'OnClick'#7#12'BitBtn2Click'#8'TabOrder'
+#2#2#4'Left'#3'`'#1#6'Height'#2#22#3'Top'#2#11#5'Width'#2'+'#0#0#9'TComboBox'
+#8'cbOutput'#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#3#4
+'Left'#3''''#1#6'Height'#2#21#3'Top'#2#11#5'Width'#2'1'#0#0#10'TACSFileIn'#6
,'FileIn'#9'EndSample'#2#255#9'EndSample'#2#255#4'left'#2' '#3'top'#2#8#0#0#11
+'TACSFileOut'#7'FileOut'#5'Input'#7#6'FileIn'#6'OnDone'#7#11'FileOutDone'#10
+'OnProgress'#7#15'FileOutProgress'#4'left'#2' '#3'top'#3'p'#1#0#0#0
LazarusResources.Add('TfMain','FORMDATA',[
'TPF0'#6'TfMain'#5'fMain'#4'Left'#3#184#1#6'Height'#2'>'#3'Top'#3'5'#1#5'Widt'
+'h'#3#145#1#18'HorzScrollBar.Page'#3#144#1#18'VertScrollBar.Page'#2'='#13'Ac'
+'tiveControl'#7#7'BitBtn1'#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#13
+'Fileconverter'#12'ClientHeight'#2'>'#11'ClientWidth'#3#145#1#8'OnCreate'#7
+#10'FormCreate'#10'LCLVersion'#6#3'1.3'#0#6'TLabel'#6'Label1'#4'Left'#2'X'#6
+'Height'#2#14#3'Top'#2#16#5'Width'#2';'#7'Caption'#6#10'Output Dir'#11'Paren'
+'tColor'#8#0#0#12'TProgressBar'#10'pbProgress'#4'Left'#2#8#6'Height'#2#16#3
+'Top'#2'('#5'Width'#3#128#1#8'TabOrder'#2#4#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'
+#2#8#6'Height'#2#24#3'Top'#2#11#5'Width'#2'H'#25'BorderSpacing.InnerBorder'#2
+#2#7'Caption'#6#4'Open'#10'Glyph.Data'#10'J'#5#0#0'F'#5#0#0'BMF'#5#0#0#0#0#0
+#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0' '#0#0#0#0#0#16#5#0#0'd'#0#0#0'd'
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0'###'#255'JJJ'#255'IJJ'#255'KLL'#255'LLL'#255'KLL'#255'JKK'#255'HII'
+#255'FFF'#255'CCC'#255'@AA'#255'344'#255#30#31#31#255#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#27'3N'#255#189#189#189#255#165#166#166#255#168#170#170#255
+#171#173#173#255#172#174#174#255#170#171#171#255#166#167#167#255#160#161#161
+#255#153#154#154#255#146#148#148#255#139#141#141#255'HII'#255#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255'PSV'#255#206#206#206#255#188#190#190#255
+#194#196#196#255#197#198#198#255#194#195#195#255#190#191#191#255#181#182#182
+#255#173#174#174#255#164#165#165#255#157#158#158#255'noo'#255#18#18#18#255#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255#24'0I'#255#205#205#205#255#201#202
+#202#255#212#213#213#255#212#213#213#255#208#210#210#255#203#204#204#255#193
+#194#194#255#184#185#185#255#174#175#175#255#161#162#162#255#148#149#149#255
+'HII'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255'D}'#183#255'NQS'#255#218
+#218#218#255#218#219#219#255#224#225#225#255#220#221#221#255#213#214#214#255
+#202#203#203#255#192#193#193#255#181#182#182#255#168#169#169#255#159#160#160
+#255'ghh'#255'!""'#255#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255#130#194#254#255#25
+'1J'#255#219#219#219#255#222#223#223#255#231#232#232#255#228#230#230#255#222
+#223#223#255#209#210#210#255#198#199#199#255#185#186#186#255#172#173#173#255
+#159#160#160#255#147#148#148#255'HII'#255#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255
+#130#194#254#255'N'#134#196#255'LOR'#255#245#245#245#255#245#245#245#255#236
+#236#236#255#228#228#228#255#220#220#220#255#212#212#212#255#203#203#203#255
+#196#196#196#255#188#188#188#255#181#181#181#255#179#179#179#255'000'#255#0#0
+#0#0#0#0#0#0#27'3N'#255#138#200#254#255#130#194#254#255#27'3N'#255'MPS'#255
+'MPS'#255'ORU'#255'WZ\'#255'NQT'#255'NQT'#255'PSV'#255'PSV'#255'NQT'#255#0#0
+#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#27'3N'#255#154#211#254#255#135#197
+#253#255#130#194#254#255'b'#172#248#255'b'#172#248#255'b'#172#248#255'b'#172
+#248#255'b'#172#248#255'b'#172#248#255'b'#172#248#255'b'#172#248#255#0#0#0
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255'f'#165#229#255#154
+#211#254#255#133#197#254#255'f'#165#229#255#27'3N'#255#27'3N'#255#27'3N'#255
+#27'3N'#255#27'3N'#255#27'3N'#255#27'3N'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#27'3N'#255#27'3N'#255#27'3N'#255#27'3N'#255#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0
+#255#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#255#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+#0#0#0#0#0#0#0#0#0#0#0#0#0#7'OnClick'#7#12'BitBtn1Click'#8'TabOrder'#2#0#0#0
+#14'TDirectoryEdit'#13'DirectoryEdit'#4'Left'#3#152#0#6'Height'#2#24#3'Top'#2
+#11#5'Width'#2'p'#10'ShowHidden'#8#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#9'M'
+'axLength'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'btStart'#4'Left'#3'`'#1#6'He'
+'ight'#2#22#3'Top'#2#11#5'Width'#2'+'#25'BorderSpacing.InnerBorder'#2#2#7'Ca'
+'ption'#6#5'Start'#7'OnClick'#7#12'BitBtn2Click'#8'TabOrder'#2#2#0#0#9'TComb'
+'oBox'#8'cbOutput'#4'Left'#3''''#1#6'Height'#2#28#3'Top'#2#11#5'Width'#2'1'
+#10'ItemHeight'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#3#0#0#10'TAC'
,'SFileIn'#6'FileIn'#9'EndSample'#2#255#4'Loop'#8#11'StartSample'#2#0#4'left'
+#2' '#3'top'#2#8#0#0#11'TACSFileOut'#7'FileOut'#8'FileMode'#7#9'foRewrite'#5
+'Input'#7#6'FileIn'#6'OnDone'#7#11'FileOutDone'#10'OnProgress'#7#15'FileOutP'
+'rogress'#4'left'#2' '#3'top'#3'p'#1#0#0#0
]);

View File

@ -10,9 +10,9 @@ uses
type
{ TForm1 }
{ TfMain }
TForm1 = class(TForm)
TfMain = class(TForm)
BitBtn1: TBitBtn;
btStart: TBitBtn;
cbOutput: TComboBox;
@ -33,19 +33,19 @@ type
end;
var
Form1: TForm1;
fMain: TfMain;
implementation
{ TForm1 }
{ TfMain }
procedure TForm1.BitBtn1Click(Sender: TObject);
procedure TfMain.BitBtn1Click(Sender: TObject);
begin
FileIn.Open;
DirectoryEdit.Text := ExtractFileDir(FileIn.FileName);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
procedure TfMain.BitBtn2Click(Sender: TObject);
var
newfilename : string;
begin
@ -66,20 +66,20 @@ begin
FileOut.Run;
end;
procedure TForm1.FileOutDone(Sender: TComponent);
procedure TfMain.FileOutDone(Sender: TComponent);
begin
btStart.Enabled := True;
pbProgress.Position := 0;
end;
procedure TForm1.FileOutProgress(Sender: TComponent);
procedure TfMain.FileOutProgress(Sender: TComponent);
begin
pbProgress.Position := round(FileOut.Progress);
Update;
Application.Processmessages;
end;
procedure TForm1.FormCreate(Sender: TObject);
procedure TfMain.FormCreate(Sender: TObject);
var
i : Integer;
begin