dostawać ono:
w the chowany głębia the ochraniać malarz:
typ
TmagiccxPCStandardPainter = klasa (TcxPCStandardPainter) końcówka;
procedura TfrmSumGraphs.pcSUMDatabasesMouseDown (Nadawca: TObject;
Guzik: TMouseButton; Przesunięcie: TShiftState; X, Y: Integer);
var
n: Integer;
zakładka: tcxTabSheet;
R: TRect;
pt: TPoint;
zaczynać
n: = pcSUMDatabases.IndexOfTabAt (X, Y);
jeżeli (n <> -1) wtedy
zaczynać
zakładka: = pcSUMDatabases.Pages [n];
TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
jeżeli PtInRect (R, Punkt (X, Y)) wtedy ShowMessage ("Ono '' s na the wizerunek!!!! ");
końcówka;
końcówka;