Unit bi_procs

Classes

Functions

booltoint - btnshadow
CMYKTORGB -
DrawBitmapRectTransparent -
DrawBitmapTransparent - Some of the code here was adapted from code found in the Microsoft Knowledge Base
DrawPopupMark - I don't want the button spend hours for this when repainting.
getcolorcaps -
HSLRangeToRGB -
HSLtoRGB -
myDrawButtonFace -
mygrayedbmp -
RGBTOCMYK - ************************************************************************}
RGBtoHSL -
RGBtoHSLRange - it's actually undefined
StretchBitmapRectTransparent - TBitmap.

Types

myrgb

Constants

Variables

HSLRange


Functions


function booltoint(const b1:boolean):integer;

btnshadow

procedure CMYKTORGB(C : byte; M: byte; Y : byte; K : byte; var R : byte; var G : byte; var B : byte);


procedure DrawBitmapRectTransparent(Dest: TCanvas; XOrigin, YOrigin: Integer; Rect: TRect; Bitmap: TBitmap; TransparentColor: TColor);


procedure DrawBitmapTransparent(Dest: TCanvas; XOrigin, YOrigin: Integer; Bitmap: TBitmap; TransparentColor: TColor);

Some of the code here was adapted from code found in the Microsoft Knowledge Base

procedure DrawPopupMark(theCanvas: TCanvas; x, y: Integer);

I don't want the button spend hours for this when repainting. Anyway, only very dull people will use 100*100 glyphs, hopefully :-

function getcolorcaps:byte;


procedure HSLRangeToRGB (H, S, L : integer;var r,g,b:byte);


procedure HSLtoRGB (H, S, L: double;var r,g,b:byte);


procedure myDrawButtonFace(Canvas: TCanvas; const Client: TRect; BevelWidth: Integer; IsDown:boolean;c1,c2:tcolor);


procedure mygrayedbmp(var bmp1:tbitmap;const c1,c2:tcolor);


procedure RGBTOCMYK(R : byte; G : byte; B : byte; var C : byte; var M : byte; var Y : byte; var K : byte);

************************************************************************}

procedure RGBtoHSL (r,g,b:byte; var H, S, L : double);


procedure RGBtoHSLRange (r,g,b:byte; var H, S, L : byte);

it's actually undefined

procedure StretchBitmapRectTransparent(Dest: TCanvas; X, Y, W, H: Integer; Rect: TRect; Bitmap: TBitmap; TransparentColor: TColor);

TBitmap.TransparentColor property return TColor value equal } { to (Bitmap.Canvas.Pixels[0, Height - 1] or TransparentMask).

Types


myrgb = record
r : byte;
g : byte;
b : byte;
end;

Constants


Variables

HSLRange : integer = 240