[Instantobjects-cvscommit] SF.net SVN: instantobjects:[806] trunk/Source/Design

[<wp...@us...>]

Revision: 806
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=806&view=rev
Author:   wp2udk
Date:     2009-07-08 07:24:46 +0000 (Wed, 08 Jul 2009)

Log Message:
-----------
Changing the name of the form in InstantModelImport.pas to comply with IO naming conversion.

Modified Paths:
--------------
    trunk/Source/Design/InstantModelExplorer.pas
    trunk/Source/Design/InstantModelImport.dfm
    trunk/Source/Design/InstantModelImport.pas

Modified: trunk/Source/Design/InstantModelExplorer.pas
===================================================================
--- trunk/Source/Design/InstantModelExplorer.pas	2009-07-08 06:55:49 UTC (rev 805)
+++ trunk/Source/Design/InstantModelExplorer.pas	2009-07-08 07:24:46 UTC (rev 806)
@@ -399,7 +399,7 @@
   NewClass: TInstantCodeClass;
   NewAttribute: TInstantCodeAttribute;
 begin
-  with TInstantImportModelForm.Create(nil) do
+  with TInstantModelImportForm.Create(nil) do
     try
       if Execute(FModel) then
       begin

Modified: trunk/Source/Design/InstantModelImport.dfm
===================================================================
--- trunk/Source/Design/InstantModelImport.dfm	2009-07-08 06:55:49 UTC (rev 805)
+++ trunk/Source/Design/InstantModelImport.dfm	2009-07-08 07:24:46 UTC (rev 806)
@@ -1,4 +1,4 @@
-inherited InstantImportModelForm: TInstantImportModelForm
+inherited InstantModelImportForm: TInstantModelImportForm
   Caption = 'Import Model'
   ClientHeight = 120
   ClientWidth = 416

Modified: trunk/Source/Design/InstantModelImport.pas
===================================================================
--- trunk/Source/Design/InstantModelImport.pas	2009-07-08 06:55:49 UTC (rev 805)
+++ trunk/Source/Design/InstantModelImport.pas	2009-07-08 07:24:46 UTC (rev 806)
@@ -37,7 +37,7 @@
   Dialogs, InstantDialog, ExtCtrls, StdCtrls, InstantCode, InstantClasses;
 
 type
-  TInstantImportModelForm = class(TInstantDialogForm)
+  TInstantModelImportForm = class(TInstantDialogForm)
     ImportButton: TButton;
     ImportModuleCombo: TComboBox;
     Label1: TLabel;
@@ -67,7 +67,7 @@
   end;
 
 var
-  InstantImportModelForm: TInstantImportModelForm;
+  InstantModelImportForm: TInstantModelImportForm;
 
 implementation
 
@@ -75,7 +75,7 @@
 
 { TInstantImportModelForm }
 
-function TInstantImportModelForm.Execute(AModel: TInstantCodeModel): Boolean;
+function TInstantModelImportForm.Execute(AModel: TInstantCodeModel): Boolean;
 begin
   FModel := AModel;
 
@@ -96,7 +96,7 @@
   end;
 end;
 
-procedure TInstantImportModelForm.FileNameButtonClick(Sender: TObject);
+procedure TInstantModelImportForm.FileNameButtonClick(Sender: TObject);
 begin
   inherited;
 
@@ -105,7 +105,7 @@
     FileNameEdit.Text := OpenDialog.FileName;
 end;
 
-procedure TInstantImportModelForm.LoadModules;
+procedure TInstantModelImportForm.LoadModules;
 var
   I: Integer;
   Module: TInstantCodeModule;
@@ -118,25 +118,25 @@
   end;
 end;
 
-procedure TInstantImportModelForm.UpdateControls;
+procedure TInstantModelImportForm.UpdateControls;
 begin
   ImportButton.Enabled := (FileNameEdit.Text <> '') and (ImportModuleCombo.ItemIndex <> -1);
 end;
 
-function TInstantImportModelForm.GetSelectedFileType: TInstantStreamFormat;
+function TInstantModelImportForm.GetSelectedFileType: TInstantStreamFormat;
 begin
   if CompareText(ExtractFileExt(SelectedFileName), '.mdr') = 0 then
     Result := sfBinary else
     Result := sfXML;
 end;
 
-procedure TInstantImportModelForm.ImportModuleComboChange(Sender: TObject);
+procedure TInstantModelImportForm.ImportModuleComboChange(Sender: TObject);
 begin
   inherited;
   UpdateControls;
 end;
 
-procedure TInstantImportModelForm.FileNameEditChange(Sender: TObject);
+procedure TInstantModelImportForm.FileNameEditChange(Sender: TObject);
 begin
   inherited;
   UpdateControls;