--- oup/current/OniUnPacker.dpr 2006/08/26 17:49:08 10 +++ oup/current/OniUnPacker.dpr 2006/12/25 18:36:41 56 @@ -1,32 +1,34 @@ -PROGRAM OniUnPacker; +program OniUnPacker; + uses Forms, - Unit1_main in 'Unit1_main.pas' {Form1}, - Unit2_functions in 'Unit2_functions.pas', - Unit3_data in 'Unit3_data.pas', - Unit4_Exporters in 'Unit4_Exporters.pas', - Unit5_preview in 'Unit5_preview.pas' {Form5}, - Unit6_imgfuncs in 'Unit6_imgfuncs.pas', - Unit7_txmpreplace in 'Unit7_txmpreplace.pas' {Form7}, - Unit8_binedit in 'Unit8_binedit.pas' {Form8}, - Unit9_data_structures in 'Unit9_data_structures.pas', - Unit10_leveldb in 'Unit10_leveldb.pas' {Form10}, - Unit11_extractor in 'Unit11_extractor.pas' {Form11}, - Unit12_ValueEdit in 'Unit12_ValueEdit.pas' {Form12}, - Unit13_rawedit in 'Unit13_rawedit.pas' {Form13}, - Unit14_settings in 'Unit14_settings.pas' {Form14}, - ftypesAPI in 'TFileTypeRegistration\ftypesAPI.pas', - Unit15_Classes in 'Unit15_Classes.pas'; + Main in 'Main.pas' {Form_Main}, + Data in 'Data.pas', + Helper_LevelDB in 'Helper_LevelDB.pas' {Form_LevelDB}, + Helper_ValueEdit in 'Helper_ValueEdit.pas' {Form_ValueEdit}, + Settings in 'Settings.pas' {Form_Settings}, + FTypeReg in 'FTypeReg.pas', + Functions in 'Code\Functions.pas', + Exporters in 'Code\Exporters.pas', + OniImgClass in 'Code\OniImgClass.pas', + DataStructures in 'Code\DataStructures.pas', + OniDataClass in 'Code\OniDataClass.pas', + Template in 'Tools\Template.pas' {Form_ToolTemplate}, + Preview in 'Tools\Preview.pas' {Form_Preview}, + BinEdit in 'Tools\BinEdit.pas' {Form_ToolTemplate2}, + Extractor in 'Tools\Extractor.pas' {Form_ToolTemplate3}, + RawEdit in 'Tools\RawEdit.pas' {Form_ToolTemplate4}, + TxmpReplace in 'Tools\TxmpReplace.pas' {Form_ToolTemplate5}; {$R *.res} -{$R icon2.res} +{$R ExtraIcos.res} -BEGIN +begin Application.Initialize; - Application.Title:='Oni Un/Packer'; - Application.CreateForm(TForm1, Form1); - Application.CreateForm(TForm10, Form10); - Application.CreateForm(TForm12, Form12); - Application.CreateForm(TForm14, Form14); + Application.Title := 'Oni Un/Packer'; + Application.CreateForm(TForm_Main, Form_Main); + Application.CreateForm(TForm_LevelDB, Form_LevelDB); + Application.CreateForm(TForm_ValueEdit, Form_ValueEdit); + Application.CreateForm(TForm_Settings, Form_Settings); Application.Run; -END. +end. \ No newline at end of file