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

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.

---

← →
Delphi5.01 ©   (2004-04-10 14:23) [9]

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

---

← →
Gandalf ©   (2004-04-10 20:01) [10]

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

---

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

OK учту!

---

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

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



Память: 0.47 MB
Время: 0.022 c