Corel FORUM

[chezare]

Heloł,
mam problema. Skrypty w VB pisałem dawno, dawno, dawno, temu i albo pamięć mnie zawodzi, albo nigdy nie zajmowałem się takim tematem, albo zwyczajnie skleroza.
Do rzeczy. Wykombinowałem własny formularz, wstawiłem ListBox i ......
Tutaj przejrzałem dokumentację Corela, mordowałem Googla i nie znalazłem...
i chciałbym wypełnić listobox nazwami zainstalowanych w windowsie fontów.
I to wsio.
Pozdrawiam i życzę łagodnego powrotu do rzeczywistości, po świętach.

Czarek Pawlak

[global]

Chrystusika radzę maksymalnie powiększyć, skontrastować, zwektoryzować, zamienić wektory na np. żółte linie, nałożyć na bitmapę i ręcznie dłubać poprawki. Ale zapewne to wiesz. Mnóstwo rzeczy w ten sposób robiłem zawodowo.

[chezare]

A już myślałem, że ktoś wymyślił sposób na te fonty :)
Oczywiście, że wiem o trasowaniu, ale trochę głupio wystartować z trasowaniem do XIX w. rysunku piórkiem, a poza tym tak samo jak ja doskonale wiesz, że poprawianie efektów trasowania, to często znacznie więcej roboty niż rysowanie, a jak bym chciał np. wyciąć taki trasowany obrazek z folii, to od razu mogę się udać do serwisu od ploterów i mam duże szanse wrócić, zanim skończy się wycinać :)
Pozdrawiam, wszystkiego ciepłego. Oczywiście oprócz piwa i wódki :)

[chezare]

Cześć,
nie dawało mi spokoju, ale jak to mówią, szukajcie, a znajdziecie. Trochę się nasiedziałem ale w końcu znalazłem i to w dokumentacji VBA Corela. Aplikacja ma właściwość FontList i w tym obiekcie znajdują się nazwy wszystkich zainstalowanych w systemie fontów. Nie wiem jeszcze czy jednym poleceniem da się przepisać cały FontList do ListBox, na razie zrobiłem to w pętli (fontlist wygląda na zwykła tablicę i ma właściwość Count).
-----------------------
Private Sub UserForm_Activate() ' funkcja uruchamian w momencie wyświetlania formularza
Dim i As Integer
ListBox1.Clear ' wyczyszczenie listy na którą zostaną wpisane nazwy zainstalowanych fontów
For i = 1 To FontList.Count ' fontlist.count -> ilość zainstalowanych fontów
ListBox1.AddItem (FontList(i))
Next i
ListSort ''wywołanie funkcji, która sortuje listę
ListBox1.ListIndex = 0
End Sub
'--------------------------------------------
Private Sub ListSort() ' alfabetyczne sortowanie listy
Dim iCount As Integer
Dim i As Integer
Dim j As Integer
Dim temp As String
iCount = ListBox1.ListCount
For j = 0 To iCount - 2
For i = 0 To iCount - 2
With ListBox1
If UCase(.List(i)) > UCase(.List(i + 1)) Then
temp = .List(i + 1)
.List(i + 1) = .List(i)
.List(i) = temp
End If
End With
Next i
Next j
End Sub

Żeby informacja była kompletna, a temat zamknięty