Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

И снова про Фотошоп [D6, Win95/98, WinME, Win2k, WinXP]

Agent Smith © (2002-06-06 09:42:00)
Помните предыдущую тему? Так вот. Нарисовал свою форму, свои заголовки, объемность и т.д. Теперь думаю, как задать цвет верхней панели (за которую форму можно перетаскивать) в соответствии с установленной в Винде схемой. Градиент не обязательно, достаточно как в сабж (верхняя панель такого цвета, как и первый из двух цветов в настройках Винды для заголовка активого окна). Думаю идея понятна. Может кто подкинет идейку?
ЗЫ: Как сделать закладки такой же формы, как на палитре инструментов в сабж? Не подумайте, что я собираюсь копировать сабж, но просто ИМХО большинство его юзали, поэтому его удобно использовать как пример:)

MBo (2002-06-07 07:30:00) [1]
рисовать совсем нетрудно
procedure TForm1.Button1Click(Sender: TObject);
var pt:array[0..3] of tpoint;
i:integer;
x,y:integer;
begin
y:=20;
canvas.Brush.color:=color;
for i:=1 to 3 do begin
x:=i*40;
pt[0].x:=x;
pt[0].y:=y;
pt[1].x:=x+32;
pt[1].y:=y;
pt[2].x:=x+40;
pt[2].y:=y+15;
pt[3].x:=x;
pt[3].y:=y+15;
canvas.Polygon(pt);
canvas.textout(x+2,y+2,"tab"+inttostr(i));
end;
end;

Agent Smith (2002-06-07 07:19:00) [2]
И тишина...

Agent Smith (2002-06-06 18:04:00) [3]
TTabSet чем то напоминает, но все равно не то. А рисовать страшно лень. Да и опыта в этом деле у меня мало.

Игорь Шевченко (2002-06-06 15:18:00) [4]
Agent Smith © (06.06.02 15:15)

Нарисовать не получается ?
Или взять TTabSet из закладки Win 31 палитры компонент ?

Agent Smith (2002-06-06 15:15:00) [5]
Плоские, в основном прамоугольные, только правая сторона-треугольник.

MBo (2002-06-06 14:40:00) [6]
Я не помню, какие они

Agent Smith (2002-06-06 14:26:00) [7]
MBo, спасибо, clActiveCaption-то, что нужно!
А как на счет закладок?

MBo (2002-06-06 13:15:00) [8]
ааааа ;)
clActiveCaption

MBo (2002-06-06 13:13:00) [9]
GetSysColor(COLOR_ACTIVECAPTION)

Agent Smith (2002-06-06 13:01:00) [10]
Ну хоть что-нибудь напишите!

Agent Smith (2002-06-06 10:34:00) [11]
Идеи есть?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »