B
Bonny
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个mainform的背景上面想加颜色，但是感觉颜色单一不好看，有没有办法让颜色是从上至下的渐变。
谢谢，我好急，各位帮帮我
谢谢，我好急，各位帮帮我
B
Bonny
Unregistered / Unconfirmed
GUEST, unregistred user!
在线等待
弄
弄影
Unregistered / Unconfirmed
GUEST, unregistred user!
在mainform的背景上面加个image不就可以了，
颜色渐变可以在powerpoint里做好，然后存成图片
颜色渐变可以在powerpoint里做好，然后存成图片
Y
yeskert1
Unregistered / Unconfirmed
GUEST, unregistred user!
图形啊！用photoshaop做个颜色渐变的图形作为背景。
S
sun77wind
Unregistered / Unconfirmed
GUEST, unregistred user!
一个简单的方法，用photoshop做一个图片，放一个image来调用，效果一样
B
Bonny
Unregistered / Unconfirmed
GUEST, unregistred user!
这样不是很好吧，这样做一个图片也不小，放在程序里面，那不是程序都很大一个了么
我的意思是能不能通过程序来实现，就像windows的窗口标题那样渐变得
我的意思是能不能通过程序来实现，就像windows的窗口标题那样渐变得
S
sun77wind
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormPaint(Sender: TObject);
var
i:word;
dy,y:real;
begin
dy:=clientheight/256;
y:=0;
for i:=255do
wnto 0do
begin
canvas.brush.color:=$00000000+i*$10000;
canvas.fillrect(rect(0,round
,clientwidth,round(y+dy)));
y:=y+dy;
end;
end;
var
i:word;
dy,y:real;
begin
dy:=clientheight/256;
y:=0;
for i:=255do
wnto 0do
begin
canvas.brush.color:=$00000000+i*$10000;
canvas.fillrect(rect(0,round
,clientwidth,round(y+dy)));y:=y+dy;
end;
end;
C
creation-zy
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormPaint(Sender: TObject);
var
i:Integer;
C1,C2:TColor;
f:Single;
begin
C1:=clBlue;
C2:=clGreen;
with Form1.Canvasdo
for i:=0 to ClientHeightdo
begin
f:=i/ClientHeight;
Pen.Color:=rgb(Round(GetRValue(C1)*f+GetRValue(C2)*(1-f)),
Round(GetGValue(C1)*f+GetGValue(C2)*(1-f)),
Round(GetBValue(C1)*f+GetBValue(C2)*(1-f)));
MoveTo(0,i);
LineTo(ClientWidth,i);
end;
end;
var
i:Integer;
C1,C2:TColor;
f:Single;
begin
C1:=clBlue;
C2:=clGreen;
with Form1.Canvasdo
for i:=0 to ClientHeightdo
begin
f:=i/ClientHeight;
Pen.Color:=rgb(Round(GetRValue(C1)*f+GetRValue(C2)*(1-f)),
Round(GetGValue(C1)*f+GetGValue(C2)*(1-f)),
Round(GetBValue(C1)*f+GetBValue(C2)*(1-f)));
MoveTo(0,i);
LineTo(ClientWidth,i);
end;
end;
C
chur
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormPaint(Sender: TObject);
var
i:word;
dy,y:real;
begin
dy:=clientheight/256;
y:=0;
for i:=255do
wnto 0do
begin
canvas.brush.color:=$00000000+i*$20000;
canvas.fillrect(rect(0,round,clientwidth,round(y+dy)));
y:=y+dy;
end;
end;
var
i:word;
dy,y:real;
begin
dy:=clientheight/256;
y:=0;
for i:=255do
wnto 0do
begin
canvas.brush.color:=$00000000+i*$20000;
canvas.fillrect(rect(0,round
,clientwidth,round(y+dy)));y:=y+dy;
end;
end;
B
Bonny
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
L
life810916
Unregistered / Unconfirmed
GUEST, unregistred user!
上面的方法是好用,但出来是一条一条的,有没有缓和一点的???