Tad писал(а):
можно ли создать что то вроде строки Fixedsys,10,1,32768,204Ну кто тебе мешает сделать мультик и прилепить его к комоненту Font. У фонта же можно отключить диалог, и он будет портировать твои данные одним линком в твой компонент. А так придется делать отдельный строковый парсер -- нужен ли этот геморрой всем, кроме тебя
Я встречаю первого, кто это просит.
------------ Дoбавленo:
Вот реализация конвертора StrToFont, и нафиг он не нуже в компоненте
Add(MainForm,14120742,105,112)
{
Left=20
Top=105
}
Add(Font,14252162,238,168)
{
Point(CharSet)
link(onFont,14646169:doFont,[])
link(Size,9765038:Size,[])
link(Color,9765038:Color,[])
link(Name,9765038:Name,[])
link(Style,9765038:Style,[])
link(CharSet,9765038:CharSet,[])
}
Add(MultiElementEx,9765038,238,112)
{
link(onParse,14252162:doFont,[(288,118)(288,146)(226,146)(226,174)])
}
BEGIN_SDK
Add(EditMultiEx,10566371,21,21)
{
WorkCount=#7:doParse|11:doSetString|
EventCount=#7:onParse|
VarCount=#4:Size|5:Color|4:Name|5:Style|7:CharSet|
Width=349
link(doParse,16529902:doClear,[(39,27)(39,90)])
link(doSetString,16529902:doValue,[(39,34)(39,83)])
link(Size,2048869:Left,[(27,165)(160,165)])
link(Color,3562367:Left,[(34,165)(258,165)])
link(Name,9588504:Left,[(41,165)(111,165)])
link(Style,3849622:Left,[(48,165)(209,165)])
link(CharSet,7527874:Value,[(55,165)(314,165)])
}
Add(StrPart,9588504,105,77)
{
Char=","
Point(Left)
link(onSplit,2048869:doSplit,[])
}
Add(Memory,16529902,56,77)
{
Default=String(Arial,16,1,32768,204)
MakeExt(Default,FontString,String)
link(onData,9588504:doSplit,[])
}
Add(StrPart,2048869,154,77)
{
Char=","
Point(Left)
link(onSplit,3849622:doSplit,[])
}
Add(StrPart,3849622,203,77)
{
Char=","
Point(Left)
link(onSplit,3562367:doSplit,[])
}
Add(StrPart,3562367,252,77)
{
Char=","
Point(Left)
link(onSplit,7527874:doValue,[])
}
Add(Memory,7527874,308,77)
{
link(onData,10566371:onParse,[(355,83)(355,27)])
}
END_SDK
Add(Button,15533860,161,112)
{
Left=20
Top=50
Caption="SetFont"
link(onClick,9765038:doParse,[])
}
Add(Memo,14646169,315,126)
{
Left=95
Top=50
Width=190
Height=200
Point(doFont)
}
Пардонс, не то кинул, Rich не поддерживает такое управление цветом, заменено на Memo