Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос с Font, Как вытянуть Font.Style 
V
    Опции темы
Paradise
Дата 23.11.2006, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Как можно какойто переменной типа Boolean (или другово типа) присвоить значение Font.style.??? smile 
PM MAIL   Вверх
Reptile
Дата 23.11.2006, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3
Именно Boolean.... Хмм незнаю но можно ведь
Код

if Font.style.??? = ??? then
  //переменная := True;
PM MAIL   Вверх
Yanis
Дата 23.11.2006, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Код
var
  fs: TFontStyles;
begin
  fs := Font.Style;
end;

Оно?

Ну или можно булевой пеерменной присвоить:
Код
var
  b: Boolean;
begin
  b := Boolean(Font.Style);
end;


Paradise, а вообще ты о чём?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sunvas
Дата 23.11.2006, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(Paradise @  23.11.2006,  15:37 Найти цитируемый пост)
или другово типа

Может так?
Код

var s:string;
{......}
s:='Font.style.???';

Во всяком случае вопрос-то все-равно не до конца ясен.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Yanis
Дата 23.11.2006, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
А может имеется ввиду доступ к элементам множества?
Код
var
  fs: TFontStyles;
begin
  fs := [fsBold, fsItalic];
  fs := fs + [fsStrikeOut, fsUnderline];
end;


Ну короче Sunvas прав.

Это сообщение отредактировал(а) Yanis - 23.11.2006, 17:31


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Paradise
Дата 24.11.2006, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Yanis прав, мне нужны свойства fsBold, fsItalic и.т.д. Я попробую его вариант, если получится помечу вопрос как решённый.
PM MAIL   Вверх
Paradise
Дата 25.11.2006, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Я пробывал вариант Yanis и для типа TFontStyles все действует хорошо, но я никак не могу затащить этот тип в базу данных Access, а есть ли еще способ, только чтобы тип переменных был стандартным?? smile (Другие способа не действуют).
PM MAIL   Вверх
Yanis
Дата 27.11.2006, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Paradise
А этот тип и так стандартный - Byte. Если нужно его куда-нибудь сохранить,то сохраняй этот байт (с приведением типа конечно): Byte(fs).


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Paradise
Дата 28.11.2006, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Да Byte(fs) подходит чтобы записать в БД, но считать эго и присвоить Font.Style никак не удается. Подскажите пожалуйста.
PM MAIL   Вверх
Yanis
Дата 28.11.2006, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Paradise
Почитай в справке про Typecasts smile

Цитата(Paradise @  28.11.2006,  13:37 Найти цитируемый пост)
присвоить Font.Style никак не удается. Подскажите пожалуйста. 

Код
fs := TFontStyle(0);

var
  b: Byte;
{ ... }
  Font.Style := TFontStyles(b);

Вместо 0 или b, может быть значение, которое ты считываешь.

Это сообщение отредактировал(а) Yanis - 28.11.2006, 13:03


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Paradise
Дата 28.11.2006, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Я делал также,
Код
Form1.Label1.Font.Style := TFontStyle(Form1.ADOTable1.FirstValues('FX')); //Может гдето есть синтаксическая ошибка

но Delphi выдает ошибку "Не совместимые типы "TFontStyle" и "TFontStyle" " 
PM MAIL   Вверх
Yanis
Дата 28.11.2006, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Yanis @  28.11.2006,  14:00 Найти цитируемый пост)
Font.Style := TFontStyles(b);




--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Paradise
Дата 28.11.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
А так правильно?
Код

var b : byte;

begin
         b := Byte(Form1.ADOTable1.FirstValues('FX'));
         Form1.Label1.Font.Style := TFontStyle(b); 
end;//Может гдето есть синтаксическая ошибка
PM MAIL   Вверх
Yanis
Дата 28.11.2006, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Paradise, smile

Ты понимаешь, что ты не к тому типу приводишь? Нужно не TFontStyle, а TFontStyles.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Paradise
Дата 28.11.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
А так?

Код
var b : byte;

begin
         b := Byte(Form1.ADOTable1.FirstValues('FX'));
         Form1.Label1.Font.Style := TFontStyleS(b); 
end;//Может гдето есть синтаксическая ошибка


Но если взять вариант
Код
Form1.Label1.Font.Style := TFontStyles(Form1.ADOTable1.FirstValues('FX'));

то Delphi выдает ошибку "Не совместимые типы "TFontStyle" и "Values" " (Кажеться правильно)
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0533 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.