Отловить шрифт на выходе

Вверх ↑

Форумы Помощь по пакетуОтловить шрифт на выходе ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 209

Рейтинг: 1

#1: 2012-02-23 20:07:21 ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2020-02-16 13:53:47

карма: 0

файлы: 1

code_26984.txt [333B] [72]

Ответов: 3889

Рейтинг: 362

#2: 2012-02-23 22:22:41 ЛС | профиль | цитата

Net2Com, либо через IC, т.к. шрифт это структура TFontRec, не поддерживаемая, скажем, Memory, либо пытаться записать в бинарный файл как поток и обратно.

карма: 1

Ответов: 209

Рейтинг: 1

#3: 2012-02-23 22:47:10 ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2020-02-16 13:53:51

карма: 0

Ответов: 3889

Рейтинг: 362

#4: 2012-02-23 22:51:37 ЛС | профиль | цитата

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

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#5: 2012-02-23 22:52:55 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-06 09:51:58

карма: 0

Разработчик

Ответов: 26160

Рейтинг: 2127

#6: 2012-02-23 23:03:43 ЛС | профиль | цитата

1nd1g0 писал(а):

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

Так и надо делать, вот только в числа сохранять необязательно, можно все в строку через разделитель, а в числа преобразуется само в компоненте Font

карма: 22

Ответов: 209

Рейтинг: 1

#7: 2012-02-23 23:30:10 ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2020-02-16 13:53:56

карма: 0

Ответов: 3889

Рейтинг: 362

#8: 2012-02-23 23:31:40 ЛС | профиль | цитата

Net2Com писал(а):

как даже задать их отдельно в ручную не знаю...

Пример из СПРАВКИ у Вас утащили злые гномы

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#9: 2012-02-24 00:23:37 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-06 09:52:01

карма: 0

Ответов: 16884

Рейтинг: 1239

#10: 2012-02-24 14:36:15 ЛС | профиль | цитата

г. 333, увидел в IC километровую строку и подумал, а почему-бы не вложиться вообще в одну строчку ?
Шутка:
code_26990.txt

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

code_26990.txt [611B] [112]

Разработчик

Ответов: 26160

Рейтинг: 2127

#11: 2012-02-24 14:51:58 ЛС | профиль | цитата

Вы мне объясните -- IC-то там зачем вообще нужно, чтобы было

------------ Дoбавленo в 14.51:
Спокойно можно обойтись и без IC



Add(MainForm,10713409,21,161)
{
 Width=682
 Height=413
 Name="form"
 Position=1
}
Add(Font,7588355,70,210)
{
 FontDialog=0
 Point(CharSet)
 link(onFont,669353:doEvent1,[])
}
Add(Button,3473984,21,210)
{
 Left=10
 Top=5
 link(onClick,7588355:doFont,[])
}
Add(ListBox,7664254,231,266)
{
 Left=80
 Top=5
 Width=215
 Height=370
 Strings=#29:14;32768;MS Sans Serif;15;204|24:11;255;Courier New;1;204|22:24;8421376;Arial;3;204|24:12;65535;Wingdings 2;1;2|
 DataType=1
 link(onClick,13504489:doEvent1,[])
}
Add(Label,13554174,357,273)
{
 Left=300
 Top=10
 Width=365
 Point(doFont)
}
Add(Font,16233498,301,329)
{
 Point(CharSet)
 link(onFont,13554174:doFont,[(348,335)(348,286)])
 link(Size,13716168:Part1,[])
 link(Color,13716168:Part2,[])
 link(Name,13716168:Part3,[])
 link(Style,13716168:Part4,[])
 link(CharSet,13716168:Part5,[])
}
Add(Hub,13504489,273,273)
{
 OutCount=3
 link(onEvent1,13554174:doText,[])
 link(onEvent2,13716168:doSplit,[])
 link(onEvent3,16233498:doFont,[(294,293)(294,335)])
}
Add(MultiStrPart,13716168,301,280)
{
 Count=5
}
Add(FontManager,3857989,168,210)
{
 ControlManager="temp"
 Point(FontCharset)
}
Add(Label,7204829,70,161)
{
 Width=0
 Height=0
 Name="temp"
 Caption=""
}
Add(FormatStr,4342793,168,266)
{
 DataCount=5
 Mask="%1;%2;%3;%4;%5"
 link(onFString,7664254:doAdd,[])
 link(Str1,3857989:FontSize,[])
 link(Str2,3857989:FontColor,[])
 link(Str3,3857989:FontName,[])
 link(Str4,3857989:FontStyle,[])
 link(Str5,3857989:FontCharset,[])
}
Add(Hub,669353,126,210)
{
 link(onEvent1,3857989:doSetFont,[])
 link(onEvent2,4342793:doString,[(154,223)(154,272)])
}

карма: 22

Голосовали: RinniX

Ответов: 16884

Рейтинг: 1239

#12: 2012-02-24 15:25:20 ЛС | профиль | цитата

nesco, я влез в эту тему только потому, что

Tad писал(а):

увидел в IC километровую строку

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Гость

Ответов: 17029

Рейтинг: 0

#13: 2012-02-24 22:19:00 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-06 09:52:01

карма: 0

Ответов: 209

Рейтинг: 1

#14: 2012-02-29 21:30:19 ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2020-02-16 13:54:07

карма: 0

Ответов: 3889

Рейтинг: 362

#15: 2012-03-01 09:32:00 ЛС | профиль | цитата

Net2Com, "бюджетный" вариант (достаточно для чатов, логов и т.п.), передаём только цвет, начертание ("стиль") и сам текст:


Add(MainForm,10713409,371,217)
{
 Width=356
 Height=528
 Name="form"
 Position=1
}
Add(Font,7588355,420,182)
{
 FontDialog=0
 Point(CharSet)
 link(onFont,669353:doEvent1,[])
}
Add(Button,3473984,371,182)
{
 Left=30
 Top=380
 Width=235
 Align=4
 Caption="font"
 link(onClick,7588355:doFont,[])
}
Add(Hub,13504489,574,238)
{
 link(onEvent1,13716168:doSplit,[])
 link(onEvent2,12890805:doAdd,[(598,251)(598,293)])
}
Add(MultiStrPart,13716168,616,238)
{
}
Add(FontManager,3857989,511,182)
{
 ControlManager="form"
 Point(FontCharset)
}
Add(FormatStr,4342793,518,238)
{
 Mask="%1;%2"
 Point(FString)
 link(onFString,13504489:doEvent1,[])
 link(Str1,3857989:FontColor,[])
 link(Str2,3857989:FontStyle,[(531,226)(538,226)])
}
Add(Hub,669353,476,182)
{
 link(onEvent1,3857989:doSetFont,[])
 link(onEvent2,4342793:doString,[(504,195)(504,244)])
}
Add(RichEdit,12890805,609,287)
{
 Left=30
 Top=50
 Width=290
 Height=290
 Align=5
 Name="Redit"
 Point(doFont)
 link(Color,13716168:Part1,[])
 link(Style,13716168:Part2,[])
}

Изменение других свойств шрифта добавляемой строки doAdd (пока?) не поддерживает.

карма: 1

Форумы Помощь по пакетуОтловить шрифт на выходе ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)