Форум программистов [Powered by Invision Power Board]

Код


procedure TMyForm.Button1Click(Sender: TObject);
var
   X,Y,C,I: Integer;
begin
 C:=243;
 I:=10;
 for Y:=111 to 131 do
  begin
   for X:= 101 to 171 do
    Canvas.Pixels[X,Y]:=RGB(C-I,C-I,C);
   if (Y>110)and(Y<117)then Inc(C,2);
   if (Y>=115)and(Y<=121)then Dec(I);
   if (Y>121)and(Y<129)then Inc(I);
   if (Y>119)and(Y<132)then Dec(C,4);
  end;
 Canvas.Pen.Color:=$00CFCFCF;
 Canvas.Brush.Color:=clWhite;
 Canvas.Brush.Style:=bsClear;
 Canvas.RoundRect(100,110,173,133,5,5);
 Canvas.TextOut(118,115,'Button1');
end;

Код


   for X:= 101 to 171 do
    Canvas.Pixels[X,Y]:=RGB(C-I,C-I,C);

Код


     Canvas.Pen.Color:=RGB(C-I,C-I,C);
     Canvas.MoveTo(11,Y);
     Canvas.LineTo(82,Y);

Код


const
    Col: Array[11..31] of TColor=(16248301,16379887,16511473,16643059,16774902,
                                  16775159,16775416,16775673,16578551,16381429,
                                  16183793,15986157,15788521,15590885,15393249,
                                  15195613,14998234,14800855,14603476,14406097,
                                  14208718);
.
.
.
procedure TMyForm.Button1Click(Sender: TObject);
var
   Y: Integer;
begin
 for Y:=11 to 31 do
  begin
   Canvas.Pen.Color:=Col[Y];
   Canvas.MoveTo(11,Y);
   Canvas.LineTo(82,Y);
  end;
 Canvas.Pen.Color:=$00CFCFCF;
 Canvas.Brush.Style:=bsClear;
 Canvas.RoundRect(10,10,83,33,5,5);
 Canvas.TextOut(28,15,'Button1');
end;

Код


SetPixel

Код


 Canvas.Pixels

Код


type
  TGradientMode = (gmHorz, gmVert);

  procedure Gradient(Canvas: TCanvas; const R: TRect; Color1, Color2: TColor; Mode: TGradientMode);

implementation

type
  COLOR16 = Word;

  PTriVertex = ^TTriVertex;
  _TRIVERTEX = packed record
    x: Integer;
    y: Integer;
    Red: COLOR16;
    Green: COLOR16;
    Blue: COLOR16;
    Alpha: COLOR16;
  end;
  TTriVertex = _TRIVERTEX;
  TRIVERTEX = _TRIVERTEX;

function GradientFill(DC: HDC; Vertex: PTriVertex; NumVertex: ULONG; Mesh: Pointer; NumMesh, Mode: ULONG): BOOL; stdcall; external msimg32 name 'GradientFill';

procedure Gradient(Canvas: TCanvas; const R: TRect; Color1, Color2: TColor; Mode: TGradientMode);
const
  uMode: array[TGradientMode] of Integer = (GRADIENT_FILL_RECT_H, GRADIENT_FILL_RECT_V);
var
  vert: array[0..1] of TTriVertex;
  gRect: GRADIENT_RECT;
begin
  vert[0].x      := R.Left;
  vert[0].y      := R.Top;
  with TRGBQuad(ColorToRGB(Color1)) do
  begin
    vert[0].Red    := rgbBlue shl 8;
    vert[0].Green  := rgbGreen shl 8;
    vert[0].Blue   := rgbRed shl 8;
  end;
  vert[0].Alpha  := 0;

  vert[1].x      := R.Right;
  vert[1].y      := R.Bottom;
  with TRGBQuad(ColorToRGB(Color2)) do
  begin
    vert[1].Red    := rgbBlue shl 8;
    vert[1].Green  := rgbGreen shl 8;
    vert[1].Blue   := rgbRed shl 8;
  end;
  vert[1].Alpha  := 0;

  gRect.UpperLeft  := 0;
  gRect.LowerRight := 1;
  GradientFill(Canvas.Handle, @vert, 2, @gRect, 1, uMode[Mode]);
end;