Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Создание своих VCL 


Andre V.   (2002-04-08 10:24) [0]

Различие в design и run-time режимах
Свой визуальный компонент (от TRadioButton, TBitBtn и т.д.) в режиме design отображается нормально, в режиме run-time:
1. не отображается
2. отображается неправильно
3. наследуемые методы не вызываются
4. свои собственные методы (public) не вызываются
ЧТО ЭТО ТАКОЕ, С ЧЕМ ЕГО ЕДЯТ
P.S. Некоторые классы из того же файла работают корректно



MBo   (2002-04-08 13:33) [1]

вопросы неконкретные.



Andre V.   (2002-04-09 10:42) [2]

Уточняю: класс, наследник TBitBtn. Вставляю ейный компонент в форму. Ну его естественно видно, проперты разные у него есть,
установить их можно, поменять и т. д.
Компилирую, линкую, запускаю. Нет моего компонента. Его вооще
не видно. ГДЕ WMPaint?
Аналогично - наследник TRadioButton. Вызывается WMPaint для
TRadioButton.
КОНКРЕТНО:
написано:


private
{ Private declarations }
...
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
...

далее

procedure TSSRadioButton.WMPaint( Var Message : TWMPaint );
Var
AControlState : TControlState;
begin
AControlState := ControlState;
Include( AControlState, csCustomPaint );
ControlState := AControlState;
inherited;
Exclude( AControlState, csCustomPaint );
ControlState := AControlState;
end;

procedure TSSRadioButton.PaintWindow( DC : HDC );
begin
FCanvas.Lock;
try
FCanvas.Handle := DC;
try
TControlCanvas(FCanvas).UpdateTextFlags;
Paint;
finally
FCanvas.Handle := 0;
end;
finally
FCanvas.Unlock;
end;
end;

procedure TSSRadioButton.Paint;
begin
... рисуются феньки...
end;


Вот этих самых фенек и не видно в режиме run-time



Игорь Шевченко   (2002-04-09 10:48) [3]

День добрый,

Отладчик в руки - и вперед!

С уважением,



Andre V.   (2002-04-09 11:15) [4]

Г-ну Шевченко!
Че отлаживать то?
На мой код не выходит. А отлаживать саму Винду???

С уважением,



Игорь Шевченко   (2002-04-09 11:20) [5]

День добрый, Andre V,

Отлаживать, начиная с TSSRadioButton.WMPaint, TWinControl.WMDrawItem, TWinControl.WMMeasureItem
Для этого создавать свой компонент динамически в run-time и поэтапно смотреть, какие сообщения он вообще обрабатывает.
Кстати, CNDrawItem компоненту от TBitBtn приходит ?

С уважением,




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.07 c
1-69920           OrlovSergei           2002-04-09 11:32  2002.04.22  
Как сохранить нарисованное?


3-69663           Kostia                2002-04-01 17:33  2002.04.22  
Народ, подскажите, какая БД


14-69968          B@Nt                  2002-03-11 11:45  2002.04.22  
Где мона слить книгу по Базам?


1-69927           Dimaiv                2002-04-09 19:58  2002.04.22  
Где ошибка вот в таком коде


3-69747           совсем Новенький      2002-04-02 13:44  2002.04.22  
Базы даных