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

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

← →
DimaK ©   (2003-11-16 17:45) [0]

Ребята, как можно убрать дурацкую рамку (оконтовку) в ProgressBar.

---

← →
DimaK ©   (2003-11-16 21:29) [1]

Ау!

---

← →
Zew ©   (2003-11-16 21:34) [2]

http://delphiworld.narod.ru/base/progressbar_without_border.html

---

← →
DimaK ©   (2003-11-16 22:47) [3]

Спасибо, но это я видел. Там пример компонента, я уже мучался, пытаясь вытащить оттуда нужный код, но что-то никак :(
Может кто поможет? заранее благодарен!

---

← →
isaak   (2003-11-16 22:53) [4]

Что никак?

---

← →
DimaK ©   (2003-11-17 00:30) [5]

Я так понял что это главное свойство:

procedure TNProgressBar.WMNCPAINT(var Msg: TMessage);
var
DC: HDC;
RC: TRect;
begin
if ShowFrame then
begin
inherited;
Invalidate;
end
else
begin
DC := GetWindowDC(Handle);
try
Windows.GetClientRect(Handle, RC);
with RC do
begin
Inc(Right, 2);
Inc(Bottom, 2);
end;
Windows.FillRect(DC, RC, Brush.Handle);
finally
ReleaseDC(Handle, DC);
end;
end;
end;

но как его написать отдельно (не используя лишние компоненты)

---

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

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



Память: 0.45 MB
Время: 0.028 c