iki soru: MainMenu ve Keyboard Input Language

[S_Azeri]

1.Delphi ile gelen MainMenu ve PopupMenu 'nun elemanlarinin Font 'unu deyismek mümkün degil. Font özelligi olan bu bilesenlere alternatif bilesenler varmi? Varsa lütfen bedava indire bilecegim adresi yazin.

2.Sistemin Keyboard Input Language(klavyeden girilecek dil)' ni program kodu ile deyismek mümkünmü, mümkünse hangi kod ile. Yani nasil etmek olur ki, istedigimde TR olsun, istedigimde EN olsun ya da istedigimde AZ olsun. Yardiminiz için simdiden tesekkürler.

[mussimsek]

Öncelikle soruları sormadan Arama kısmını ve Siteyi kontrol etmeniz cevap alma sürenizi daha da kısaltacaktır. Bu aslında bizim için kötü olacak, forumun hareketliliği azalacak ama unutmayın : Amacımız balık tutmayı öğretmek

1. paralı : ExpressBars http://www.devexpress.com
ücretsiz : Toolbar 2000+tbx : adresleri sitede linkler kısmında

2. viewtopic.php?t=1819&highlight=keyboard

kolay gelsin.

[husonet]

Mustafa Hocam Demişki

1. paralı : ExpressBars http://www.devexpress.com
ücretsiz : Toolbar 2000+tbx : adresleri sitede linkler kısmında

Bende Parasız olarak 1 alternatif sunmak istiyorum. Biraz uğraş istiyor ama o kadar da zor deil.

Main Menu deki bir elemanı bold ve yazı fontunu Tahoma yapmayı göstereceğim.

Öncelikle yeni bir uygulama açalım.
Forumumuza 1 adet mainmenu ekleyelim. Sonra mainmenu yu 1 kez tıklayalım ve Object Inspector penceresinden Owner Draw özelliğini True yapalım.

ilk önce yazdığım procedure yi unitimize ekleyelim.

Kod: Tümünü seç

procedure DrawMenuText(X: integer;ACanvas: TCanvas;ARect: TRect;Text: string);
begin
 ARect.Left := X;//moves it over some
 DrawText(ACanvas.Handle,
         PChar(Text),
         -1,
         ARect,
         DT_SINGLELINE or DT_LEFT or DT_VCENTER);
end;

Sonra Main Menu yü çift tıklayalım. ve 1 Menü Elemanı ekleyelim ben ismini Ana Menu kodum. Şimdi bunu Kalın ve Yazı Fontunu Tahoma yapacağız. Menu elemanımızı ekledikten sonra üzerine 1 kere tıklayalım ve Object Inspector penceresine gelelim. Object Inspector penceresinden Events ler sekmesini tıklayalım tıkladıkmı. Tıkladıysak OnDrawItem eventine

Kod: Tümünü seç

procedure TForm1.AnaMenu1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
 ImgIndex: integer;
begin
 ACanvas.FillRect(ARect);
 ACanvas.Font.Name := 'Tahoma';

 ACanvas.Font.Style := [fsBold];
 DrawMenuText(30,ACanvas,ARect,'Ana Menü');
end;

Evet Artık Menü Elamanımız Bold.

Ama bir sorun var ne mi menümüz yarısı çıkmış yarısı forumda gözükmüyor. Hımm hemen menü elemanımızın genişliğini ayarlayalım.

TMainMenu Objemizi tekrar çift tıklayalım ve ardından Menu Elemanımıza tıklayalım ve Object Inspector penceremize Tekrar gelelim ordan eventler sekmesine ve son olarak OnMeasureItem eventine çift tıklayalım.

Kod: Tümünü seç

procedure TForm1.AnaMenu1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
     Width := 100;
end;

Olayımız bu kadar basit.

Kolay Gelsin...

İyi Geceler.

[S_Azeri]

http://www.jrsoftware.org/download.php/tb2k.zip adresinden ToolBar komponentlerini indirdim, ama o bilesenlerin menu elemanlarinin font ozelligi yoktur.

[husonet]

Benim yazdıklarımı denedinizmi?

[S_Azeri]

menu elemanlarinin gorunu deyisir. mesala menu elemaninin uzerine gelende tek yazili olan yerinin rengi deyisir. normalde boyle deyil.
Bundan sonra menu'nun genel stili deyisir . En iyisi yeni bilesen olsun. Yazdiginiz icin tesekkurler.

[husonet]

menu elemanlarinin gorunu deyisir. mesala menu elemaninin uzerine gelende tek yazili olan yerinin rengi deyisir. normalde boyle deyil.
Bundan sonra menu'nun genel stili deyisir .

Anlatımlarınızın hepsini aslında kodlama yoluyla yapabilirsiniz. Ama siz en iyisi yeni bir bileşen bulun sizin için daha zahmetsiz olur.

Kolay Gelsin...

[S_Azeri]

Belki Turkce yazarken bu gereksiz olur. Ama Azerice yazarken bu cok onemli. Bunun icin bu kadar cok lazim.