Как получить список всех установленных шрифтов?

Ответить
  1. 9 г. назад

    #0 Масянька

    21.05.2014 10:34:50

    Вопрос: как (возможно ли) получить список всех установленных шрифтов в 7.7?

    Спасибо.

  2. #1 andrewks

    21.05.2014 10:37:09

    встречный вопрос: а что такое

    Масянька список всех установленных шрифтов в 7.7

    ?

    или нужен список установленных в ОС шрифтов?

  3. #2 Масянька

    21.05.2014 10:40:14

    Мне нужен код вот этой хрени:

       ПП=СоздатьОбъект("НастройкиПользователя");
    //Сообщить(ПП.ШрифтОкнаСообщений + " - " + ПП.ШрифтОкнаСообщений.Шрифт());

  4. #3 andrewks

    21.05.2014 10:43:27

    Масянька Мне нужен код вот этой хрени:

    это к Альфу.

    тебе что конкретно надо-то?

  5. #4 Масянька

    21.05.2014 10:44:47

    Решила поменять в одной обработке шрифт в окне сообщений

    Процедура ПослеОткрытия()

	мСервис = СоздатьОбъект("Сервис");
	мСервис.ВключитьРаскраскуТаблиц(1);
	мСервис.ИспользоватьПланРаскраски(1);
	
	ФормаРасш = СоздатьОбъект("РасширениеФормы");
	ФормаРасш.УстановитьФорму(Форма);
	ФормаРасш.РаскрашиватьТаблицу("гТабВыборка");

    ПП=СоздатьОбъект("НастройкиПользователя");
    //Сообщить(ПП.ШрифтОкнаСообщений + " - " + ПП.ШрифтОкнаСообщений.Шрифт());
    Сообщить(ПП.ШрифтОкнаСообщений);
	
	Шрифт=мСервис.СоздатьШрифт(,15,7,,,,);  
    ПП.ШрифтОкнаСообщений = Шрифт;
	Сообщить("Шрифт - " + Шрифт);
КонецПроцедуры // ПослеОткрытия

    А про УдалитьШрифт() - забыла [smile=;_;]
    И теперь - все жирное...

  6. #5 andrewks

    21.05.2014 10:45:53

    Сервис\Параметры\Интерфейс - это не то, что тебе надо?

    Ответы: (7)

  7. #6 Масянька

    21.05.2014 10:46:05 
    Процедура ПриЗакрытии()
	
	Сообщить("Шрифт (удаляем) - " + ПП.шрифтОкнаСообщений);
	мСервис.УдалитьШрифт(ПП.шрифтОкнаСообщений);
	
КонецПроцедуры // ПриЗакрытии

    Отрабатывает без ошибок, но в окне сообщений все - жирное [smile=;_;]

  8. #7 Масянька

    21.05.2014 10:47:15

    (5) Оно. А программно - не вариант?

    Ответы: (8)

  9. #8 andrewks

    21.05.2014 10:50:26

    (7) программно - через формекс

    Ответы: (9)

  10. #9 Масянька

    21.05.2014 10:51:10

    (8) И как?

  11. #10 Масянька

    21.05.2014 10:53:52

    Ох, и фигня....

    Процедура ПослеОткрытия()

	мСервис = СоздатьОбъект("Сервис");
	мСервис.ВключитьРаскраскуТаблиц(1);
	мСервис.ИспользоватьПланРаскраски(1);
	
	ФормаРасш = СоздатьОбъект("РасширениеФормы");
	ФормаРасш.УстановитьФорму(Форма);
	ФормаРасш.РаскрашиватьТаблицу("гТабВыборка");

    ПП=СоздатьОбъект("НастройкиПользователя");
	
	Шрифт=мСервис.СоздатьШрифт(,9,7,,,,);  
    ПП=СоздатьОбъект("НастройкиПользователя");
    ПП.ШрифтОкнаСообщений = Шрифт;
	Сообщить("Шрифт - " + Шрифт);
	
КонецПроцедуры // ПослеОткрытия

Процедура ПриЗакрытии()
	
	Сообщить("Шрифт (удаляем) - " + Шрифт);
	мСервис.УдалитьШрифт(Шрифт);
	
КонецПроцедуры // ПриЗакрытии

    До запуска обработки - шрифт обычный, в обработке - выводит жирным, после закрытия обработки - остается жирный.
    ЧЯДНТ?!

  12. #11 andrewks

    21.05.2014 11:00:49

    а если запомнить ПП.ШрифтОкнаСообщений, а потом восстановить?

    Ответы: (13)

  13. #12 Гефест

    21.05.2014 11:01:57

    забей, все равно не будут твои сообщения читать

  14. #13 Масянька

    21.05.2014 11:04:35

    (11) ИсходныйШрифт = ПП.ШрифтОкнаСообщений:
    Орёт - ИсходныйШрифт = ПП.ШрифтОкнаСообщений<<?>>:
    {D:\1CV7\DB\DOPOLNITELNO\СЛУЖЕБНЫЙОТЧЕТ.ERT(61)}: Неопознанный оператор

    Ответы: (14)

  15. #14 Масянька

    21.05.2014 11:08:43

    (13) Блин.... Пардон - двоеточие....

  16. #15 Масянька

    21.05.2014 11:11:06

    Мда... Вроде поделка не плохая... Но - какая-то недоделанная... Вылетает постоянно...

    Ответы: (16)

  17. #16 andrewks

    21.05.2014 11:13:05

    (15) вот ты страдалица-то. есть же в типовых инструменты, заменяющие окно сообщений (трассировка в ЗиК и ТиС есть). и нарисовать можно как хочешь, и полностью штатными средствами, без ВК

    Ответы: (17)

  18. #17 Масянька

    21.05.2014 11:14:02
    21.05.2014 11:14:51 отредактировано Масянька

    (16) А подробнее расскажи, пожалуйста.

    Ответы: (18)

  19. #18 andrewks

    21.05.2014 11:30:06

    (17) если в ТиС - см. в ГМ глСообщениеПроведения()
    я оттуда выдрал, чуток переделал под себя и пользую в отчётах для красивых трассировок

    Ответы: (19)

  20. #19 Масянька

    21.05.2014 12:24:35

    (18) Огромное спасибо! Чмоки! Пошла ковырять...

  21. #20 Mikeware

    21.05.2014 13:06:03

    Const FONTS = &H14&
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FONTS)
    Set objFolderItem = objFolder.Self
    Wscript.Echo objFolderItem.Path
    Set colItems = objFolder.Items
    For Each objItem in colItems
    Wscript.Echo objItem.Name
    Next

    Ответы: (21) (24)

  22. #21 Масянька

    21.05.2014 13:11:02

    (20) Я так не умею [smile=:/]

    Ответы: (22)

  23. #22 Mikeware

    21.05.2014 13:15:20

    (21) Олег (smaharba) хорошо умеет.

  24. #23 Дядя Васька

    21.05.2014 13:23:11

    А в чем цель мероприятия? Сделать бабушке шрифт побольше чтобы видела без очков? Так для этого проще на экране разрешение поменять. Стандартные шрифты в эске вполне себе годные, их надо думать не один день подбирали и тестили.

    Ответы: (25) (26)

  25. #24 andrewks

    21.05.2014 13:24:17

    (20) затроллил так затроллил

  26. #25 Дядя Васька

    21.05.2014 13:25:11
    21.05.2014 13:25:22 отредактировано Дядя Васька

    (23)+ Кроме того есть в венде настройка что-то вроде "огромные" шрифты, ну так даже с нее все формы ползут, а если еще и свои мастрячить... будет много тупой и ненужной работы мне кажется...

  27. #26 Mikeware

    21.05.2014 14:10:22

    (23) цель - выделять сообщения в окне сообщений. а то перелетные птЫцы, временно сидящие за мониторами, не обращают внимание...
    а насчет "тестили" - это относительно зао1с действительно смешно. Хотя... когда тестировщиками вся страна....

или зарегистрируйтесь чтобы ответить!