procedure TForm1.MainMenu1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; AState: TOwnerDrawState);
begin
showMessage('1');
ACanvas.Brush.Color := clBlack;
ACanvas.FillRect(ARect);
ACanvas.Font.Color := clYellow;
ACanvas.TextOut(ARect.Left, ARect.Top, 'TEST');
end;
procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; AState: TOwnerDrawState);
var
s: string;
begin
showMessage('2');
ACanvas.Brush.Color := clBlack;
ACanvas.FillRect(ARect);
ACanvas.Font.Color := clYellow;
ACanvas.TextOut(ARect.Left, ARect.Top, TMenuItem(Sender).Caption);
end;