Class TBI_Loupe (unit bi_ctrls)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

<----------------------------------------------Loupe


Functions

destructor Destroy;


procedure savetofile(s1:string);

bevel1.

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;



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;