سؤال حول تكبير الخط في القوائم المنسدلة في الدلفي

[Mr.DOS]

وعليكم السلام
1 - قم بتحديد MainMenu وفعل الخاصية ownerDraw الى True

ثم ضع الكود التالي بعد تحديد الايتمز items في الحدث OnDrawItem

كود :

procedure TForm1.MenuItem11DrawItem(Sender: TObject;   ACanvas: TCanvas; ARect: TRect; Selected: Boolean); var   s: string; begin   // change font   ACanvas.Font.Name := 'Consolas';   ACanvas.Font.Size := 14;   ACanvas.Font.Style := [fsBold];   ACanvas.Font.Color := clYellow;   // change background   ACanvas.Brush.Color := clBlack;   ACanvas.Rectangle(ARect);   // write caption/text   s := (Sender as TMenuItem).Caption;   ACanvas.TextOut(ARect.Left + 2, ARect.Top + 2 , s); end;