|
@@ -144,6 +144,7 @@ type
|
|
procedure EditCutExecute(Sender: TObject);
|
|
procedure EditCutExecute(Sender: TObject);
|
|
procedure EditDeleteExecute(Sender: TObject);
|
|
procedure EditDeleteExecute(Sender: TObject);
|
|
procedure EditPasteExecute(Sender: TObject);
|
|
procedure EditPasteExecute(Sender: TObject);
|
|
|
|
+ procedure EditPasteUpdate(Sender: TObject);
|
|
procedure FileNewExecute(Sender: TObject);
|
|
procedure FileNewExecute(Sender: TObject);
|
|
procedure FileOpenExecute(Sender: TObject);
|
|
procedure FileOpenExecute(Sender: TObject);
|
|
procedure FileSaveAsExecute(Sender: TObject);
|
|
procedure FileSaveAsExecute(Sender: TObject);
|
|
@@ -736,6 +737,11 @@ begin
|
|
DoPaste;
|
|
DoPaste;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+procedure TForm1.EditPasteUpdate(Sender: TObject);
|
|
|
|
+begin
|
|
|
|
+ EditPaste.Enabled := ClipboardHasShapes;
|
|
|
|
+end;
|
|
|
|
+
|
|
procedure TForm1.FileNewExecute(Sender: TObject);
|
|
procedure TForm1.FileNewExecute(Sender: TObject);
|
|
begin
|
|
begin
|
|
if Assigned(vectorOriginal) then
|
|
if Assigned(vectorOriginal) then
|