Текущий архив: 2003.11.27;
Скачать: 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 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
