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

lazreport: less notes

Browse Source 
git-svn-id: trunk@36418 -
This commit is contained in:
mattias 2012-03-29 08:52:20 +00:00
parent ea3f4edab2
commit 26d472e206
8 changed files with 24 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazreport/source/lr_barc.pas
View File

@ -95,7 +95,7 @@ type
procedure SaveToStream(Stream: TStream); override;
procedure Draw(aCanvas: TCanvas); override;
procedure Print(Stream: TStream); override;
procedure DefinePopupMenu(Popup: TPopupMenu); override;
procedure DefinePopupMenu({%H-}Popup: TPopupMenu); override;
procedure LoadFromXML(XML: TLrXMLConfig; const Path: String); override;
procedure SaveToXML(XML: TLrXMLConfig; const Path: String); override;
@ -133,7 +133,7 @@ type
RB2: TRadioButton;
RB3: TRadioButton;
RB4: TRadioButton;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure VarBtnClick(Sender: TObject);
procedure DBBtnClick(Sender: TObject);
@ -191,7 +191,7 @@ const
{$HINTS OFF}
function isNumeric(St: String): Boolean;
var
R: Double;
{%H-}R: Double;
E: Integer;
begin
Val(St, R, E);
@ -753,14 +753,9 @@ begin
end;
initialization
// frBarCodeForm:=nil;
if not assigned(frBarCodeForm) {and not (csDesigning in ComponentState)} then
begin
frBarCodeForm := TfrBarCodeForm.Create(nil);
frRegisterObject(TfrBarCodeView, frBarCodeForm.Image1.Picture.Bitmap,
sInsBarcode, frBarCodeForm);
end;
frBarCodeForm := TfrBarCodeForm.Create(nil);
frRegisterObject(TfrBarCodeView, frBarCodeForm.Image1.Picture.Bitmap,
sInsBarcode, frBarCodeForm);
finalization
if Assigned(frBarCodeForm) then
frBarCodeForm.Free;

2
components/lazreport/source/lr_color.pas
View File

@ -27,7 +27,7 @@ type
FOtherBtn: TSpeedButton;
FOnColorSelected: TNotifyEvent;
procedure ButtonClick(Sender: TObject);
procedure SetColor(Value: TColor);
procedure SetColor(Value: TColor); reintroduce;
public
constructor Create(AOwner: TComponent); override;
property Color: TColor read FColor write SetColor;

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

@ -164,14 +164,14 @@ type
procedure DrawDialog;
procedure MDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MUp(Sender: TObject; Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure MMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure CMMouseLeave(var Message: TLMessage); message CM_MOUSELEAVE;
procedure CMMouseLeave(var {%H-}Message: TLMessage); message CM_MOUSELEAVE;
procedure DClick(Sender: TObject);
procedure MoveResize(Kx,Ky:Integer; UseFrames,AResize: boolean);
protected
procedure Paint; override;
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMEraseBkgnd(var {%H-}Message: TLMEraseBkgnd); message LM_ERASEBKGND;
public
constructor Create(AOwner: TComponent); override;
@ -522,7 +522,7 @@ type
procedure GetDefaultSize(var dx, dy: Integer);
function SelStatus: TfrSelectionStatus;
procedure UpdScrollbars;
procedure InsertFieldsFormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure InsertFieldsFormCloseQuery(Sender: TObject; var {%H-}CanClose: boolean);
procedure InsertDbFields;
{$ifdef sbod}
procedure DrawStatusPanel(const ACanvas:TCanvas; const rect: TRect);
@ -552,7 +552,7 @@ type
procedure ShowMemoEditor;
procedure ShowEditor;
procedure RedrawPage; override;
procedure OnModify(sender: TObject);
procedure OnModify({%H-}sender: TObject);
function PointsToUnits(x: Integer): Double; override;
function UnitsToPoints(x: Double): Integer; override;
procedure MoveObjects(dx, dy: Integer; aResize: Boolean);
@ -1383,7 +1383,7 @@ begin
begin
DrawPage(dmSelection);
Down := False;
GetCursorPos(p);
GetCursorPos(p{%H-});
//FDesigner.Popup1Popup(nil);
FDesigner.Popup1.PopUp(p.X,p.Y);
@ -2275,9 +2275,9 @@ end;
function EnumFontsProc(
var LogFont: TEnumLogFontEx;
var Metric: TNewTextMetricEx;
var {%H-}Metric: TNewTextMetricEx;
FontType: Longint;
Data: LParam):LongInt; stdcall;
{%H-}Data: LParam):LongInt; stdcall;
var
S: String;
begin
@ -3669,7 +3669,6 @@ end;
procedure TfrDesignerForm.DuplicateView(View: TfrView; Data: PtrInt);
var
DeltaX,DeltaY: Integer;
t: TfrView;
begin
// check if view is unique instance band kind and if there is already one

6
components/lazreport/source/lr_dopt.pas
View File

@ -56,8 +56,8 @@ type
TabSheet2: TTabSheet;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure ListBox1DrawItem({%H-}Control: TWinControl; Index: Integer;
ARect: TRect; {%H-}State: TOwnerDrawState);
private
{ Private declarations }
public
@ -108,8 +108,6 @@ end;
procedure TfrDocOptForm.ListBox1DrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
var
ImgRect:TRect;
begin
ListBox1.Canvas.FillRect(ARect); { clear the rectangle }
if ListBox1.Items.Count > Index then

6
components/lazreport/source/lr_flds.pas
View File

@ -33,10 +33,10 @@ type
procedure FormDeactivate(Sender: TObject);
procedure ValListDblClick(Sender: TObject);
procedure ValListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ValListSelectionChange(Sender: TObject; User: boolean);
{%H-}Shift: TShiftState);
procedure ValListSelectionChange(Sender: TObject; {%H-}User: boolean);
private
{ Private declarations }
procedure FillValCombo;

2
components/lazreport/source/lr_newrp.pas
View File

@ -17,7 +17,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources,
Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls,ExtCtrls, BarChart, ButtonPanel,
Buttons, StdCtrls,ExtCtrls, ButtonPanel,
LR_Const;
type

4
components/lazreport/source/lr_var.pas
View File

@ -31,13 +31,13 @@ type
Label1: TLabel;
procedure ValListDblClick(Sender: TObject);
procedure ValListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
procedure ValComboClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
private
{ Private declarations }
function CurVal: String;

7
components/lazreport/source/lr_view.pas
View File

@ -211,10 +211,6 @@ type
var
LastScale : Double = 1;
LastScaleMode : TfrScaleMode = mdNone;
CurPreview : TfrPreviewForm;
RecordNum : Integer;
{----------------------------------------------------------------------------}
constructor TfrPreview.Create(AOwner: TComponent);
begin
@ -1274,8 +1270,7 @@ begin
RedrawAll;
end;
type
THackBtn = class(TBitBtn);
//type THackBtn = class(TBitBtn);
procedure TfrPreviewForm.HelpBtnClick(Sender: TObject);
begin