Unit 'ovcdrag' Package
[Overview][Classes][Index] [#pl_orpheus]

TOvcDragShow

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: ovcdrag.pas line 44

type TOvcDragShow = class(TObject)

protected

  dStretchBltMode: Integer;

  

  dMemDC: hDC;

  

  dSMemDC: hDC;

  

  dDstDC: hDC;

  

  dSaveDC: hDC;

  

  dSaveBmp: hBITMAP;

  

  dMemBmp: hBITMAP;

  

  dSMemBmp: hBITMAP;

  

  dcrText: TColorRef;

  

  dcrBack: TColorRef;

  

  dRect: TRect;

  

  dSize: TPoint;

  

  dSystemPalette16: hPalette;

  

  dOldPal: hPalette;

  

  Bitmap: TBitmap;

  

  dMask: TBitmap;

  

  DeltaX: Integer;

  

  DeltaY: Integer;

  

  dDragging: Boolean;

  

  dHaveOriginal: Boolean;

  

  procedure ilDragDraw;

  

  procedure ilRestoreOriginal;

  

  procedure ilSaveOriginal;

  

public

  constructor Create();

  

  destructor Destroy; override;

  

  procedure DragMove();

  

  procedure HideDragImage;

  

  procedure ShowDragImage;

  

end;

Inheritance

TOvcDragShow

  

|

TObject



CT Web help

CodeTyphon Studio