diff --git a/components/acs/Demos/fileconverter/fileconverter.lpi b/components/acs/Demos/fileconverter/fileconverter.lpi index 91a989ec9..52a366870 100644 --- a/components/acs/Demos/fileconverter/fileconverter.lpi +++ b/components/acs/Demos/fileconverter/fileconverter.lpi @@ -1,121 +1,21 @@ - + + - + + + - - - + + <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> diff --git a/components/acs/Demos/fileconverter/umain.lfm b/components/acs/Demos/fileconverter/umain.lfm index 2ba9ca62f..db1912657 100644 --- a/components/acs/Demos/fileconverter/umain.lfm +++ b/components/acs/Demos/fileconverter/umain.lfm @@ -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 diff --git a/components/acs/Demos/fileconverter/umain.lrs b/components/acs/Demos/fileconverter/umain.lrs index eef72c85c..7c5e1344d 100644 --- a/components/acs/Demos/fileconverter/umain.lrs +++ b/components/acs/Demos/fileconverter/umain.lrs @@ -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 ]); diff --git a/components/acs/Demos/fileconverter/umain.pas b/components/acs/Demos/fileconverter/umain.pas index 3038cbb54..7ed890d0b 100644 --- a/components/acs/Demos/fileconverter/umain.pas +++ b/components/acs/Demos/fileconverter/umain.pas @@ -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