Mojet oshibka? Result:=PCheckMesh(NewPanel(AParent, EdgeStyle));

← →
Delphi5.01 © (2004-04-08 19:42) [0]

Dobroe vrema sutok!
Gde mojno pochitat podrobno chto iz seba predstavlaet KOL komponent. Ia uje prochol statiu, v kotoroi es primer CheckMash esli ia ne oshibaus. Statia, kak ia shitau v statie net tochnih obiasneni, a imenno est primer kak delat na konkretnom primere, no net obiasneni kakaia procedura za chto otvechaet, kogda vizivaetsa.
Vot naprimer mne ne ponatno: Mi obiavlaem novi komponent potomkom TControl, a v metode NewMyControl pishem
Result := PCheckMesh(NewPanel(AParent, EdgeStyle));
Mne ne ponatno esli u nas komponent naslednik TControl, to pochemu pri ego Create mi sozdaiom ekzemplar PPanel, i kak mojno prisvaivat peremennoi tipa TControl znachenie PPanel, etoje dva raznih tipa. Konechno ponatno Chto PPanel eto vsego lish ukazatel, no ukazatel na otlichaiushuiu strukturu ot TControl.
Vopros nomer dva: v VCL mojno bilo perekrivat metodi, takie kak OnPaint, a kak eto sdelat v KOL, ili idei perekritia svoistv v KOL net kak takovoi. A esli est to ne ponatno kuda nado pista
procedure Paint(DC: HDC); override;
tak kak u TControl i u PPanel eti svoistva raznie!
Bolshoe spasibo esli vi udelili mne vashe dragacennoe vrema i prochitali ves etot tekst (da esho v translite!!!).
Mojet ia ne prav, i vso banalno prosto? esli eto tak to pojaluista nameknite!

← →
Delphi5.01 © (2004-04-08 20:48) [1]

Pochemu naprimer ne rabotaet konstrukcia
...
var CheckMesh: TKOLCheckMesh;
...
begin
...
CheckMesh:=NewCheckMesh(form1.Form,esNone,4,4);
CheckMesh.CheckColor:=clRed;
CheckMesh.LineColor:=clBlack;
CheckMesh.Width:=100;
CheckMesh.Height:=100;
CheckMesh.Visible:=True;
...
end;

← →
Gandalf © (2004-04-09 13:08) [2]

1) ты по моему в конец запутался, у нас ведь старая ООП модель, и оперируем мы объектами и указателями в явном виде, отсюда и все следствия.

2) В смысле не работает?

← →
Delphi5.01 © (2004-04-09 20:30) [3]

Da na ekrane nichego ne poiavlaetsa :-D

← →
Gandalf © (2004-04-09 21:38) [4]

Вызови CreateWindow для надежности... А что за CheckMesh такой?

← →
Delphi5.01 © (2004-04-10 08:30) [5]

Da CheckMesh eto v statiah napisano kak ego sozdavat (sozdanie vizualnih komponentov dla KOL)

← →
Владимир Кладов (2004-04-10 11:15) [6]

тип данных должен соответствовать. Очень неудобно читать латиницу. Нельзя ли попросить включить поддержку русского языка на машине, и подписать / подклеить русские буквы на клавиши.

← →
Delphi5.01 © (2004-04-10 11:20) [7]

OK :-)

← →
Yury Sidorov (2004-04-10 11:37) [8]

Pochemu naprimer ne rabotaet konstrukcia

Работает. Только что проверил. Вот рабочий пример:

program Test; uses kol, kolCheckMesh; var frm: PControl; CheckMesh: TKOLCheckMesh; begin frm:=NewForm(nil, "Test").SetSize(200, 200); CheckMesh:=NewCheckMesh(frm,esNone,4,4); CheckMesh.CheckColor:=clRed; CheckMesh.LineColor:=clBlack; CheckMesh.Width:=100; CheckMesh.Height:=100; CheckMesh.Visible:=True; Run(frm); end.

Spasibo ia prosto zametil chto inogda sam KOL ploho kompilit, nado neskolko raz najat na Ctrl+F9 i potom pronosit :-)

А латиницу реально читать тяжело и неохото...

OK учту!

Mojet oshibka? Result:=PCheckMesh(NewPanel(AParent, EdgeStyle)); Найти похожие ветки