unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
// TPanel의 Canvas 프로퍼티는 protected 입니다
// 아래는 이런 프로퍼티를 사용할 수 있도록 expose 시키는 방법입니다
TExposedPanel = class(TCustomPanel);
type
TGradientMode = (gmVertical, gmHorizontal);
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure GradientPaint(Canvas: TCanvas; X, Y: Integer; GradientMode: TGradientMode);
var
Row, Ht: Word ;
begin
if GradientMode = gmVertical then // 수직방향 Gradient
begin
Ht := (Y + 255) div 256;
for Row := 0 to 255 do
with Canvas do
begin
Brush.Color := RGB(0, 0, Row); // Blue 에 대한 Gradient
FillRect(Rect(0, Row * Ht, X, (Row + 1) * Ht));
end;
end
else if GradientMode = gmHorizontal then // 수평방향 Gradient
begin
Ht := (X + 255) div 256 ;
for Row := 0 to 255 do
with Canvas do
begin
Brush.Color := RGB(Row, 0, 0); // Red 에 대한 Gradient
FillRect(Rect(Row * Ht, 0, (Row + 1) * Ht, Y));
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Image1은 수직방향으로 Gradient
GradientPaint(Image1.Canvas, Image1.Width, Image1.Height, gmVertical);
// Panel1은 수평방향으로 Gradient
// TExposedPanel 는 type 선언 부분을 보세요
GradientPaint(TExposedPanel(Panel1).Canvas, Panel1.Width, Panel1.Height, gmHorizontal);
end;
end. |
|
