| Графические операторы и вывод текста в клиентской области окна |
|---|
|
Если Вы исполняете свою программу на JScript (или VBScript) под дополнительным
хостом скриптов, то Вы можете обращаться к объекту Window (его методам и свойствам).
Рисуем в клиентской области диалогового окна. Если Вы имеете документацию по Windows API, то Вы можете найти написание по имени метода (например, найдите описание на функцию Rectangle). // Использование графики в скрипте на JScript // Файл: graphics.w_js // ГФ - графические фигуры // Перо устанавливает линию контура для ГФ // Window.SelectPen(lopnStyle,lopnWidth,r,g,b) // lopnStyle: 0 - PS_SOLID // 1 - PS_DASH // 2 - PS_DOT // 3 - PS_DASHDOT // 4 - PS_DASHDOTDOT // Сброс методом Window.DefaultPen() Window.SelectPen(0,1,0,0,0); // Перо - цвет рамки ГФ // Кисть устанавливает способ заливки замкнутой ГФ // Window.SelectBrush(lbStyle,lbHatch,r,g,b) // lbStyle: 0 - BS_SOLID // 1 - BS_HATCHED // 2 - BS_HOLLOW // Сброс методом Window.DefaultBrush() Window.SelectBrush(0,0,255,0,0); // Цвет заливки ГФ // Цвет фоновой заливки для вывода текста // Оператором TextOut (не делает переносов строки6) Window.SetBgColor(255,255,255); // Фон текста (r,g,b) // Цвет букв Window.SetTextColor(0,0,255); Window.TextOut(0,0,60,"Hello, World = Привет, Мир"); // Заливаем цветом кисти прямоуголную область без рамки // id - здесь и далее, некоторый номер строки // "графической программы" (для дин. стирания) // Window.FillRect(id,x1,y1,x2,y2); Window.FillRect(1,0,0,50,50); // Если Вам нужно окно с неким фоном в клиентской области // Window.FillRect(1,0,0,Window.cxClient,Window.cyClient); // Рисуем закрашенный эллипс (круг) с рамкой // Window.Ellipse(id,x1,y1,x2,y2); Window.Ellipse(2,51,0,101,51); // Рисуем прямоугольник с закругленными краями // Window.RoundRect(id,x1,y1,x2,y2,nWidth,nHeight) Window.RoundRect(3,112,0,160,50,8,8); // Рисуем прямоугольник с контуром: // Window.Rectangle(id,x1,y1,x2,y2); Window.Rectangle(4,162,0,220,50); // Рисуем пиксель // Window.SetPixel(id,x,y,r,g,b) Window.SetPixel(5,52,52,0,0,255); // Часть эллипса (круга), отрезанная хордой // Window.Chord(id,x1,y1,x2,y2,nXStart,nYStart,nXEnd,nYEnd) // В конце - 2 (x,y) координаты точек начала и конца хорды Window.Chord(6,222,0,300,50,222,0,300,25); // Аналогично, нечто овальное с вырезанным сектором // Window.Pie(id,x1,y1,x2,y2,nXStart,nYStart,nXEnd,nYEnd) Window.Pie(7,300,0,350,50,300,0,325,25) // Если бы было Window.Arc(7,300,0,350,50,300,0,325,25) // просто "кривая линия" // Можно и просто линию провести // Window.Line(id,x1,y1,x2,y2) Window.Line(8,50,55,300,55);'VBScript: graphics.w_vbs ' GF - graphic figures ' Feather installs line of the sidebar for GF. ' Window.SelectPen lopnStyle,lopnWidth,r,g,b ' lopnStyle: 0 - PS_SOLID ' 1 - PS_DASH ' 2 - PS_DOT ' 3 - PS_DASHDOT ' 4 - PS_DASHDOTDOT Window.SelectPen 0,1,0,0,0 ' Hand installs way of the potting closed GF. ' Window.SelectBrush lbStyle,lbHatch,r,g,b ' lbStyle: 0 - BS_SOLID ' 1 - BS_HATCHED ' 2 - BS_HOLLOW Window.SelectBrush 0,0,255,0,0 ' Colour of the background potting for ' conclusion of the text TextOut only . Window.SetBgColor 255,255,255 ' r,g,b ' The symbols color TextOut only Window.SetTextColor 0,0,255 Window.TextOut 0,0,60,"Hello, World" ' We flood colour of the cyst rectangle area without frame. ' id - The random number ' Window.FillRect id,x1,y1,x2,y2 Window.FillRect 1,0,0,50,50 ' If you it is necessary window with certain background in ' client of the area ' Window.FillRect 1,0,0,Window.cxClient,Window.cyClient ' Window.Ellipse id,x1,y1,x2,y2 Window.Ellipse 2,51,0,101,51 ' We draw rectangle with rounded edge ' Window.RoundRect id,x1,y1,x2,y2,nWidth,nHeight Window.RoundRect 3,112,0,160,50,8,8 ' Window.Rectangle id,x1,y1,x2,y2 Window.Rectangle 4,162,0,220,50 ' Window.SetPixel id,x,y,r,g,b Window.SetPixel 5,52,52,0,0,255 ' Window.Chord id,x1,y1,x2,y2,nXStart,nYStart,nXEnd,nYEnd Window.Chord 6,222,0,300,50,222,0,300,25 ' Window.Pie id,x1,y1,x2,y2,nXStart,nYStart,nXEnd,nYEnd Window.Pie 7,300,0,350,50,300,0,325,25 ' Window.Arc 7,300,0,350,50,300,0,325,25 ' Window.Line id,x1,y1,x2,y2 Window.Line 8,50,55,300,55 |
| Дополнительный хост скриптов. |