Unit TrCtrls

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

Classes

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

Functions

AddHook - ------------------------------------------------------------------
ControlTransPaint - --------------------------------------------
ControlTransPaintEX -
GetTransparentColor - ---------------------------------------------------------------------
IsTransControl - -----------------------------------------------------------------------
Max - ------------------------------------------------------
Min - ------------------------------------------------------
Register - ---------------------------------------------------------

-------------------------------------------------------------
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;

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

Function Max(A, B: integer): integer;

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

Function Min(A, B: integer): integer;

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

Procedure Register;

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

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


Procedure RegisterTransControl(W: TWinControlClass);

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

Procedure RemoveHook(o: TWinControl);

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

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

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

Procedure TransparentBitBlt(sourcedc, destdc: THandle; arect: TRect; aorigin: TPoint; atranscolor: longint);

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

Types


Constants

DDF_HALFTONE = $1000

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

WM_UPDTRANS = WM_USER + 2


Variables