Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

FormHeader   Найти похожие ветки 

← →
aaZ ©   (2002-05-05 15:43) [0]

Люди! Такой вопрос: как округлить углы заголовка формы (как в ХР)?
Я, в принципе, ставил BorderStyle:=bsNone, и сам вставлял изображения заголовка и кнопок, но в таком случае по бокам заголовка остаются белые края ( http://moldovacc.md/ashamray/proga.jpg). Подскажите плиз, что можно сделать?

---

← →
Song ©   (2002-05-05 18:03) [1]


procedure MakeRounded(Control: TWinControl);
var
R: TRect;
Rgn: HRGN;
begin
with Control do
begin
R := ClientRect;
rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
Perform(EM_GETRECT, 0, lParam(@r));
InflateRect(r, - 5, - 5);
Perform(EM_SETRECTNP, 0, lParam(@r));
SetWindowRgn(Handle, rgn, True);
Invalidate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// TMemo:
Memo1.BorderStyle := bsNone;
MakeRounded(Memo1);
// TEdit:
Edit2.BorderStyle := bsNone;
MakeRounded(Edit2);
// TPanel:
MakeRounded(Panel1);
// TStaticText:
MakeRounded(StaticText1);
// TForm
Form1.BorderStyle := bsNone;
MakeRounded(Form1);
end;


---

← →
aaZ ©   (2002-05-05 18:57) [2]

Спасибо, отлично работает.

---

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

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

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