Changeset 61 for trunk/Forms

Timestamp:

Dec 4, 2014, 11:26:54 AM (10 years ago)

Author:

chronos

Message:

• Added: Unit project which should handle all project related operations.
• Fixed: TScaleDPI to handle also lower then default DPI and different horizontal and vertical DPI.

Location:

trunk/Forms

Files:

• UFormMain.pas (modified) (9 diffs)
• UFormMemory.lfm (modified) (2 diffs)
• UFormMemory.pas (modified) (1 diff)
• UFormSourceCode.lfm (modified) (1 diff)
• UFormSourceCode.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -263 +263 @@
   FormSourceCode.MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
   Core.LastOpenedList.AddItem(FileName);
-  Core.ProjectFileName := FileName;
-  Core.Modified := False;
+  Core.Project.FileName := FileName;
+  Core.Project.Modified := False;
   CurrentTarget.Compiled := False;
   UpdateInterface;
@@ -300 +300 @@
   FormMessages.Align := alClient;
   FormMessages.Show;
-  PageControlRight.Width := MainForm.Width div 2;
+  PageControlRight.Width := MainForm.Width div 3;
   PageControlBottom.Height := MainForm.Height div 5;
 end;
@@ -345 +345 @@
   Title: string;
 begin
-  AProjectSave.Enabled := Core.Modified;
+  AProjectSave.Enabled := Core.Project.Modified;
   Title := Core.ApplicationInfo.AppName;
-  if Core.ProjectFileName <> '' then Title := Core.ProjectFileName + ' - ' + Title;
-  if Core.Modified then Title := Title + ' *';
+  if Core.Project.FileName <> '' then Title := Core.Project.FileName + ' - ' + Title;
+  if Core.Project.Modified then Title := Title + ' *';
   Caption := Title;
-  FormSourceCode.MemoSource.Enabled := Core.ProjectFileName <> '';
-  AProjectClose.Enabled := Core.ProjectFileName <> '';
+  FormSourceCode.MemoSource.Enabled := Core.Project.FileName <> '';
+  AProjectClose.Enabled := Core.Project.FileName <> '';
   AProgramRun.Enabled := (tcRun in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and (CurrentTarget.State = rsStopped) or (CurrentTarget.State = rsPaused);
+    (Core.Project.FileName <> '') and (CurrentTarget.State = rsStopped) or (CurrentTarget.State = rsPaused);
   AProgramPause.Enabled := (tcPause in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and (CurrentTarget.State = rsRunning);
+    (Core.Project.FileName <> '') and (CurrentTarget.State = rsRunning);
   AProgramStop.Enabled := (tcStop in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and (CurrentTarget.State <> rsStopped);
+    (Core.Project.FileName <> '') and (CurrentTarget.State <> rsStopped);
   AProgramCompile.Enabled := (tcCompile in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '');
+    (Core.Project.FileName <> '');
   AProgramStepInto.Enabled := (tcStepInto in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
+    (Core.Project.FileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
   AProgramStepOut.Enabled := (tcStepOut in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and (CurrentTarget.State = rsPaused);
+    (Core.Project.FileName <> '') and (CurrentTarget.State = rsPaused);
   AProgramRunToCursor.Enabled := (tcRunToCursor in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
+    (Core.Project.FileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
   AProgramStepOver.Enabled := (tcStepOver in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
+    (Core.Project.FileName <> '') and ((CurrentTarget.State = rsPaused) or (CurrentTarget.State = rsStopped));
   AProgramShowExecutionPoint.Enabled := (tcPause in CurrentTarget.Capabilities) and
-    (Core.ProjectFileName <> '') and (CurrentTarget.State = rsPaused);
+    (Core.Project.FileName <> '') and (CurrentTarget.State = rsPaused);
   AShowSourcePosition.Enabled := CurrentTarget.Compiled;
   AShowTargetPosition.Enabled := CurrentTarget.Compiled;
@@ -457 +457 @@
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
-  if Core.Modified then AProjectSaveAs.Execute;
+  if Core.Project.Modified then AProjectSaveAs.Execute;
 end;
 
@@ -481 +481 @@
     Optimization := coNormal;
     SourceCode := FormSourceCode.MemoSource.Text;
-    ProjectFileName := Core.ProjectFileName;
-    ProgramName := ExtractFileNameOnly(Core.ProjectFileName);
+    ProjectFileName := Core.Project.FileName;
+    ProgramName := ExtractFileNameOnly(Core.Project.FileName);
     CurrentTarget.Messages.AddMessage(SCompileStart);
     Compile;
@@ -566 +566 @@
 procedure TMainForm.AProjectCloseExecute(Sender: TObject);
 begin
-  if Core.Modified then AProjectSaveAs.Execute;
+  if Core.Project.Modified then AProjectSaveAs.Execute;
   AProgramStop.Execute;
-  Core.ProjectFileName := '';
+  Core.Project.FileName := '';
   FormSourceCode.MemoSource.Clear;
-  Core.Modified := False;
+  Core.Project.Modified := False;
   UpdateInterface;
 end;
@@ -577 +577 @@
 begin
   AProjectClose.Execute;
-  Core.ProjectFileName := 'Examples' + DirectorySeparator + SNewProject + '.b';
+  Core.Project.FileName := 'Examples' + DirectorySeparator + SNewProject + '.b';
   FormSourceCode.MemoSource.Clear;
-  Core.Modified := False;
+  Core.Project.Modified := False;
   CurrentTarget.Compiled := False;
   UpdateInterface;
@@ -602 +602 @@
 procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
 begin
-  SaveDialog1.FileName := Core.ProjectFileName;
+  SaveDialog1.FileName := Core.Project.FileName;
   if SaveDialog1.Execute then begin
     FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
-    Core.ProjectFileName := SaveDialog1.FileName;
+    Core.Project.FileName := SaveDialog1.FileName;
     Core.LastOpenedList.AddItem(SaveDialog1.FileName);
-    Core.Modified := False;
+    Core.Project.Modified := False;
     UpdateInterface;
   end;
@@ -614 +614 @@
 procedure TMainForm.AProjectSaveExecute(Sender: TObject);
 begin
-  if Core.Modified then AProjectSaveAs.Execute;
+  if Core.Project.Modified then AProjectSaveAs.Execute;
 end;
 

trunk/Forms/UFormMemory.lfm

@@ -1 +1 @@
 object FormMemory: TFormMemory
-  Left = 256
+  Left = 565
   Height = 259
-  Top = 32
+  Top = 182
   Width = 391
   Caption = 'Memory'
@@ -34 +34 @@
         Width = 330
       end>
-    Font.Height = -11
+    Font.Height = -12
     Font.Name = 'Courier New'
     OwnerData = True

trunk/Forms/UFormMemory.pas

@@ -63 +63 @@
 end;
 
-
 end.
 

trunk/Forms/UFormSourceCode.lfm

@@ -7 +7 @@
   ClientHeight = 240
   ClientWidth = 320
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
   object MemoSource: TMemo
     Left = 0

trunk/Forms/UFormSourceCode.pas

@@ -168 +168 @@
 procedure TFormSourceCode.MemoSourceChange(Sender: TObject);
 begin
-  Core.Modified := True;
+  Core.Project.Modified := True;
   MainForm.CurrentTarget.Compiled := False;
   MainForm.UpdateInterface;