(UTC)
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: [1] 2 3  ОтправитьПечать
Очень популярная тема (более 25 ответов) Хочу зачёркнутый шрифт (число прочтений - 16526 )
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Хочу зачёркнутый шрифт
24. Марта 2008 :: 09:07
Печать  
Есть ТП. У него есть какой-то шрифт. Хочу некоторые строки "зачёркивать".
Делаю:
Код
Выбрать все
Процедура ПослеСозданияФормы()
	//создание тп

	Фабрика = СоздатьОбъект("ФабрикаОбъектов");
	ОсновнойШрифт = тпСравнений.Шрифт;
	ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,1);
КонецПроцедуры	// ПослеСозданияФормы

Матерят:
Цитата:
ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,1);
...: Недопустимое значение первого параметра.


Пробывал и так (в модуле формы):
Код
Выбрать все
Фабрика = СоздатьОбъект("ФабрикаОбъектов");
ОсновнойШрифт = Фабрика.Шрифт();
ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,1);

отвечают тоже самое.

более того, если делаю:
Код
Выбрать все
Фабрика = СоздатьОбъект("ФабрикаОбъектов");
ОсновнойШрифт = Фабрика.Шрифт("MS Sans Serif",8.5,);
ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,);

То при выводе строк видно, что Зачеркнутый шрифт отличается от основного.

Объясните, пожалуйста, что я делаю не так.
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #1 - 24. Марта 2008 :: 09:19
Печать  
Фабрика = СоздатьОбъект("ФабрикаОбъектов");
Сам().Шрифт = Фабрика.Шрифт("Verdana", 8, 0, 0, 0, 0);
Шрифт2 = Фабрика.Шрифт("Verdana", 8, 0, 0, 0, 1);

Вот так у меня работает без проблем. Никакой разницы не замечаю.
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #2 - 24. Марта 2008 :: 09:21
Печать  
Arta писал(а) 24. Марта 2008 :: 09:19:
Фабрика = СоздатьОбъект("ФабрикаОбъектов");
Сам().Шрифт = Фабрика.Шрифт("Verdana", 8, 0, 0, 0, 0);
Шрифт2 = Фабрика.Шрифт("Verdana", 8, 0, 0, 0, 1);

Вот так у меня работает без проблем. Никакой разницы не замечаю.

Ну тут ты оба шрифта ручками делаешь, а я хочу второй на основании первого, но зачеркнутый.

+ не хочу и первый ручками создавать.
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #3 - 24. Марта 2008 :: 11:05
Печать  
Ну так что это? Мои кривые руки? Неправильная работа конструктора шрифта на основании другого шрифта? У кого-нибудь этот код работает?

Задача ж простейшая: сделать зачёркнутый шрифт на основании того шрифта, который сейчас в ТП, но основной шрифт ТП не создавать ручками.
  
Наверх
 
IP записан
 
Uzhast
1c++ power user
Отсутствует



Сообщений: 1341
Зарегистрирован: 30. Августа 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #4 - 24. Марта 2008 :: 11:10
Печать  
Переходи на Йоксель - там это реализовано  Смех
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #5 - 24. Марта 2008 :: 11:12
Печать  
Uzhast писал(а) 24. Марта 2008 :: 11:10:
Переходи на Йоксель - там это реализовано  Смех

Драг-н-Дропа нет!  Очень довольный

Да тут вроде тож всё реализовано, только не пойму в чём косяк...  Нерешительный
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #6 - 24. Марта 2008 :: 11:19
Печать  
JohnyDeath писал(а) 24. Марта 2008 :: 09:21:
Ну тут ты оба шрифта ручками делаешь, а я хочу второй на основании первого, но зачеркнутый.

+ не хочу и первый ручками создавать.


Ишь ты какой Улыбка
Вот в ПриПрокруткеКолеса с нажатым контролом я делаю так:

Код
Выбрать все
Процедура ПриПрокруткеКолесаМыши(Сост, Лево, Верх, ФСО, Градусы) Экспорт
  Если Сост = 8 Тогда
    Попытка
	Имя = Сам().Шрифт.Имя;
	Если ПустоеЗначение(Имя) = 0 Тогда
	  Размер = Сам().Шрифт.Размер;
	  Если Градусы < 0 Тогда
	    Размер = Макс(Размер - 1, 3);
	  Иначе
	    Размер = Мин(Размер + 1, 15);
	  КонецЕсли;
	  Фабрика = СоздатьОбъект("ФабрикаОбъектов");
	  Сам().Шрифт = Фабрика.Шрифт(Имя, Размер, 0, 0, 0, 0);
	  Сам().ПерерисоватьСтроки();
	КонецЕсли;
    Исключение
    КонецПопытки;
    ФСО = 0;
  КонецЕсли;
КонецПроцедуры


Но это работает, если установлен шрифт при ините ТП. Т.е. Сам().Шрифт = Фабрика.Шрифт(бла-бла-бла);      
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #7 - 24. Марта 2008 :: 11:29
Печать  
Arta писал(а) 24. Марта 2008 :: 11:19:
Но это работает, если установлен шрифт при ините ТП. Т.е. Сам().Шрифт = Фабрика.Шрифт(бла-бла-бла);      

так и у меня работает. Но хотелось бы прояснить ситуёвину по автоматическому шрифту.
Если мне скажут, что так как я хочу - не получится, я отстану и сделаю "как надо".
  
Наверх
 
IP записан
 
artbear
1c++ developer
1c++ moderator
Отсутствует


Эх, дайте что-нибудь новенькое
да полезное потести

Сообщений: 6303
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #8 - 24. Марта 2008 :: 12:06
Печать  
Пиши в багзиллу Улыбка
Там ответят Улыбка
  
OpenConf developer :: http://openconf.1cpp.ru&&FormEx developer :: http://formex.dorex.ru&&1C++ active developer &amp;&amp; tester :: www.1cpp.ru
Наверх
GTalkSkype/VoIPICQ  
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #9 - 24. Марта 2008 :: 12:08
Печать  
JohnyDeath писал(а) 24. Марта 2008 :: 09:07:
Матерят:
Цитата:
ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,1);
...: Недопустимое значение первого параметра.


ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт.Имя,,,,,,1);
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #10 - 24. Марта 2008 :: 12:10
Печать  
Это ты показываешь на основной конструктор. А есть еще:
Цитата:
Шрифт :: На основании другого шрифта

Синтаксис: Шрифт(Шрифт, Имя, Размер, Жирный, Наклонный, Подчеркивание, Зачеркивание)

Параметры:

Шрифт - тип Шрифт. Шрифт, на основании которого будет построен новый объект типа шрифт;
Имя - тип Строка. Имя шрифта;
Размер - тип: Число. Размер в пунктах;
Жирный - тип: Число. Признак жирности шрифта. 0 - нормальный; 1 - жирный;
Наклонный - тип: Число. Признак наклона шрифта. 0 - нормальный; 1 - наклонный;
Подчеркивание - тип: Число. Признак подчеркивания шрифта. 0 - нормальный; 1 - подчеркнутый;
Зачеркивание - тип: Число. Признак зачеркивания шрифта. 0 - нормальный; 1 - зачеркнутый.
Описание: Создается шрифт на основании другого шрифта. Все параметры кроме первого - необязательны, и если не указано, то этот показатель шрифта не изменяется.
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #11 - 24. Марта 2008 :: 12:18
Печать  
Да, просмотрел...
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #12 - 24. Марта 2008 :: 12:31
Печать  
Arta писал(а) 24. Марта 2008 :: 12:08:
JohnyDeath писал(а) 24. Марта 2008 :: 09:07:
Матерят:
Цитата:
ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт,,,,,,1);
...: Недопустимое значение первого параметра.


ЗачеркнутыйШрифт=Фабрика.Шрифт(ОсновнойШрифт.Имя,,,,,,1);

Так, кстати, тоже не прокатывает. Отладчик показывает:
Цитата:
ОсновнойШрифт = Авто
ОсновнойШрифт.Имя =
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #13 - 24. Марта 2008 :: 12:32
Печать  
artbear писал(а) 24. Марта 2008 :: 12:06:
Пиши в багзиллу Улыбка
Там ответят Улыбка

Артур, я не уверен, что это баг. Мне кажется, что я делаю что-то не то.
  
Наверх
 
IP записан
 
Arta
1c++ power user
Отсутствует



Сообщений: 2537
Местоположение: Нижний Новгород
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хочу зачёркнутый шрифт
Ответ #14 - 24. Марта 2008 :: 12:46
Печать  
Погодь, у тебя стоит
ОсновнойШрифт = тпСравнений.Шрифт;

а как ты получаешь тпСравнений.Шрифт?
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: [1] 2 3 
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge