Как применить цвет и стиль шрифта в Print?

Форумы Между деломКак применить цвет и стиль шрифта в Print? ← Ctrl1Ctrl →

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

Ответов: 1263

Рейтинг: 47

#1: 2019-03-03 15:48:00 ЛС | профиль | цитата

То есть в Document Template. Чето не выходит:

Add(MainForm,11160845,21,0)
{
 Width=373
 Height=245
 Caption="Text control"
 link(onCreate,16538310:doEvent1,[])
}
Add(DocumentTemplate,3449277,133,63)
{
 Name="doc"
 link(Bitmap,16302917:Bitmap,[])
}
BEGIN_SDK
  Add(Print_Text,5788299,126,77)
  {
   X=129
   Y=80
   Width=99
   Height=25
   Text="www.hiasm.com"
   Font=[MS Sans Serif,8,4,16711680,1]
  }
  Add(Print_Text,13825644,7,21)
  {
   Name="text"
   X=10
   Y=24
   Width=218
   Height=46
   Text="---"
  }
END_SDK
Add(PaintBox,16302917,133,14)
{
 Left=40
 Top=70
 Width=265
 Height=105
 Color=16777215
 ClearBeforeDraw=0
 link(onBeforeDraw,3449277:doDraw,[(178,20)(178,54)(121,54)(121,69)])
}
Add(Edit,14267396,0,63)
{
 Left=40
 Top=30
 Width=265
 link(onChange,15034064:doEvent1,[])
}
Add(PC_Text,4695198,77,63)
{
 ItemName="text"
 Document="doc"
 FontApply=0
 Point(doFont)
 Point(doFontApply)
 link(onText,5526886:doWork3,[(116,69)])
}
Add(HubEx,5526886,105,7)
{
 link(onEvent,16302917:doRefresh,[])
}
Add(Font,9564278,70,126)
{
 FontDialog=0
 Point(FontName)
 Point(FontColor)
 Point(FontSize)
 Point(FontStyle)
 Point(FontStrStyle)
 Point(FontCharSet)
 link(onFont,4695198:doFont,[(127,132)(127,104)(65,104)(65,76)])
}
Add(Hub,16538310,70,14)
{
 link(onEvent2,5526886:doWork2,[(95,27)(95,13)])
}
Add(BitBtn,10104311,42,217)
{
 Left=220
 Top=5
 link(onClick,9564278:doFont,[(86,223)(86,177)(58,177)(58,132)])
}
Add(Hub,15034064,42,63)
{
 link(onEvent1,4695198:doFontApply,[(66,69)(66,83)])
 link(onEvent2,4695198:doText,[(66,76)(66,69)])
}

Редактировалось 1 раз(а), последний 2019-03-03 16:01:42

карма: 3

Hiasm + Flowstone + CopperCube + GoDot + JS

Google vip	#1.1контекстная реклама от партнеров

Разработчик

Ответов: 26061

Рейтинг: 2120

#2: 2019-03-03 19:43:39 ЛС | профиль | цитата

После изменения параметров необходимо использовать метод doSetStyle

Схема

Add(MainForm,11160845,203,84)
{
 Width=373
 Height=245
 Caption="Text control"
 link(onCreate,16538310:doEvent1,[])
}
Add(DocumentTemplate,3449277,315,189)
{
 Name="doc"
 link(Bitmap,16302917:Bitmap,[])
}
BEGIN_SDK
  Add(Print_Text,5788299,126,77)
  {
   X=129
   Y=80
   Width=99
   Height=25
   Text="www.hiasm.com"
   Font=[MS Sans Serif,8,4,16711680,1]
  }
  Add(Print_Text,13825644,7,21)
  {
   Name="text"
   X=10
   Y=24
   Width=218
   Height=46
   Text="Test"
  }
END_SDK
Add(PaintBox,16302917,315,105)
{
 Left=40
 Top=70
 Width=265
 Height=105
 Color=16777215
 ClearBeforeDraw=0
 link(onBeforeDraw,3449277:doDraw,[(360,111)(360,180)(303,180)(303,195)])
}
Add(Edit,14267396,133,217)
{
 Left=40
 Top=30
 Width=265
 link(onChange,4695198:doText,[])
}
Add(PC_Text,4695198,231,217)
{
 ItemName="text"
 Document="doc"
 FontApply=0
 Point(doFont)
 Point(doSetStyle)
 Point(onSetStyle)
 link(onText,13481460:doWork2,[])
 link(onSetStyle,13481460:doWork3,[(291,230)])
}
Add(HubEx,5526886,287,105)
{
 link(onEvent,16302917:doRefresh,[])
}
Add(Font,9564278,119,161)
{
 FontDialog=0
 Point(FontName)
 Point(FontColor)
 Point(FontSize)
 Point(FontStyle)
 Point(FontStrStyle)
 Point(FontCharSet)
 link(onFont,7970048:doEvent1,[])
}
Add(Hub,16538310,252,98)
{
 link(onEvent2,5526886:doWork2,[])
}
Add(BitBtn,10104311,63,161)
{
 Left=220
 Top=5
 link(onClick,9564278:doFont,[])
}
Add(Hub,7970048,175,161)
{
 link(onEvent1,4695198:doFont,[(221,167)(221,230)])
 link(onEvent2,4695198:doSetStyle,[(207,174)(207,237)])
}
Add(HubEx,13481460,287,217)
{
 Angle=3
 link(onEvent,5526886:doWork3,[])
}

Редактировалось 1 раз(а), последний 2019-03-03 19:44:00

карма: 22

Ответов: 1263

Рейтинг: 47

#3: 2019-03-03 20:19:02 ЛС | профиль | цитата

nesco, спасибо большое!

карма: 3

Hiasm + Flowstone + CopperCube + GoDot + JS

Форумы Между деломКак применить цвет и стиль шрифта в Print? ← Ctrl1Ctrl →


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