Android’de Özel Yazı Font Kullanma – Delphi
Delphi firemonkey üzerinde android bir proje tasarlarken kendi özel fontumuzu kullanmak için yapmamız gerekenler
1. Örneğin eklemek istediğmiz yazı fontu GillSansUltraBold.ttf ise, bunu proje dosyamıza kopyalayıp Deployment’dan projemize ekleyelim. Yolunu assets\internal\ verelim.
2. Project —> Add to Project menüsünden FMX.FontGlyphs.Android.pas (C:\Program Files (x86)\Embarcadero\Studio\18.0\source\fmx) dosyasını projemize ekleyelim. Bu dosyayı proje dosyamıza kaydedelim.
FMX.FontGlyphs.Android‘de iken,
3. Uses’a System.IOUtils ekleyelim.
4. TAndroidFontGlyphManager.LoadResource; procedure satırını bulalım.
5. FontFile: string; değişkenini ekleyelim.
6. Typeface := TJTypeface.JavaClass.create(FamilyName, TypefaceFlag); satırını bulup aşağıdaki satırlar ile değiştirelim.
FontFile := TPath.GetDocumentsPath + PathDelim + CurrentSettings.Family + ‘.ttf’;
if FileExists(FontFile) then
Typeface := TJTypeface.JavaClass.createFromFile(StringToJString(FontFile))
else
Typeface := TJTypeface.JavaClass.Create(FamilyName, TypefaceFlag);
7. Fontunda değişiklik yapmak istediğiniz nesnenin,
Properties–>TextSettings–>Font–>Family kısmına Deployment’dan eklemiş olduğunuz font dosyasının adını yazalım. Örneğin; GillSansUltraBold eklemiştik, bunu aynen Family’e yazıyoruz.
Derleme işlemi yaptığımızda mobilde (android) font değişmiş olacak.
Yukardaki işlemler sayesinde android projenize istediğiniz fontu ekleyebilirsiniz.
Delphi Dizi Fonksiyonları
Tüm programlama dillerinde olduğu gibi en sık kullanılan tiplerden biri hiç şüphesiz dizi nesneleridir dizi nesneleri ile birden fazla veriyi tek bir değişken üzerinde gruplayarak depolayıp ihtiyaç duyulduğunda döngüler kurarak veriler üzerinden işlemler yapmaya yarar. Şimdi Delphi dilinde Dizi fonksiyonlarının kullanımına bakalım
10 Elemanlı Dizi Değişkeni Tanımlama
var dizi : Array[0..9] of integer;
Sabit Uzunluklu Dizi Değişkenlerinin İlk Değerlerini Atama
const
dizi:Array[0..2] of integer=(10,20,30);
//integer sabit array tanımlaması yapıldı ve değerleri atandı.
İki boyutlu dizi tanımlama
var
ikib_dizi:Array[0..2] of Array[0..1] of Integer;
//Sonuç olarak bu şekilde bir dizi ortaya çıkmıştır.
ikib_dizi[0,0] := 'test00';
ikib_dizi[0,1] := 'test01';
ikib_dizi[1,0] := 'test02';
ikib_dizi[1,1] := 'test03';
ikib_dizi[2,0] := 'test04';
ikib_dizi[2,1] := 'test05';
Dinamik Delphi Array Tanımlama
var
dinamikdizi:Array of integer;
//Program içerisinde dizi değişkeninin boyutunu belirleme.
SetLength(dinamikdizi,10);
Görüldüğü gibi dizileri kullanmak için bir çok yol bulunmaktadır. Bunların bazılarını sizler için derledik umarım faydalı olabilmişizdir.