paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 06:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf/TGraphicPropertyEditor: Update enabled state of Clear button.

Browse Source
This commit is contained in:
wp_xyz 2024-07-03 16:56:46 +02:00
parent 2ee50f02d8
commit 8c91606093
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/graphicpropedit.lfm
View File

@ -203,6 +203,7 @@ object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
Hint = 'Delete' Hint = 'Delete'
ShortCut = 46 ShortCut = 46
OnExecute = ClearActionExecute OnExecute = ClearActionExecute
OnUpdate = ClearActionUpdate
end end
end end
end end

6
components/ideintf/graphicpropedit.pas
View File

@ -47,6 +47,7 @@ type
GroupBox1: TGroupBox; GroupBox1: TGroupBox;
SaveDialog: TSavePictureDialog; SaveDialog: TSavePictureDialog;
ScrollBox: TScrollBox; ScrollBox: TScrollBox;
procedure ClearActionUpdate(Sender: TObject);
procedure CopyActionExecute(Sender: TObject); procedure CopyActionExecute(Sender: TObject);
procedure CopyActionUpdate(Sender: TObject); procedure CopyActionUpdate(Sender: TObject);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
@ -115,6 +116,11 @@ begin
Clipboard.Assign(ImagePreview.Picture.Graphic); Clipboard.Assign(ImagePreview.Picture.Graphic);
end; end;
procedure TGraphicPropertyEditorForm.ClearActionUpdate(Sender: TObject);
begin
ClearAction.Enabled := ImagePreview.Picture.Graphic <> nil;
end;
procedure TGraphicPropertyEditorForm.CopyActionUpdate(Sender: TObject); procedure TGraphicPropertyEditorForm.CopyActionUpdate(Sender: TObject);
begin begin
CopyAction.Enabled := ImagePreview.Picture.Graphic <> nil; CopyAction.Enabled := ImagePreview.Picture.Graphic <> nil;