如何在Canvas上画一条波浪线 ( 积分: 100 )

L

ljwwjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #1

如何用在Canvas上画一条波浪线,能提供代码研究更好!

 

L

ljwwjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #2

如何用在Canvas上画一条波浪线,能提供代码研究更好!

 

L

llfirst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #3

帮助里有例子。
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('c:/temp/blx.bmp'); // 用波浪线图片做画刷
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,100));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;
另外一种方法按波浪线点阵画点。

 

L

lcd_733

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #4

正弦三角函数y := sin(x)
var
x, y: Integer;
begin
with Canvas do
begin
MoveTo(1, 100);
for x := 1 to 300 do
begin
y := Round(sin(x)) + 100;
LineTo(x, y);
end;
end;
end;

 

L

ljwwjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #5

to llfirst :你好
因为要实现波浪线的颜色可定义,能否提供按波浪线点阵画点

 

L

ljwwjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-14

• #6

接受答案了.