请问用什么组件?
或者有什么API函数可以直接作图的?请帮帮我吧,我正在做毕业设计呢,急死我了~~
或者有什么API函数可以直接作图的?请帮帮我吧,我正在做毕业设计呢,急死我了~~
解决方案 »
- 怎么在其他pas文件中修改form1的控件属性?
- 你们凭什么看不起MIS开发?自己做Delphi开发的还看不起Delphi?纳闷。。。。。。
- 如何启动和关闭windows2000?
- 做过三层结构项目的进来灌水啊!!!~~
- 新手求助!(急~~~~)
- 急救!!做一个考试系统!!毕业设计 急等!!
- 傻了,bde怎么连 sql-server 啊??
- 报表问题
- 毕业设计完成了!!!这段时间里,多谢各位给予的帮助!!!谢谢!我把所有的分送给大家!(只有这么多了)
- 如何让一控件在程序运行中,控件大小可以改变?急盼高手解决。
- 请问大家当点击单选框按钮时怎样才能触发OnAction事件处理函数?
- 如何在Delphi中实现FLash文件的播放?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormPaint(Sender: TObject);
var
CenterX,CenterY:integer;
X,Y:integer;
YScale:integer;
i : integer;
Alpha:Real;
begin
CenterX := ClientWidth div 2;
CenterY := ClientHeight div 2;
YScale := CenterY;
for i := - 180 to 180 do
begin
if i = 0 then Alpha := 0
else
Alpha := i * pi / 180;
Y := Round(Sin(Alpha) * YScale);
Canvas.Pixels[CenterX + i,CenterY + Y] := clBlack;
end;
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormPaint(Sender: TObject);
var
CenterX,CenterY:integer;
X,Y:integer;
YScale:integer;
i : integer;
Alpha:Real;
begin
CenterX := ClientWidth div 2;
CenterY := ClientHeight div 2;
YScale := CenterY;
for i := - 180 to 180 do
begin
if i = 0 then Alpha := 0
else
Alpha := i * pi / 180;
Y := Round(Sin(Alpha) * YScale);
Canvas.Pixels[CenterX + i,CenterY + Y] := clBlack;
end;
end;end.
huh,I find that TeeChart may be the most appropriate component to display waving data...
Thank you for your answer. : )