Rajz a vásznon (tcanvas) panel (tpanel) a Delphi, ASD-soft

Szia Kedves kollégák!

Hogyan fessünk vászonra TCanvas TPanel alkatrész - a kérdés, amire megpróbálok válaszolni ebben a cikkben.
Köztudott, hogy nem TPanel komponens segítségével veheti vászon, de van egy út körül ezt a korlátozást ...

TPanel összetevő, mivel a szülő osztály használ TCustomControl. amelyben bemutatott Canvas tulajdon és festék eljárás. Mindketten a védett részén. ami azt jelenti, hogy nem tudjuk használni közvetlenül, de nem tudjuk, hogy hozzáférjen a gyermek osztályban.

Létrehozunk egy egyedi osztály örökli a szabványos TPanel:

Biztosítja a Canvas tulajdonság az állami rész, hogy mi lehetett használni, hogy hozzon létre egy példányát az osztályban.
Cseréljük ki a virtuális módszer Paint.
És hozzá az esemény OnPaint. akkor jelenik meg, az eljárás Paint. ami viszont bekövetkezik, ha újrarajzolás komponenst.

A végrehajtási fejezetben a festék módszer:

ha meg van adva (FOnPaint), majd - ha elnyerte a rendezvény OnPaint. akkor hívja azt elhaladó magukat (kulcsszó Self) paraméterként.

Megkezdése után látható festett köröket a panelen:

A forráskód példák innen lehet letölteni: drawpanel.rar

← Term papír „Utazási Iroda» (MSAccess + Delphi) (3. rész)

Ami a saját asszisztens (segítő) a típusok vagy osztályok Delphi. →