И снова про Фотошоп

← →
Agent Smith © (2002-06-06 09:42) [0]

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

← →
Agent Smith © (2002-06-06 10:34) [1]

Идеи есть?

← →
Agent Smith © (2002-06-06 13:01) [2]

Ну хоть что-нибудь напишите!

← →
MBo © (2002-06-06 13:13) [3]

GetSysColor(COLOR_ACTIVECAPTION)

← →
MBo © (2002-06-06 13:15) [4]

ааааа ;)
clActiveCaption

← →
Agent Smith © (2002-06-06 14:26) [5]

MBo, спасибо, clActiveCaption-то, что нужно!
А как на счет закладок?

← →
MBo © (2002-06-06 14:40) [6]

Я не помню, какие они

← →
Agent Smith © (2002-06-06 15:15) [7]

Плоские, в основном прамоугольные, только правая сторона-треугольник.

← →
Игорь Шевченко © (2002-06-06 15:18) [8]

TTabSet чем то напоминает, но все равно не то. А рисовать страшно лень. Да и опыта в этом деле у меня мало.

И тишина...

рисовать совсем нетрудно
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;

И снова про Фотошоп Найти похожие ветки