pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Redo prev two commits in a more general way.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6590 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-11 08:24:08 +00:00
parent f10b07cd0f
commit 089a63532a
3 changed files with 128 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/visual/fpsactions.pas
View File

@@ -116,6 +116,7 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
published
property Zoom: Integer read FZoom write SetZoom default 100;
end;
@@ -880,6 +881,11 @@ begin
FZoom := AValue;
end;
procedure TsWorksheetZoomAction.UpdateTarget(Target: TObject);
begin
Checked := (Worksheet <> nil) and (round(Worksheet.ZoomFactor*100) = FZoom);
end;
{ TsCopyAction }