| Class TBI_Loupe (unit bi_ctrls) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure savetofile(s1:string);
procedure paint;
procedure paintcrosshairs;
procedure resized;
procedure setactive(value:boolean);
procedure setbeveli(value:tpanelbevel);
procedure setbevelo(value:tpanelbevel);
procedure setbevelwidth(value:tbevelwidth);
procedure setdesign(value:boolean);
procedure setinterval(value:integer);
procedure setzoom(value:double);
procedure _mypaint(sender:tobject);| Properties |
property Active : boolean
property Align :
property BevelInner : tpanelbevel
property BevelOuter : tpanelbevel
property Bevelwidth : tbevelwidth
property DrawDesigning : boolean
property Interval : integer
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property ZoomLevel : double| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
DC : hdc;
dcpuffer : hdc;
factive : boolean;
fbeveli : tpanelbevel;
fbevelo : tpanelbevel;
fbevelwidth : tbevelwidth;
fdesign : boolean;
finterval : integer;
fzoom : double;
mybuffer : tbitmap;
puffer : hdc;
x : integer;
y : integer;
_timer : tbi_timer;| Constructors |
constructor Create(AOwner: TComponent);<----------------------------------------------Loupe
| Functions |
destructor Destroy;
procedure savetofile(s1:string);bevel1.left:=(image1.width div 2)-1; bevel1.top:=(image1.height div 2)-10; bevel2.left:=(image1.width div 2)-10; bevel2.top:=(image1.height div 2)-1;
procedure paint;
procedure paintcrosshairs;
procedure resized;
procedure setactive(value:boolean);
procedure setbeveli(value:tpanelbevel);
procedure setbevelo(value:tpanelbevel);
procedure setbevelwidth(value:tbevelwidth);
procedure setdesign(value:boolean);
procedure setinterval(value:integer);
procedure setzoom(value:double);paintcrosshairs(self);
procedure _mypaint(sender:tobject);| Properties |
property Active : boolean
property Align :
property BevelInner : tpanelbevel
property BevelOuter : tpanelbevel
property Bevelwidth : tbevelwidth
property DrawDesigning : boolean
property Interval : integer
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
property ZoomLevel : double| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
DC : hdc;
dcpuffer : hdc;
factive : boolean;
fbeveli : tpanelbevel;
fbevelo : tpanelbevel;
fbevelwidth : tbevelwidth;
fdesign : boolean;
finterval : integer;
fzoom : double;
mybuffer : tbitmap;
puffer : hdc;
x : integer;
y : integer;
_timer : tbi_timer;