Unit TrCtrls

************************************************} { } { Transparent Controls } { Copyright (c) 1997,1998 S.Kurinny & S.Kostinsky } { } {

Classes

TCustomTrCheckBox -
TCustomTrGroupBox -
TCustomTrRadioGroup -
TTransObject -
TTrCheckBox - ---------------------------------------------------------
TTrGroupBox -
TTrRadioButton -
TTrRadioGroup -
TWinControlClass - this message is called by hook procedure when transparent control should be updated

Functions

AddHook - ------------------------------------------------------------------
ControlTransPaint - --------------------------------------------
ControlTransPaintEX -
GetTransparentColor - ---------------------------------------------------------} {---------------------------------------------------------------------
IsTransControl - -----------------------------------------------------------------------
RegisterTransControl - -----------------------------------------------------------------------
RemoveHook - ------------------------------------------------------------------
SaveBackground - -----------------------------------------------------------------------
TransparentBitBlt - -----------------------------------------------------------------------

Types

Constants

DDF_HALFTONE
WM_UPDTRANS

Variables


Functions


Procedure AddHook(o: TWinControl);

------------------------------------------------------------------

Procedure ControlTransPaint(W: TWinControl; BackDC: THandle; Var FTransparent: Boolean);

--------------------------------------------

Procedure ControlTransPaintEX(W: TWinControl; BackDC: THandle; Var FTransparent: Boolean; X, Y: Integer);


Function GetTransparentColor(dc: THandle; arect: TRect): longint;

---------------------------------------------------------} {---------------------------------------------------------------------

Function IsTransControl(W: TWinControl): Boolean;

-----------------------------------------------------------------------

Procedure RegisterTransControl(W: TWinControlClass);

-----------------------------------------------------------------------

Procedure RemoveHook(o: TWinControl);

------------------------------------------------------------------

Procedure SaveBackground(A: TWinControl; Var FTempDC, FTempBitmap, FOldBitmap: Integer);

-----------------------------------------------------------------------

Procedure TransparentBitBlt(sourcedc, destdc: THandle; arect: TRect; atranscolor: longint; aoriginX,aoriginY: Integer);

-----------------------------------------------------------------------

Types


Constants

DDF_HALFTONE = $1000

---------------------------------------------------------

WM_UPDTRANS = WM_USER + 2


Variables