A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
不行的，我已经说过……
Z
zyazhou
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TMainForm.DrawLine(TopLeft,BottomRight:TPoint; AMode:TPenMode; AColor:TColor; AWidth:Integer);
begin
with Canvas do
begin
Pen.Mode:=AMode;
Pen.Color:= AColor;
Pen.Width:= AWidth;
MoveTo(TopLeft.X, TopLeft.Y);
LineTo(BottomRight.X, BottomRight.Y);
end;
end;
begin
with Canvas do
begin
Pen.Mode:=AMode;
Pen.Color:= AColor;
Pen.Width:= AWidth;
MoveTo(TopLeft.X, TopLeft.Y);
LineTo(BottomRight.X, BottomRight.Y);
end;
end;
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
看来，我只有自己想办法啦……
娃
娃娃
Unregistered / Unconfirmed
GUEST, unregistred user!
真是不知道你想做什么，Delphi毕竟只是一个编程的工具，
不是画图啊，你以为，不过一条线的话，可以用Additional
面板上的Bevel控件来实现。
不是画图啊，你以为，不过一条线的话，可以用Additional
面板上的Bevel控件来实现。
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
你想知道我要干吗？？？？？？？？？？？？？？？？？？？？？
先去看看别的可视化编程语言吧～～～～～～～～～～～～～～～～～～～[8D][8D]
先去看看别的可视化编程语言吧～～～～～～～～～～～～～～～～～～～[8D][8D]
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
crazy??[
]
]
娃
娃娃
Unregistered / Unconfirmed
GUEST, unregistred user!
莫名奇妙，我觉得这里的每一种方法都可以画一条线，你为什么不舍得
说说你究竟需要的是什么呢？
既然别的可视化编程工具好，你还用Delphi干吗？
说说你究竟需要的是什么呢？
既然别的可视化编程工具好，你还用Delphi干吗？
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
算啦，我自己编控件好啦～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
舞
舞雪
Unregistered / Unconfirmed
GUEST, unregistred user!
晕~~~是啊！！上面的一些方法都可以画出直线啊！！
自己写控件也行啊，但还是得写代码的吧。直线不会无缘无故的出现滴~~~
自己写控件也行啊，但还是得写代码的吧。直线不会无缘无故的出现滴~~~
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
晕~~~~~~~~~~~~
娃
娃娃
Unregistered / Unconfirmed
GUEST, unregistred user!
其实我真的不明白你的意思，我甚至感觉你有点象是来捣乱的！
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
算啦
M
mymy
Unregistered / Unconfirmed
GUEST, unregistred user!
C:/Program Files/Borland/Delphi6/Demos/Doc/graphic.
你是不是想要那种用在mousedown,mouseup中写程序的那种。
你是不是想要那种用在mousedown,mouseup中写程序的那种。
M
mymy
Unregistered / Unconfirmed
GUEST, unregistred user!
写错了。
C:/Program Files/Borland/Delphi6/Demos/Doc/graphex.
我也是照它画的。
C:/Program Files/Borland/Delphi6/Demos/Doc/graphex.
我也是照它画的。
Y
yuki2003
Unregistered / Unconfirmed
GUEST, unregistred user!
是在GetDc(0);上做图吗
procedure TForm1.Button1Click(Sender: TObject);
var
dc: hdc;
DeskCanvas: TCanvas;
i, j: Integer;
begin
dc := GetDc(0);
DeskCanvas := TCanvas.Create;
DeskCanvas.Handle := dc;
DeskCanvas.Pen.Color := clRed;
DeskCanvas.Pen.Width := 5;
j := 0;
while j < Screen.Height - 30 do
begin
MoveToEx(Dc, 0, j, nil);
LineTo(Dc, Screen.Width, Screen.Height - 30);
j := j + 3;
end;
ReleaseDc(0, Dc);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dc: hdc;
DeskCanvas: TCanvas;
i, j: Integer;
begin
dc := GetDc(0);
DeskCanvas := TCanvas.Create;
DeskCanvas.Handle := dc;
DeskCanvas.Pen.Color := clRed;
DeskCanvas.Pen.Width := 5;
j := 0;
while j < Screen.Height - 30 do
begin
MoveToEx(Dc, 0, j, nil);
LineTo(Dc, Screen.Width, Screen.Height - 30);
j := j + 3;
end;
ReleaseDc(0, Dc);
end;
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位大侠的关注～～[
]
]