Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Combo z fontami
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
Combo z fontami

co zrobić, aby Combo1 na formie podczas Form_Load ładowało do siebie wszystkie font zainstalowane w systemie???

...gdzieś na forum znalazłem, że trzeba wpisać gdzieś jakieś cdlCFBoth...

...chodzi mi głównie o to, co zrobić, aby to combo miało w sobie pokazane te czcionki...

19-06-2003 22:22
Pokaż profil AFRO  Wyślij email do AFRO   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
eee...

Myślę, że możesz to zrobić bardzo łatwo. Windows'y trzymają fonty w katalogu Fonts (np.: Win'98 w katalogu C:\Windows\Fonts). Pobierz z tego katalogu nazwy plików (*.ttf) i...
... to wszystko.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

20-06-2003 13:54
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003

sorry za niewiedzę, ale jak to zrobić???

20-06-2003 16:18
Pokaż profil AFRO  Wyślij email do AFRO   
napadlek
Ciapek



Typ: neutral
Postów: 117
Zarejestrowany: Feb 2003
A więc...

Przeglądanie katalogu z fontami, moze i nawet byloby troszke szybsze, ale ja znam o wiele prosciejszy sposób. Oto on (sorry za bledy, pisze z glowy) :

Dim C As Integer
For C=0 to screen.FontCount-1
combo1.additem screen.fonts(c)
next C

'i to by bylo na tyle

Rozumiem tez o co chodzi z tym zeby "pokazywał" wszystkie czcionki. Taki bajerek rodem z office 2000 i nowsze, wiem. To jednak nie da sie zrobic przez zwykłe combo. Trzeba napisac własną kontrolkę. Takie cos zblizone do tego co szukamy, znajdziesz w EPaintcie, chyba jest gdzies na VB4All. Narazie.


_____________________________________________
www.napadlek.prv.pl ruszyla od nowa zapraszam

20-06-2003 17:25
Pokaż profil napadlek  Wyślij email do napadlek   Odwiedź stronę napadlek       3392810
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003

niestety mój EPaint, którego skądś zdobyłem, jest walnięty, tzn. podczas ładowania wyświetla SplashScreena i na tym kończy się jego działanie. Mam na szczęściedo nie go źródło, tylko nie wiem gdzie jest błą

piszesz

For C=0 to screen.FontCount-1

zdaje mi się, że aby były wszystkie czcionki widoczne, oprócz tych ekranowych (screen.fonts) można by dodać jeszcze drukarkowe, domyślam się, że będzie to Printer.fonts i zastosowanie tej samej procedury dodawania fontów...nie wiem czy będzie działać - nie sprawdzałem...


...wiesz coś może jeśli chodzi o pytania zawarte w moich poprzeddnich postach (np. cofnij, cofnij, cofnij)

20-06-2003 20:22
Pokaż profil AFRO  Wyślij email do AFRO   
napadlek
Ciapek



Typ: neutral
Postów: 117
Zarejestrowany: Feb 2003
Tego nie uwzględniłem

Z fontami drukarki to nie kombinowałem...
A w epaincie to chodzi tylko o tą forme z czczionkami, ten kod przy ładowaniu muszisz przestudiowac i uprościc, do własnych upodobań.


_____________________________________________
www.napadlek.prv.pl ruszyla od nowa zapraszam

21-06-2003 09:50
Pokaż profil napadlek  Wyślij email do napadlek   Odwiedź stronę napadlek       3392810
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1