NVIAC_Basis
[Previous] [Main] [Next]

ico01.jpg

TNVIAC basis - supporst the basis interface and form skinning

bit03.jpg
Main Properties :

property FormBitmap : TBitmap
for skinning of form

property FormBitmapApply : TNVIAC_Bitmap_Apply

TNVIAC_Bitmap_Apply = (nviacbaTile,nviacbaCenter,nviacbaStretch,nviacbaCenterTile);
for type of skinning

property GridSizeDesign : byte;
size of design mode grid

property GridColor : Tcolor
color of design grid

property GridEnabled : Boolean
enable/disable grid at design time

Interfaces
INVIAC_TIMER = interface(IUnknown)
['{EFDDB480-59B3-11D5-9C33-F82D3A0AE9B4}']
procedure ReintroduceTimerBasis(ANewBasis : TNVIAC_BASIS);
procedure TryRegisterTimer;
procedure TryUnregisterTimer;
procedure TimerTick(ANumberTick : Integer);//send the tick
end;
INVIAC_SEMITRANSPARENCE = interface(IUnknown)//Any control that support this interface will semitransparent...
['{EFDDB481-59B3-11D5-9C33-F82D3A0AE9B4}']
procedure ReintroduceBasis(ANewBasis : TNVIAC_BASIS);//Get new basis if it changes
procedure TryRegisterSemiQueque;//Register in semi queue
procedure TryUnregisterSemiQueque;//Unregister
function GetFullBitmap: TBitmap;//This is full bitmap that we can look at form
function GetCurrentSize : TSize;//Size of control
function GetCurrentBitmap: TBitmap;//Bitmap to process semi
function GetCurrentOffset: TPoint;//position of control by form client rect
function GetCurrentRegion: HRGN;//Region of control trimming (where to paint - will painted only here on back)
function GetSemiClass : Byte;//1 - Alpha,2 - bitmap
function GetAlpha : Byte;//alpha
function GetAlphaBitmap : TBitmap;//alpha bitmap sizes=Current Bitmap
procedure ContinueBitmap;//Requiring to draw the bitmap after semi to full image
procedure TryPaint;//Requiring to redraw the control (Repaint - usually, some complex for Controls having others controls)
procedure SetCurrRect(ARect : TRect);//This is setting of rect where and only where you can draw Current/Continue bitmap
function GetSemiControl: TControl;//Must Return someself t.i. -> Result:=Self;
function IsVisible: Boolean;//MustReturn Visibility of item -> Result:=Self.Visible;
end;