Fontu Tekrar Kullnmak Üzere Kaydetme ?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Fontu Tekrar Kullnmak Üzere Kaydetme ?
Bir edit vb fontunu kullanıcı değiştirdikten sonra bu fontu tekrar kullamak üzere kaydetmek isitiyorum
Font için name-size-color u kaydetmek kolay (Biraz tarzanca olabilir ama buları bir listbox a listeleyip listbox ı kaydediyorum) ama BOLD ve ITALIC özeliklerini nasıl kaydedip tekrar kullanabilirim ?
Teşekkürkler ...
Font için name-size-color u kaydetmek kolay (Biraz tarzanca olabilir ama buları bir listbox a listeleyip listbox ı kaydediyorum) ama BOLD ve ITALIC özeliklerini nasıl kaydedip tekrar kullanabilirim ?
Teşekkürkler ...
- kadirkurtoglu
- Üye
- Mesajlar: 748
- Kayıt: 22 May 2005 01:20
- Konum: Uzakta Görünen Tepeden...
merhaba bu işlemleri inifile kullanarak yapabilirsin. neden inifile dersen inifile ayarların kaydedilmesi için bitirim. inifile ile font name leri string size ları integer ve bold ve italic gibi değerleri boolean kaydedebiliyorsun. kolay gelsinn....
Bir mum, yanındaki mumları tutuşturmakla,
ışığında hiç bir şey kaybetmez.
Mevlana
OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
ışığında hiç bir şey kaybetmez.
Mevlana
OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
- sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
fontstyle özelliği küme tipinde tanımlanmıştır. yani elaman sayısı birden fazla olabilir. teker teker kontrol ettirip dosyaya kaydetmeniz lazım
mesela
okurken
mesela
Kod: Tümünü seç
if fontta italik özelliği varsa then
sayac := 1
if fontta bold özelliği varsa then
sayac := sayac + 3;
if fontta underline özelliği varsa then
sayac := sayac + 6;
writeayardosyasi(Sayac);
okurken
Kod: Tümünü seç
case sayac of
1: italik
3: bold
6: underline
4: bold+italik
7: underline+italik
9: underline+bold
10:italik+bold+underline
- ender_arslanturk
- Kıdemli Üye
- Mesajlar: 709
- Kayıt: 18 Şub 2005 03:38
- Konum: İstanbul
- ender_arslanturk
- Kıdemli Üye
- Mesajlar: 709
- Kayıt: 18 Şub 2005 03:38
- Konum: İstanbul
Teşekkürler
Ama Colorbox kullanarak işi çözdüm ben
şeklinde .....
Başarılar,

Kod: Tümünü seç
Colorbox1.Selected:=Ediq.Font.Color;
.
.
query1fontno.Value:=Colorbox1.itemindex;
.
.

Başarılar,