Скачать: CL | DM;

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

← →
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]

Agent Smith © (06.06.02 15:15)

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

---

← →
Agent Smith ©   (2002-06-06 18:04) [9]

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

---

← →
Agent Smith ©   (2002-06-07 07:19) [10]

И тишина...

---

← →
MBo ©   (2002-06-07 07:30) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c