Changeset 75 for trunk/IDE/Forms/FormTargetCode.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/IDE/Forms/FormTargetCode.pas (moved) (moved from trunk/IDE/Forms/UFormTargetCode.pas ) (5 diffs)

trunk/IDE/Forms/FormTargetCode.pas

@@ -1 @@
-unit UFormTargetCode;
-
-{$mode Delphi}{$H+}
+unit FormTargetCode;
 
 interface
@@ -8 +6 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, SynEdit,
   SynHighlighterMulti, SynHighlighterVB, SynHighlighterPas, SynHighlighterCpp,
-  SynHighlighterXML, UProject;
+  SynHighlighterXML, Project;
 
 type
@@ -27 +25 @@
   end;
 
-var
-  FormTargetCode: TFormTargetCode;
 
 implementation
@@ -35 +31 @@
 
 uses
-  UCore;
+  Core;
 
 procedure TFormTargetCode.SetProjectFile(AValue: TProjectFile);
@@ -48 +44 @@
 procedure TFormTargetCode.UpdateInterface;
 begin
-  SynEdit1.Enabled := Assigned(Core.Project);
-  if not Assigned(Core.Project) then SynEdit1.ClearAll;
+  SynEdit1.Enabled := Assigned(Core.Core.Project);
+  if not Assigned(Core.Core.Project) then SynEdit1.ClearAll;
 end;
-
 
 end.