Changeset 47 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2012, 8:21:21 AM (12 years ago)

Author:

chronos

Message:

• Added: Clipboard manipulation support in source code form.
• Modified: Moved code which belongs to UFormSourceCode from UFormMain.

File:

• trunk/Forms/UFormMain.pas (modified) (11 diffs)

trunk/Forms/UFormMain.pas

@@ -27 +27 @@
     ABreakpointToggle: TAction;
     AViewCompilers: TAction;
-    AGenerateNumber: TAction;
-    AShrinkSource: TAction;
-    AFormatSource: TAction;
     AOptions: TAction;
     AProgramStepOut: TAction;
@@ -119 +116 @@
     procedure ABreakpointToggleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
-    procedure AFormatSourceExecute(Sender: TObject);
-    procedure AGenerateNumberExecute(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramCompileExecute(Sender: TObject);
@@ -138 +133 @@
     procedure AShowSourcePositionExecute(Sender: TObject);
     procedure AShowTargetPositionExecute(Sender: TObject);
-    procedure AShrinkSourceExecute(Sender: TObject);
     procedure AViewCompilersExecute(Sender: TObject);
     procedure AViewInterpretterExecute(Sender: TObject);
@@ -145 +139 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure MemoSourceChange(Sender: TObject);
-    procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;
-      Shift: TShiftState);
-    procedure MemoSourceKeyPress(Sender: TObject; var Key: char);
-    procedure MemoSourceKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
-      );
-    procedure MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
     procedure TimerRefreshTimer(Sender: TObject);
   private
@@ -193 +179 @@
 
 resourcestring
-  SEnterNumber = 'Enter number';
-  SNumberGeneration = 'Number generation';
   SProgramExited = 'Program exited';
   SProgramStarted = 'Program started';
@@ -215 +199 @@
 end;
 
-procedure TMainForm.MemoSourceChange(Sender: TObject);
-begin
-  Modified := True;
-  CurrentTarget.Compiled := False;
-  UpdateInterface;
-end;
-
-procedure TMainForm.MemoSourceKeyDown(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-end;
-
-procedure TMainForm.MemoSourceKeyPress(Sender: TObject; var Key: char);
-begin
-end;
-
-procedure TMainForm.MemoSourceKeyUp(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  UpdateStatusBar;
-end;
-
-procedure TMainForm.MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-begin
-  UpdateStatusBar;
-end;
-
 procedure TMainForm.TimerRefreshTimer(Sender: TObject);
 begin
@@ -281 +237 @@
   LastOpenedList.AddItem(FileName);
   ProjectFileName := FileName;
-  UpdateInterface;
   Modified := False;
   CurrentTarget.Compiled := False;
+  UpdateInterface;
 end;
 
@@ -485 +441 @@
 end;
 
-procedure TMainForm.AShrinkSourceExecute(Sender: TObject);
-var
-  Source: string;
-  Pos: Integer;
-  I: Integer;
-begin
-  Source := FormSourceCode.MemoSource.Text;
-  Pos := 1;
-  for I := 1 to Length(Source) do begin
-    if Source[I] > ' ' then begin
-      Source[Pos] := Source[I];
-      Inc(Pos);
-    end;
-  end;
-  SetLength(Source, Pos - 1);
-  FormSourceCode.MemoSource.Text := Source;
-end;
-
 procedure TMainForm.AViewCompilersExecute(Sender: TObject);
 begin
@@ -521 +459 @@
 begin
   Close;
-end;
-
-procedure TMainForm.AFormatSourceExecute(Sender: TObject);
-var
-  Source: string;
-  NewSource: string;
-  Indent: Integer;
-  I: Integer;
-const
-  IndentText = '  ';
-begin
-  Source := FormSourceCode.MemoSource.Text;
-  NewSource := '';
-  Indent := 0;
-  for I := 1 to Length(Source) do begin
-    if Source[I] = '[' then begin
-      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
-      Inc(Indent);
-      NewSource := NewSource + DupeString(IndentText, Indent);
-    end
-    else if Source[I] = ']' then begin
-      Dec(Indent);
-      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
-    end
-    else if Ord(Source[I]) > $20 then
-      NewSource := NewSource + Source[I];
-  end;
-  FormSourceCode.MemoSource.Text := NewSource;
-end;
-
-procedure TMainForm.AGenerateNumberExecute(Sender: TObject);
-var
-  NumberText: string;
-  Number: Integer;
-  I: Integer;
-begin
-  NumberText := InputBox(SNumberGeneration, SEnterNumber, '1');
-  if TryStrToInt(NumberText, Number) then begin
-    NumberText := '';
-    for I := 0 to Number - 1 do
-      NumberText := NumberText + '+';
-    FormSourceCode.MemoSource.Text := FormSourceCode.MemoSource.Text + NumberText;
-  end;
 end;
 
@@ -665 +560 @@
 procedure TMainForm.AProjectCloseExecute(Sender: TObject);
 begin
+  if Modified then AProjectSaveAs.Execute;
   AProgramStop.Execute;
-  Modified := False;
   ProjectFileName := '';
   FormSourceCode.MemoSource.Clear;
+  Modified := False;
   UpdateInterface;
 end;
@@ -689 +585 @@
 procedure TMainForm.AProjectOpenExecute(Sender: TObject);
 begin
+  AProjectClose.Execute;
   OpenDialog1.FileName := ProjectFileName;
   if OpenDialog1.Execute then begin