Changeset 45 for trunk/IDE/Forms

Timestamp:

Mar 4, 2012, 9:56:47 AM (13 years ago)

Author:

chronos

Message:

• Modified: Forms renamed to names with Form prefix.

Location:

trunk/IDE/Forms

Files:

• UAboutForm.lfm (deleted)
• UAboutForm.pas (deleted)
• UCodeForm.lfm (deleted)
• UCodeForm.pas (deleted)
• UCodeTreeForm.lfm (deleted)
• UCodeTreeForm.pas (deleted)
• UCompiledForm.lfm (deleted)
• UCompiledForm.pas (deleted)
• UCompilerSettingsForm.lfm (deleted)
• UCompilerSettingsForm.pas (deleted)
• UFormAbout.lfm (added)
• UFormAbout.lrt (added)
• UFormAbout.pas (added)
• UFormCodeTree.lfm (added)
• UFormCodeTree.lrt (added)
• UFormCodeTree.pas (added)
• UFormCompilerSettings.lfm (added)
• UFormCompilerSettings.lrt (added)
• UFormCompilerSettings.pas (added)
• UFormMain.lfm (added)
• UFormMain.lrt (added)
• UFormMain.pas (added)
• UFormMessages.lfm (added)
• UFormMessages.lrt (added)
• UFormMessages.pas (added)
• UFormOptions.pas (modified) (2 diffs)
• UFormProject.lfm (added)
• UFormProject.lrt (added)
• UFormProject.pas (added)
• UFormSourceCode.lfm (added)
• UFormSourceCode.lrt (added)
• UFormSourceCode.pas (added)
• UFormTargetCode.lfm (added)
• UFormTargetCode.lrt (added)
• UFormTargetCode.pas (added)
• UFormTargets.pas (modified) (4 diffs)
• UMainForm.lfm (deleted)
• UMainForm.pas (deleted)
• UMessagesForm.lfm (deleted)
• UMessagesForm.pas (deleted)
• UProjectManager.lfm (deleted)
• UProjectManager.pas (deleted)

trunk/IDE/Forms/UFormOptions.pas

@@ -34 +34 @@
 
 uses
-  UMainForm, ULanguages;
+  UFormMain, ULanguages;
 
 { TFormOptions }
@@ -41 +41 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    MainForm.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
-  MainForm.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
+    FormMain.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  FormMain.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
 end;
 
 procedure TFormOptions.FormShow(Sender: TObject);
 begin
-  MainForm.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(MainForm.CoolTranslator1.Language);
+  FormMain.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(FormMain.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-  CheckBoxReopenProject.Checked := MainForm.ReopenLastOpenedFile;
+  CheckBoxReopenProject.Checked := FormMain.ReopenLastOpenedFile;
 end;
 

trunk/IDE/Forms/UFormTargets.pas

@@ -31 +31 @@
 
 uses
-  UMainForm, UCompiler, UCompilerSettingsForm, UProducer, UTarget;
+  UFormMain, UCompiler, UFormCompilerSettings, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormTargets.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Targets.Count) then
-  with TTarget(MainForm.Compiler.Targets[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < FormMain.Compiler.Targets.Count) then
+  with TTarget(FormMain.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Compiler.Targets[Item.Index];
+    Item.Data := FormMain.Compiler.Targets[Item.Index];
     //Item.SubItems.Add(Producer.CompilerPath);
   end;
@@ -57 +57 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    CompilerSettingsForm.LoadFromProducer(TProducer(ListView1.Selected.Data));
-    if CompilerSettingsForm.ShowModal = mrOk then
-      CompilerSettingsForm.SaveToProducer(TProducer(ListView1.Selected.Data));
+    FormCompilerSettings.LoadFromProducer(TProducer(ListView1.Selected.Data));
+    if FormCompilerSettings.ShowModal = mrOk then
+      FormCompilerSettings.SaveToProducer(TProducer(ListView1.Selected.Data));
     ReloadList;
   end;
@@ -66 +66 @@
 procedure TFormTargets.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Compiler.Targets.Count;
+  ListView1.Items.Count := FormMain.Compiler.Targets.Count;
   ListView1.Refresh;
 end;