começ o:
nas profundidades escondidas dos pintores protegidos:
tipo
TmagiccxPCStandardPainter = extremidade da classe (TcxPCStandardPainter);
procedimento TfrmSumGraphs.pcSUMDatabasesMouseDown (remetente: TObject;
Tecla: TMouseButton; Deslocamento: TShiftState; X, Y: Inteiro);
var
n: Inteiro;
aba: tcxTabSheet;
R: TRect;
pinta: TPoint;
começar
n: = pcSUMDatabases.IndexOfTabAt (X, Y);
se (n <> -1) então
começar
aba: = pcSUMDatabases.Pages [n];
TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .StandardPainterPrepareOutTabImageAndTextData (tab.TabIndex);
R: = TmagiccxPCStandardPainter (pcSUMDatabases.Painter) .FOutTabImageAndTextData.TabImageRect;
se PtInRect (R, ponto (X, Y)) então ShowMessage (“ele '' s na imagem!!!! ");
extremidade;
extremidade;