[galek]

Код:

procedure TfrmMainForm.N22DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
ACanvas.Font.Assign(TheMenuFont);
 if Selected then begin
   ACanvas.Font.Color := clHighlightText;
   ACanvas.Brush.Color := clHighlight;

 end else begin
   ACanvas.Font.Color := clMenuText;
   ACanvas.Brush.Color := clMenu;
 end;
  DrawText(ACanvas.Handle, pchar(TMenuItem(Sender).Caption), length(TMenuItem(Sender).Caption), ARect, DT_CENTER or DT_VCENTER);
end;

Админ: Пользуемся тегами!