|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
OpenDialog и файлы шрифтов
следующая процедура на работает с файлами шрифтов
Код:
procedure TfmMain.BitBtn1Click(Sender: TObject); var i: integer; begin if OpenDialog.Execute then begin reFontList.Lines.BeginUpdate; for i:=0 to OpenDialog.Files.Count-1 do reFontList.Lines.Add(OpenDialog.Files[i]); reFontList.Lines.EndUpdate; end; end; |