77 lines
2.4 KiB
ObjectPascal
77 lines
2.4 KiB
ObjectPascal
unit ubgrasamples;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Controls, Graphics,
|
|
BGRABitmapTypes, BGRABitmap, BGRAGradients;
|
|
|
|
{ Drawings }
|
|
procedure DrawFlashPlayerBody(ABitmap: TBGRABitmap);
|
|
procedure DrawFlashPlayerButtonPanel(ABitmap: TBGRABitmap);
|
|
procedure DrawWin7ToolBar(ABitmap: TBGRABitmap; ADir: TAlign);
|
|
|
|
implementation
|
|
|
|
{ Drawings }
|
|
|
|
procedure DrawFlashPlayerBody(ABitmap: TBGRABitmap);
|
|
begin
|
|
with ABitmap do begin
|
|
GradientFill(0,0,Width,Height,BGRA(203,19,23,255),BGRA(110,3,20,255),
|
|
gtLinear,PointF(0,0),PointF(0,Height),dmSet);
|
|
Rectangle(0,0,Width,Height+1,BGRA(0,0,0,215),dmDrawWithTransparency);
|
|
end;
|
|
end;
|
|
|
|
procedure DrawFlashPlayerButtonPanel(ABitmap: TBGRABitmap);
|
|
begin
|
|
with ABitmap do begin
|
|
DrawHorizLine(0,0,Width,BGRA(30,30,30,255));
|
|
DrawHorizLine(0,Height-1,Width,BGRA(62,62,62,255));
|
|
Rectangle(0,1,Width,Height-1,BGRA(91,91,91,255),BGRA(76,76,76,255),dmSet);
|
|
end;
|
|
end;
|
|
|
|
procedure DrawWin7ToolBar(ABitmap: TBGRABitmap; ADir: TAlign);
|
|
var
|
|
tempBmp: TBGRABitmap;
|
|
begin
|
|
tempBmp := DoubleGradientAlphaFill(Rect(0,0,ABitmap.Width,ABitmap.Height),
|
|
BGRA(245,250,255,255),BGRA(230,240,250,255),
|
|
BGRA(220,230,244,255),BGRA(221,233,247,255),
|
|
gdVertical,gdVertical,gdVertical,0.50);
|
|
ABitmap.PutImage(0,0,tempBmp,dmSet);
|
|
tempBmp.Free;
|
|
case ADir of
|
|
alLeft : with ABitmap do begin
|
|
Rectangle(0,0,Width-2,Height,BGRA(255,255,255,100),dmDrawWithTransparency);
|
|
SetVertLine(Width-1,0,Height-1,BGRA(160,175,195,255));
|
|
SetVertLine(Width-2,0,Height-1,BGRA(205,218,234,255));
|
|
end;
|
|
alTop : with ABitmap do begin
|
|
Rectangle(0,0,Width,Height-2,BGRA(255,255,255,100),dmDrawWithTransparency);
|
|
SetHorizLine(0,Height-1,Width-1,BGRA(160,175,195,255));
|
|
SetHorizLine(0,Height-2,Width-1,BGRA(205,218,234,255));
|
|
end;
|
|
alRight : with ABitmap do begin
|
|
Rectangle(2,0,Width,Height,BGRA(255,255,255,100),dmDrawWithTransparency);
|
|
SetVertLine(0,0,Height,BGRA(160,175,195,255));
|
|
SetVertLine(1,0,Height,BGRA(205,218,234,255));
|
|
end;
|
|
alBottom : with ABitmap do begin
|
|
Rectangle(0,2,Width,Height,BGRA(255,255,255,100),dmDrawWithTransparency);
|
|
SetHorizLine(0,0,Width-1,BGRA(160,175,195,255));
|
|
SetHorizLine(0,1,Width-1,BGRA(205,218,234,255));
|
|
end;
|
|
alClient, alCustom, alNone : with ABitmap do begin
|
|
Rectangle(0,0,Width,Height,BGRA(255,255,255,100),dmDrawWithTransparency);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|