Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
3-89780
IronHawk
2003-11-06 15:18
2003.11.27
Приветствую Мастеров! Как через ADO в Delphi работать с записями:


4-90181
stainer
2003-10-05 14:45
2003.11.27
иконка 16 на 16


3-89790
jonni
2003-11-05 18:57
2003.11.27
kak dobavit pole v tablice?


14-90121
Agent[007]
2003-11-02 12:53
2003.11.27
Точка и треугольник. (В ПРОСтРАНСТВЕ)


1-89922
Adoon
2003-11-18 17:52
2003.11.27
Формат RTF и JPG