--- oup/current/OniUnPacker.dpr 2006/08/26 17:49:08 10 +++ oup/current/OniUnPacker.dpr 2006/12/23 00:03:50 45 @@ -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}, + Main in 'Main.pas' {Form_Main}, + Code_Functions in 'Code_Functions.pas', + Data in 'Data.pas', + Code_Exporters in 'Code_Exporters.pas', + Code_OniImgClass in 'Code_OniImgClass.pas', + Code_DataStructures in 'Code_DataStructures.pas', + Helper_LevelDB in 'Helper_LevelDB.pas' {Form_LevelDB}, + Helper_ValueEdit in 'Helper_ValueEdit.pas' {Form_ValueEdit}, + Settings in 'Settings.pas' {Form_Settings}, ftypesAPI in 'TFileTypeRegistration\ftypesAPI.pas', - Unit15_Classes in 'Unit15_Classes.pas'; + Code_OniDataClass in 'Code_OniDataClass.pas', + Tool_Template in 'Tool_Template.pas' {Form_ToolTemplate}, + Tool_Preview in 'Tool_Preview.pas' {Form_Preview}, + Tool_BinEdit in 'Tool_BinEdit.pas' {Form_ToolTemplate2}, + Tool_Extractor in 'Tool_Extractor.pas' {Form_ToolTemplate3}, + Tool_RawEdit in 'Tool_RawEdit.pas' {Form_ToolTemplate4}, + Tool_TxmpReplace in 'Tool_TxmpReplace.pas' {Form_ToolTemplate5}; {$R *.res} {$R icon2.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.