1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
/*-----------------------------------------------------------------------------------*/
/* INRIA 2005 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#include "FigureToPrint.h"
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
/*-----------------------------------------------------------------------------------*/
extern HINSTANCE hdllInstance;
extern int WindowsPrintScreen;
extern int Printer_XRes;
extern int Printer_YRes;
extern void dos2win32 (char *filename, char *filename1);
extern char GetPrinterOrientation(void);
extern void Setscig_buzyState(BOOL state);
/*-----------------------------------------------------------------------------------*/
#define MAXSTR 255
static char filename[MAXSTR], filename1[MAXSTR];
extern LS ls;
/*-----------------------------------------------------------------------------------*/
BOOL FigureToPrint(int figurenumber,BOOL Postscript)
{
BOOL bOK=FALSE;
struct BCG *ScilabGC=NULL;
ScilabGC = GetWindowXgcNumber (figurenumber);
if (ScilabGC)
{
if (Postscript)
{
PrintPs (ScilabGC);
}
else
{
CopyPrint (ScilabGC);
}
bOK=TRUE;
}
else bOK=FALSE;
return bOK;
}
/*-----------------------------------------------------------------------------------*/
int CopyPrint (struct BCG *ScilabGC)
{
int xPage, yPage;
static DOCINFO di = {sizeof (DOCINFO), MSG_SCIMSG12, NULL};
BOOL bError = FALSE;
HDC hDCfromhWnd=NULL;
HDC printer=NULL;
LPGW lpgw;
ABORTPROC lpfnAbortProc;
DLGPROC lpfnPrintDlgProc;
static PRINTDLG pd;
HWND hwnd;
RECT rect,RectRestore;
PRINT pr;
integer SaveCurrentWindow=0;
SaveCurrentWindow=GetCurrentFigureWindows();
Setscig_buzyState(TRUE);
SetCurrentFigureWindows (ScilabGC->CurWindow);
lpgw = ScilabGC->lpgw;
hwnd = ScilabGC->CWindow;
hDCfromhWnd=TryToGetDC (hwnd);
printer = (HDC)GetPrinterDC();
if (NULL == printer)
{
/* Redessine si Cancel Impression */
GetClientRect (hwnd, &RectRestore);
scig_replay_hdc ('W', ScilabGC->CurWindow, hDCfromhWnd,RectRestore.right - RectRestore.left, RectRestore.bottom - RectRestore.top, 1);
Setscig_buzyState(FALSE);
return TRUE; /* abort */
}
pr.hdcPrn = printer;
xPage = GetDeviceCaps (pr.hdcPrn, HORZRES);
yPage = GetDeviceCaps (pr.hdcPrn, VERTRES);
GetClientRect (hwnd, &rect);
SetLastError (0);
if (SetWindowLong (hwnd, 4, (LONG) ((LP_PRINT) & pr)) == 0 && GetLastError () != 0)
{
sciprint (MSG_ERROR34);
Setscig_buzyState(FALSE);
return TRUE;
}
if (SetWindowLong(ScilabGC->hWndParent, 4, (LONG) ((LP_PRINT) & pr)) == 0 && GetLastError () != 0)
{
sciprint (MSG_ERROR34);
Setscig_buzyState(FALSE);
return TRUE;
}
PrintRegister ((LP_PRINT) & pr);
EnableWindow (hwnd, FALSE);
pr.bUserAbort = FALSE;
lpfnPrintDlgProc = (DLGPROC) MyGetProcAddress ("PrintDlgProc",PrintDlgProc);
lpfnAbortProc = (ABORTPROC) MyGetProcAddress ("PrintAbortProc",PrintAbortProc);
pr.hDlgPrint = CreateDialogParam (hdllInstance, "PrintDlgBox", hwnd, lpfnPrintDlgProc, (LPARAM) lpgw->Title);
SetAbortProc (pr.hdcPrn, lpfnAbortProc);
if (StartDoc (pr.hdcPrn, &di) > 0)
{
if (StartPage (pr.hdcPrn) > 0)
{
int scalef = 1;
SetMapMode (pr.hdcPrn, MM_TEXT);
SetBkMode (pr.hdcPrn, TRANSPARENT);
SetTextAlign (pr.hdcPrn, TA_LEFT | TA_BOTTOM);
scalef = (int) (10.0 * ((double) xPage * yPage) / (6800.0 * 4725.0));
GetClientRect (hwnd, &RectRestore);
/* Evite bug lorsque l'on selectionne la fenetre & que l'on imprime apres */
scig_replay_hdc ('P', ScilabGC->CurWindow, hDCfromhWnd,RectRestore.right - RectRestore.left, RectRestore.bottom - RectRestore.top, 1);
WindowsPrintScreen = 1;
Printer_XRes = GetDeviceCaps (pr.hdcPrn, LOGPIXELSX);
Printer_YRes = GetDeviceCaps (pr.hdcPrn, LOGPIXELSY);
scig_replay_hdc ('P', ScilabGC->CurWindow, printer,xPage, yPage, scalef);
WindowsPrintScreen = 0;
/* Redessine l'ecran apres l'impression */
scig_replay_hdc ('W', ScilabGC->CurWindow,hDCfromhWnd,RectRestore.right - RectRestore.left, RectRestore.bottom - RectRestore.top, 1);
if (EndPage (pr.hdcPrn) > 0) EndDoc (pr.hdcPrn);
else bError = TRUE;
}
}
else bError = TRUE;
if (!pr.bUserAbort)
{
EnableWindow (hwnd, TRUE);
DestroyWindow (pr.hDlgPrint);
}
if (printer) {DeleteDC (printer); printer=NULL;}
SetWindowLong (hwnd, 4, (LONG) (0L));
SetWindowLong (ScilabGC->hWndParent, 4, (LONG) (0L));
PrintUnregister ((LP_PRINT) & pr);
ReleaseDC (hwnd, hDCfromhWnd);
SetCurrentFigureWindows (SaveCurrentWindow);
Setscig_buzyState(FALSE);
InvalidateRect(hwnd,NULL,TRUE);
return bError || pr.bUserAbort;
}
/*-----------------------------------------------------------------------------------*/
void PrintPs (struct BCG *ScilabGC)
{
HDC hPrinterDC=NULL;
char *p1;
char ori;
/** getting ls flags **/
ls.use_printer = 1;
ls.colored = 1;
hPrinterDC=GetPrinterDC(); // Just to Configure Printer
if (hPrinterDC) {DeleteDC(hPrinterDC);hPrinterDC=NULL;}
/** getting filename **/
if ((p1 = getenv ("TMPDIR")) == (char *) 0)
{
sciprint (MSG_WARNING15);
return;
}
sprintf (filename, "%s/scilab-%d", p1, (int) ScilabGC->CurWindow);
dos2win32 (filename, filename1);
scig_tops (ScilabGC->CurWindow, ls.colored, filename1, "Pos");
ori =GetPrinterOrientation();
if (ScilabPsToEps (ori, filename1, filename) == 0)
{
if (gp_printfile (hdllInstance, ScilabGC->hWndParent, filename,(char *) 0) == FALSE) sciprint (MSG_ERROR78);
}
/** filename is destroyed when we quit scilab **/
}
/*-----------------------------------------------------------------------------------*/
|
