HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетупечать через точку doPrintDlg ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 223
Рейтинг: 24
#1: 2015-04-02 16:31:07 ЛС | профиль | цитата
Ребята подскажите как напечатать страницу через точку doPrintDlg.
code_35437.txt
карма: 0

0
файлы: 1code_35437.txt [1.9KB] [137]
Разработчик
Ответов: 26170
Рейтинг: 2127
#2: 2015-04-02 17:00:41 ЛС | профиль | цитата
А так не проще, вроде и печатает нормально.

Add(MainForm,10109243,539,308)
{
 Width=477
 Height=476
 link(onCreate,13572165:doRefresh,[])
}
Add(PaintBox,13572165,602,322)
{
 Left=15
 Top=65
 Width=435
 Height=360
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 link(onBeforeDraw,13697224:doData,[])
}
Add(Printer,1749426,448,308)
{
 Point(doSettings)
 Point(doPrintDlg)
 link(onPrint,4383238:doDraw,[(487,314)(487,300)(347,300)(347,412)])
}
Add(Button,14750884,357,322)
{
 Left=20
 Top=20
 Width=60
 Height=30
 Layout="vert"
 Caption="Print"
 link(onClick,1749426:doPrintDlg,[])
}
Add(DoData,13697224,658,322)
{
 link(onEventData,15557505:doDraw,[(697,328)(697,447)(592,447)(592,412)])
}
Add(DocumentTemplate,15557505,602,406)
{
 Name="MainPage"
 Point(doDrawSource)
 link(Bitmap,12701009:Var2,[])
}
BEGIN_SDK
  Add(Print_Table,15348492,32,97)
  {
   Name="mtable"
   X=35
   Y=100
   Width=357
   Height=973
   Columns=#13:Process|161|0|10:Class|91|0|11:Handle|70|0|
   HeadFont=[MS Sans Serif,8,1,0,1]
   Cells=#3:1|||3:2|||3:3|||3:4|||3:5|||3:6|||3:7|||
   CellBackColor=12639424
   CBorderColor=32896
   Left=5
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(Img_Bmp,4383238,448,406)
{
 X=172
 Y=10
 DrawSource=2
 Point(doDrawSource)
 link(Bitmap,1749426:Context,[])
 link(SourceBitmap,12701009:Var1,[(461,369)])
}
Add(GetDataEx,12701009,602,364)
{
 link(Data,13572165:Bitmap,[])
}


ХЗ почему-то этот метод не хочет работать без уже готового контекста, те напрямую
карма: 22

1
Голосовали:wasya
Ответов: 223
Рейтинг: 24
#3: 2015-04-02 17:05:55 ЛС | профиль | цитата
решил так ,спасибо nesco
code_35438.txt
------------ Дoбавленo в 17.05:
решил так ,спасибо nesco 
Add(MainForm,2953706,203,203)
{
 Width=477
 Height=476
 link(onCreate,14932030:doEvent1,[])
}
Add(PaintBox,13572165,434,112)
{
 Left=15
 Top=65
 Width=435
 Height=360
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 link(onBeforeDraw,12239255:doWork2,[])
}
Add(Printer,1749426,322,63)
{
 Point(doSettings)
 link(onPrint,13696494:doEvent1,[])
}
Add(Button,14750884,203,70)
{
 Left=20
 Top=20
 Width=60
 Height=30
 Color=30
 Layout="vert"
 Caption="Print"
 link(onClick,1749426:doPrintDlg,[])
}
Add(Hub,8274976,287,147)
{
 link(onEvent1,3366320:doData,[])
 link(onEvent2,5259618:doWork3,[(399,160)(399,244)])
}
Add(DoData,3366320,322,147)
{
 link(onEventData,2237615:doWork2,[])
 link(Data,1749426:Context,[])
}
Add(Memory,13584946,567,147)
{
}
Add(Hub,14932030,294,217)
{
 OutCount=3
 link(onEvent1,1530898:doData,[])
 link(onEvent2,5259618:doWork1,[])
 link(onEvent3,13572165:doRefresh,[(371,237)(371,118)])
}
Add(DoData,1530898,434,217)
{
 link(onEventData,2237615:doWork3,[(480,223)])
 link(Data,13572165:Bitmap,[])
}
Add(HubEx,2237615,476,147)
{
 link(onEvent,13584946:doValue,[])
}
Add(DoData,13697224,490,112)
{
 link(onEventData,15557505:doDraw,[(544,118)(544,223)])
}
Add(ChanelToIndex,5259618,497,224)
{
 Count=3
 link(onIndex,15557505:doDrawSource,[])
}
Add(HubEx,12239255,475,112)
{
 link(onEvent,13697224:doData,[])
}
Add(DocumentTemplate,15557505,567,217)
{
 DrawSource=2
 Name="MainPage"
 Point(doDrawSource)
 link(Bitmap,13584946:Value,[])
}
BEGIN_SDK
  Add(Print_Table,15348492,32,97)
  {
   Name="mtable"
   X=35
   Y=100
   Width=357
   Height=973
   Columns=#13:Process|161|0|10:Class|91|0|11:Handle|70|0|
   HeadFont=[MS Sans Serif,8,1,0,1]
   Cells=#3:1|||3:2|||3:3|||3:4|||3:5|||3:6|||3:7|||
   CellBackColor=12639424
   CBorderColor=32896
   Left=5
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(Hub,13696494,378,63)
{
 link(onEvent1,8274976:doEvent1,[(404,69)(404,118)(268,118)(268,153)])
 link(onEvent2,12239255:doWork1,[(479,76)])
}
карма: 0

0
файлы: 1code_35438.txt [1.9KB] [138]
Разработчик
Ответов: 26170
Рейтинг: 2127
#4: 2015-04-02 17:25:49 ЛС | профиль | цитата
Хм. Я вообще телодвижений с переписыванием указателей контекстов вообще не понял. Все это решается в разы проще

Add(MainForm,4737708,224,308)
{
 Width=477
 Height=476
 link(onCreate,13572165:doRefresh,[])
}
Add(PaintBox,13572165,301,322)
{
 Left=15
 Top=65
 Width=435
 Height=360
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(onPaint)
 link(onPaint,12239255:doWork2,[])
}
Add(Printer,1749426,301,245)
{
 Point(doSettings)
 Point(doPrintDlg)
 link(onPrint,12239255:doWork1,[(374,251)])
}
Add(Button,14750884,224,259)
{
 Left=20
 Top=20
 Width=60
 Height=30
 Layout="vert"
 Caption="Print"
 link(onClick,1749426:doPrintDlg,[])
}
Add(HubEx,12239255,370,329)
{
 link(onEvent,15557505:doDraw,[])
}
Add(DocumentTemplate,15557505,413,329)
{
 DrawSource=2
 Name="MainPage"
}
BEGIN_SDK
  Add(Print_Table,15348492,32,97)
  {
   Name="mtable"
   X=35
   Y=100
   Width=357
   Height=973
   Columns=#13:Process|161|0|10:Class|91|0|11:Handle|70|0|
   HeadFont=[MS Sans Serif,8,1,0,1]
   Cells=#3:1|||3:2|||3:3|||3:4|||3:5|||3:6|||3:7|||
   CellBackColor=12639424
   CBorderColor=32896
   Left=5
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
карма: 22

0
Ответов: 223
Рейтинг: 24
#5: 2015-04-02 17:33:35 ЛС | профиль | цитата
nesco это просто супер...
------------ Дoбавленo в 17.33:
схему делал из примеров по печати ...
карма: 0

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#6: 2015-04-02 17:38:02 ЛС | профиль | цитата
wasya писал(а):
то просто супер...

Там от формы можно вообще выкинуть связь. Событие onPaint работает вообще от любого чиха

Add(MainForm,4737708,224,322)
{
 Width=477
 Height=476
}
Add(PaintBox,13572165,301,322)
{
 Left=15
 Top=65
 Width=435
 Height=360
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 Point(onPaint)
 link(onPaint,12239255:doWork2,[])
}
Add(Printer,1749426,301,245)
{
 Point(doSettings)
 Point(doPrintDlg)
 link(onPrint,12239255:doWork1,[(374,251)])
}
Add(Button,14750884,224,259)
{
 Left=20
 Top=20
 Width=60
 Height=30
 Layout="vert"
 Caption="Print"
 link(onClick,1749426:doPrintDlg,[])
}
Add(HubEx,12239255,370,329)
{
 link(onEvent,15557505:doDraw,[])
}
Add(DocumentTemplate,15557505,413,329)
{
 DrawSource=2
 Name="MainPage"
}
BEGIN_SDK
  Add(Print_Table,15348492,32,97)
  {
   Name="mtable"
   X=35
   Y=100
   Width=357
   Height=973
   Columns=#13:Process|161|0|10:Class|91|0|11:Handle|70|0|
   HeadFont=[MS Sans Serif,8,1,0,1]
   Cells=#3:1|||3:2|||3:3|||3:4|||3:5|||3:6|||3:7|||
   CellBackColor=12639424
   CBorderColor=32896
   Left=5
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK


wasya писал(а):
схему делал из примеров по печати ...


Я так и понял. Но там отрисовывается на битмапе PrintBox-a. Я бы это немного по-другому сделал, через контекст с отключением точки onPaint
карма: 22

1
Голосовали:wasya
Ответов: 223
Рейтинг: 24
#7: 2015-04-02 17:57:13 ЛС | профиль | цитата
Это полная схема...которую я хочу использовать.Ее как - то можно упростить
code_35439.txt
------------ Дoбавленo в 17.57:
Зарание спасибо
карма: 0

0
файлы: 1code_35439.txt [2.1KB] [146]
Разработчик
Ответов: 26170
Рейтинг: 2127
#8: 2015-04-02 23:27:48 ЛС | профиль | цитата 
Add(MainForm,16158445,553,217)
{
 Width=718
 Height=416
 link(onCreate,13572165:doRefresh,[])
}
Add(PaintBox,13572165,637,231)
{
 Left=15
 Top=65
 Width=410
 Height=285
 Color=16777215
 Layout="horz"
 WidthScale=100
 HeightScale=100
 ClearBeforeDraw=0
 link(onBeforeDraw,15557505:doDraw,[(676,237)(676,223)(627,223)(627,307)])
}
Add(DocumentTemplate,15557505,637,301)
{
 Name="MainPage"
 link(onDraw,8695917:doLoad,[])
 link(Bitmap,10242938:Var2,[])
}
BEGIN_SDK
  Add(Print_Table,15348492,18,20)
  {
   Name="mtable"
   X=21
   Y=23
   Width=357
   Height=973
   Columns=#13:Process|161|0|10:Class|91|0|11:Handle|70|0|
   HeadFont=[MS Sans Serif,8,1,0,1]
   Cells=#3:1|||3:2|||3:3|||3:4|||3:5|||3:6|||3:7|||
   CellBackColor=12639424
   CBorderColor=32896
   Left=5
   RowHeight=20
   Spacing=1
   TBorderStyle=5
   TableTrans=0
  }
END_SDK
Add(Image,8695917,700,301)
{
 Left=435
 Top=160
 Width=225
 Height=190
 link(Bitmap,12586656:Var2,[])
}
Add(GetDataEx,10242938,637,273)
{
 link(Data,13572165:Bitmap,[])
}
Add(GetDataEx,12586656,700,273)
{
 Angle=3
 link(Data,10242938:Var3,[])
}
Add(Printer,1749426,777,217)
{
 Point(doSettings)
 Point(doPrintDlg)
 link(onPrint,4383238:doDraw,[(816,223)(816,342)(767,342)(767,307)])
}
Add(Button,14750884,700,231)
{
 Left=20
 Top=20
 Width=60
 Height=30
 Layout="vert"
 Caption="Print"
 link(onClick,1749426:doPrintDlg,[])
}
Add(Img_Bmp,4383238,777,301)
{
 X=172
 Y=10
 DrawSource=2
 Point(doDrawSource)
 link(Bitmap,1749426:Context,[])
 link(SourceBitmap,12586656:Var3,[(790,278)])
}
карма: 22

0
8
ФорумыПомощь по пакетупечать через точку doPrintDlg ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика