| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Mojet oshibka? Result:=PCheckMesh(NewPanel(AParent, EdgeStyle)); [Delphi, Windows]

Delphi5.01 ©   (2004-04-08 19:42:00) 

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-10 20:29:00) [1]

OK учту!

---

Gandalf   (2004-04-10 20:01:00) [2]

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

---

Delphi5.01   (2004-04-10 14:23:00) [3]

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

---

Yury Sidorov   (2004-04-10 11:37:00) [4]

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 11:20:00) [5]

OK :-)

---

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

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

---

Delphi5.01   (2004-04-10 08:30:00) [7]

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

---

Gandalf   (2004-04-09 21:38:00) [8]

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

---

Delphi5.01   (2004-04-09 20:30:00) [9]

Da na ekrane nichego ne poiavlaetsa :-D

---

Gandalf   (2004-04-09 13:08:00) [10]

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

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

---

Delphi5.01   (2004-04-08 20:48:00) [11]

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;

---

Наверх