paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 22:37:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

Implement copy'n'paste for GraphicPropEdit. Issue #20243, patch from Flávio Etrusco

Browse Source 
git-svn-id: trunk@32344 -
This commit is contained in:
juha 2011-09-15 08:06:05 +00:00
parent ef77f1c1db
commit 598eb542d5
2 changed files with 77 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
ideintf/graphicpropedit.lfm
View File

@ -11,7 +11,7 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
Constraints.MinWidth = 200
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '0.9.31'
object GroupBox1: TGroupBox
Left = 6
Height = 337
@ -25,13 +25,13 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
TabOrder = 0
object ScrollBox: TScrollBox
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 307
Top = 6
Width = 322
HorzScrollBar.Page = 318
VertScrollBar.Page = 303
Align = alClient
BorderSpacing.Around = 6
ClientHeight = 303
@ -59,7 +59,6 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
ClientWidth = 86
TabOrder = 1
object LoadButton: TButton
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 6
@ -92,6 +91,22 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
OnClick = ClearButtonClick
TabOrder = 2
end
object CopyButton: TButton
Left = 6
Height = 25
Top = 112
Width = 74
Action = CopyAction
TabOrder = 3
end
object PasteButton: TButton
Left = 6
Height = 25
Top = 143
Width = 74
Action = PasteAction
TabOrder = 4
end
end
end
object OkCancelButtonPanel: TButtonPanel
@ -99,6 +114,14 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
Height = 26
Top = 349
Width = 424
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
@ -108,8 +131,27 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
top = 182
end
object SaveDialog: TSavePictureDialog
Title = 'Save file as'
left = 186
top = 182
end
object ActionList: TActionList
left = 355
top = 244
object CopyAction: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy'
OnExecute = CopyActionExecute
OnUpdate = CopyActionUpdate
ShortCut = 16451
end
object PasteAction: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste'
OnExecute = PasteActionExecute
OnUpdate = PasteActionUpdate
ShortCut = 16470
end
end
end

31
ideintf/graphicpropedit.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, Buttons, ButtonPanel, ExtDlgs,
ExtCtrls, Buttons, ButtonPanel, ExtDlgs, ActnList, StdActns, Clipbrd,
IDEDialogs, ObjInspStrConsts;
type
@ -32,6 +32,11 @@ type
{ TGraphicPropertyEditorForm }
TGraphicPropertyEditorForm = class(TForm)
ActionList: TActionList;
CopyButton: TButton;
PasteButton: TButton;
CopyAction: TEditCopy;
PasteAction: TEditPaste;
OkCancelButtonPanel: TButtonPanel;
ImagePreview: TImage;
LoadButton: TButton;
@ -42,6 +47,10 @@ type
GroupBox1: TGroupBox;
SaveDialog: TSavePictureDialog;
ScrollBox: TScrollBox;
procedure CopyActionExecute(Sender: TObject);
procedure CopyActionUpdate(Sender: TObject);
procedure PasteActionExecute(Sender: TObject);
procedure PasteActionUpdate(Sender: TObject);
procedure ClearButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LoadButtonClick(Sender: TObject);
@ -91,6 +100,26 @@ begin
Modified := True;
end;
procedure TGraphicPropertyEditorForm.CopyActionExecute(Sender: TObject);
begin
Clipboard.Assign(ImagePreview.Picture.Graphic);
end;
procedure TGraphicPropertyEditorForm.CopyActionUpdate(Sender: TObject);
begin
CopyAction.Enabled := ImagePreview.Picture.Graphic <> nil;
end;
procedure TGraphicPropertyEditorForm.PasteActionExecute(Sender: TObject);
begin
ImagePreview.Picture.Assign(Clipboard);
end;
procedure TGraphicPropertyEditorForm.PasteActionUpdate(Sender: TObject);
begin
PasteAction.Enabled := Clipboard.HasPictureFormat;
end;
procedure TGraphicPropertyEditorForm.LoadButtonClick(Sender: TObject);
begin
InitIDEFileDialog(OpenDialog);