■■■■■■150分求简单问题■■■■■■(150分)

好

好客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #1

请问大家怎样才能制作渐变效果：（Delphi系统）

大家一定用过Office 2003，是2003!他能随着系统颜色的改变来改变自己的渐变颜色，包括标题、工具栏、状态栏等等。我要制作这样的效果，请问如何制作呢？

标题、状态栏从上至下的白色到系统颜色的渐变。工具栏和工作区（是一个Panel）是从左到右系统颜色到白色的渐变。

系统颜色指系统配置的颜色，例如Windows XP的颜色是蓝色，经典色是灰色，就是通过这样来渐变的。谢谢大家了，150分奉上。

另外提供源代码，谢谢。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #2

自己写程序，我记的Turbo power 有一个类似的控件，

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #3

我弄过类似色彩渐变标题栏控件，我记得还有源代码的，
你需要的话留个email，我给你找找。
至于渐变效果，简单的form色彩渐变给你一个
算法,自己改
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
Dct:TRect;
begin
j:=self.Height;
for i:=0 to 255 do
begin
canvas.Brush.Color:=rgb(255,i,i);
dct:=rect(i*2,0,(i+1)*2,j);
canvas.FillRect(dct);
end;
end;

 

好

好客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #4

好的，不过系统颜色如何选取呢？（用Delphi代码）
E-Mail：Hospitality110@msn.com谢谢

 

S

samboy111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #5

界面毕竟是界面，用户关心的是实用价值。
在操作系统以外弄这些很费资源的，不是很推荐。

 

好

好客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #6

可是我需要这种效果……

 

好

好客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-07

• #7

顶

 

S

sars1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-08

• #8

study

 

W

wanxliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-08

• #9

让你所用控件的颜色为你想要的颜色就行了.在控件属性里设置.

 

好

好客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-19

• #10

没有人会？

 

A

alac

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-19

• #11

用API函数，GetSysColor(nIndex: integer)，nIndex 为的值为
COLOR_MENUTEXT 菜单颜色
COLOR_SCROLLBAR 滚动条
COLOR_WINDOW 窗口背景
COLOR_WINDOWTEXT 窗口文字
。。。。。。。。。。。。。。。。

 

M

masoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-23

• #12

顶