[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;

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

[NumLock]

да хоть:

Код:

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;
 if TMenuItem(Sender).Checked then ACanvas.Font.Style:=[fsBold]
 else ACanvas.Font.Style:=[];
 DrawText(ACanvas.Handle, pchar(TMenuItem(Sender).Caption), length(TMenuItem(Sender).Caption), ARect, DT_CENTER or DT_VCENTER);
end;

[galek]

Спасибо, большое!получилось