es erhalten:
in den versteckten Tiefen der geschützten Maler:
Art
TmagiccxPCStandardPainter = Ende der Kategorie (TcxPCStandardPainter);
Verfahren TfrmSumGraphs.pcSUMDatabasesMouseDown (Absender: TObject;
Knopf: TMouseButton; Verschiebung: TShiftState; X, Y: Ganze Zahl);
var
n: Ganze Zahl;
Vorsprung: tcxTabSheet;
R: TRect;
Pint: TPoint;
anfangen
n: = pcSUMDatabases.IndexOfTabAt (X, Y);
wenn (n <> -1) dann
anfangen
Vorsprung: = pcSUMDatabases.Pages [n];
TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
wenn PtInRect (R, Punkt (X, Y)) dann ShowMessage („es '' s auf dem Bild!!!! ");
Ende;
Ende;