Unit myOle

MyOle ver. 0.90 Author: Matej Trampus, Slovenija E-MAIL: - Matej.Trampus@kiss.uni-lj.si See readme.txt for details. //

Classes

TDelphiOle -
TDelphiOleClass -
TDropTarget -
TMyOle -
TMyPersistStorage - IPersistStorage interface } // TMyPersistStorage can be only used as part of another object.
TViewObject -

Functions

HimetricToPixels - Convert point from himetric to pixels } // from oleCtnrs.
LastAdviseChange - for HiMetricToPixel
PixelsToHimetric - from oleCtnrs.

Types

Constants

Variables

_LastCreatedMyOle
_TMyOleCount


Functions


function HimetricToPixels(const P: TPoint): TPoint;

Convert point from himetric to pixels } // from oleCtnrs.pas

procedure LastAdviseChange;

for HiMetricToPixel

function PixelsToHimetric(const P: TPoint): TPoint;

from oleCtnrs.pas

Convert point from pixels to himetric } // from oleCtnrs.pas


Types


Constants


Variables

_LastCreatedMyOle : TMyOle

_TMyOleCount : integer

from oleCtnrs.pas