Changeset 32 for trunk/Target/UTarget.pas

Timestamp:

Feb 18, 2012, 8:44:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Target specific options is maintained by target class in registry.
• Modified: Integer index TargetIndex replaced by object reference CurrentTarget.

File:

• trunk/Target/UTarget.pas (modified) (6 diffs)

trunk/Target/UTarget.pas

@@ -12 +12 @@
   TCompilerOptimization = (coNone, coNormal);
 
-  TTargetCapability = (tcRun, tcPause, tcStop, tcStepOut, tsStepOver, tsStepInto,
-    tsRunToCursor, tcCompile, tcBreakpoint);
+  TTargetCapability = (tcRun, tcPause, tcStop, tcStepOut, tcStepOver, tcStepInto,
+    tcRunToCursor, tcCompile, tcBreakpoint);
   TTargetCapabilities = set of TTargetCapability;
 
+  TRunState = (rsStopped, rsPaused, rsRunning);
+
   { TTarget }
 
   TTarget = class
+  private
   protected
+    FSource: string;
     Indent: Integer;
+    FState: TRunState;
+    FOnChangeState: TNotifyEvent;
+    procedure SetSource(AValue: string); virtual;
     procedure AddLine(Text: string);
     function LongFileName(FileName: string): string;
@@ -26 +33 @@
     Name: string;
     ProgramName: string;
-    Source: string;
     Output: string;
     Optimization: TCompilerOptimization;
@@ -45 +51 @@
     procedure StepOut; virtual;
     procedure RunToCursor; virtual;
+    procedure LoadFromRegistry(Root: HKEY; Key: string); virtual;
+    procedure SaveToRegistry(Root: HKEY; Key: string); virtual;
+    property State: TRunState read FState;
+    property OnChangeState: TNotifyEvent read FOnChangeState write FOnChangeState;
+    property Source: string write SetSource;
   end;
 
@@ -52 +63 @@
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
+    function FindByName(Name: string): TTarget;
   end;
 
@@ -98 +110 @@
 end;
 
+function TTargetList.FindByName(Name: string): TTarget;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TTarget(Items[I]).Name <> Name) do Inc(I);
+  if I < Count then Result := TTarget(Items[I])
+    else Result := nil;
+end;
+
 { TTarget }
+
+procedure TTarget.SetSource(AValue: string);
+begin
+  FSource := AValue;
+end;
 
 procedure TTarget.AddLine(Text: string);
@@ -209 +236 @@
 end;
 
+procedure TTarget.LoadFromRegistry(Root: HKEY; Key: string);
+begin
+
+end;
+
+procedure TTarget.SaveToRegistry(Root: HKEY; Key: string);
+begin
+
+end;
+
 end.