paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, added code to execute actions on selected views

Browse Source 
git-svn-id: trunk@34134 -
This commit is contained in:
jesus 2011-12-12 16:23:09 +00:00
parent 9d9bf409cd
commit 50adae92e1
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/lazreport/source/lr_desgn.pas
View File

@ -93,6 +93,8 @@ type
View2 : TfrView;
end;
TViewAction = procedure(View: TFrView; Data:PtrInt) of object;
{ TfrObjectInspector }
TfrObjectInspector = Class({$IFDEF EXTOI}TForm{$ELSE}TPanel{$ENDIF})
private
@ -522,6 +524,9 @@ type
procedure StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
const Rect: TRect);
{$endif}
procedure ViewsAction(OnlySel: boolean; TheAction: TViewAction; Data:Ptrint);
procedure ToggleFrames(View: TfrView; Data: PtrInt);
procedure DuplicateView(View: TfrView; Data: PtrInt);
public
constructor Create(aOwner : TComponent); override;
destructor Destroy; override;
@ -3056,6 +3061,7 @@ begin
if (Chr(Key) = 'F') and (ssCtrl in Shift) and DelEnabled then
begin
FrB5.Click;
//ViewsAction(True, @ToggleFrames, 0);
Key := 0;
end;
if (Chr(Key) = 'D') and (ssCtrl in Shift) and DelEnabled then
@ -3589,6 +3595,37 @@ begin
DrawStatusPanel(StatusBar.Canvas, Rect);
end;
procedure TfrDesignerForm.ViewsAction(OnlySel: boolean; TheAction: TViewAction;
Data: Ptrint);
var
List: TFpList;
i: Integer;
begin
if not assigned(TheAction) then
exit;
List := Objects;
for i:=List.Count-1 downto 0 do begin
if OnlySel and not TfrView(List[i]).Selected then
continue;
TheAction(TfrView(List[i]), Data);
end;
end;
procedure TfrDesignerForm.ToggleFrames(View: TfrView; Data: PtrInt);
begin
if View.Frames<>[] then
View.Frames := []
else
View.Frames := [frbLeft, frbTop, frbRight, frbBottom];
if SelNum=1 then
LastFrames := View.Frames;
end;
procedure TfrDesignerForm.DuplicateView(View: TfrView; Data: PtrInt);
begin
end;
{$endif}
{$HINTS ON}