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.
myrgb
HSLRange
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).
myrgb = record
r : byte;
g : byte;
b : byte;
end;
HSLRange : integer = 240