Добрый день Александр! Появилось время посмотреть и сразу кучка непоняток
[img]https://storage.olegon.ru/supermag/ЕГАИС%20и%20УТМ/errhwgui1.jpg[/img]
#include "windows.ch"
#include "guilib.ch"
#define CRLF (CHR(13)+CHR(10))
#define TRUE .T.
#define FALSE .F.
// Мои любимые команды
#xcommand FOR <i>:=<s> TO <n> DO <*statement*> =>;
FOR <i>:=<s> TO <n> ; <statement> ; END
#xcommand IF <cond> THEN <*statement*> =>;
IF <cond> ; <statement>; ENDIF
#xcommand DEFAULT <p> TO <v> [, <p2> TO <v2> ] => ;
<p> := IF(<p> == NIL, <v>, <p>) ;
[; <p2> := IF (<p2> == NIL, <v2>, <p2>) ]
// Список настраиваемых цветов программы
STAT cgBackCol := "000033" // Фон для контролов
STAT cgColor := "ffff99" // Шрифт для контролов
STAT cgCodePage := "RU866" // Кодовая страница внешних Dbf файлов
// Глобальные для программы переменные, вызываемые из разных процедур
STAT oBitmap // Картинка QR кода отражаемая на экране
STAT oBtmp // Объект BITMAP
*STAT oEdit // Объект преобразуемого кода
* --------------------------------------------------------------------------------------------------
* Освоение окон и меню
PROC Main()
LOCA nWidthScr := hwg_GetDesktopWidth() // Ширина экрана в пикселах.
LOCA nHeightScr := hwg_GetDesktopHeight() // Высота экрана в пикселах.
LOCA nwW:=0, nwH:=0, nbW:=0, nbH:=0, nControl:=0, nTop:=0
LOCA oFont, oArial, oeW, oeH
LOCA oIcon:= HIcon():AddFile("Bob.ico")
PRIV oEdit
// Даю стартовую картинку. При вводе знаков генерации QR кода она будет перерисовываться
oBitmap := HBitmap():AddFile("Zhdun.bmp")
PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
PREPARE FONT oArial NAME "Arial Cyr" WEIGHT 700 HEIGHT -12
// Инициализация главного окна - размер в половину экрана
// Размеры главного окна - позиционирование других контролов
nwW := Int(nWidthScr/2) // Ширина окна
nwH := Int(nHeightScr/2) // Высота окна
INIT WINDOW oMainWind MAIN;
TITLE " Ввод, отражение в главном окне и печать QR кода";
ICON oIcon FONT oFont;
AT 1,1 SIZE nwW,nwH BACKCOLOR hwg_ColorC2N("cccccc")
oMainWind:Center() // Центрирую окно
// Расчет размера картинки в четверть исходного окна
nbW := Int(nwW/4)
nbH := Int(nwH/4)
// Рисую картинку по центру в половину окна - команда растягивает на всю указанную область - это лучше, чем фон окна
@ Int(nWidthScr/5.6),Int(nHeightScr/7) BITMAP oBitmap ID 1001 SIZE nbW, nbH ON CLICK {||pDemo()}
*********************
* Правильно ли понимаю, что ряд команд не "возвращает" объект и его приходится определять через опу
// Определяю глобальный объект контрола из потокового автоматического добавления в массив контролов
nControl := Len(oMainWind:aControls)
oBtmp := oMainWind:aControls[nControl]
********************
* Криво отражается обрамление на W10 что видно на скрине
oBtmp:nBorder := 10
//*** Добавляю контролы для ввода информации и кнопки, вызывающие действия над картинкой QR кода
// Координаты верхней линии объектов
nTop := nwH - 70
// Область ввода преобразуемых знаков
@ 10,nTop-26 SAY "Внесите знаки: " FONT oArial SIZE 200, 26 BACKCOLOR hwg_ColorC2N("cccccc")
* @ 106,nTop-30 EDITBOX oEdit SIZE 390, 56 ON LOSTFOCUS {||lChBitmap()} STYLE ES_MULTILINE
@ 106,nTop-30 EDITBOX oEdit SIZE 390, 56 STYLE ES_MULTILINE
@ 10,nTop BUTTON "Показать" SIZE 80, 26 ON CLICK {||lChBitmap()}
// Активируются все объекты окна и ожидание события
**************************
* Вылет при выполнеии
* oEdit:SetFocus()
* Error BASE/1004 Class: 'NIL' has no exported method: SETFOCUS
ACTIVATE WINDOW oMainWind
RETU
* --------------------------------------------------------------------------------------------------
* При вводе знаков генерации QR кода, а точнее при потере фокуса на EDIT она будет перерисовываться
FUNC lChBitmap()
* LOCA cTxt:="17N00000ABLPONIUZUK05Z0212110060000251417714923913814124721320664222"
LOCA cPict:="" // cTxt:=Alltrim(oEdit:value)
***********************************************
* Вылет при любой ссылки на объект oEdit при любом назначении, что PRIV, что STAT
LOCA cTxt:=Alltrim(MEMV->oEdit:GetText())
hwg_Msginfo(cTxt)
// Не преобразую, если ничего не введено
IF Empty(cTxt) THEN RETU .F.
// Создаю новый файл картинки QR кода и перегружаю его в объект
cPict := cQRGen(cTxt,"","qr.bmp")
* hwg_Msginfo(cPict)
* MEMV->oBtmp:Release()
* MEMV->oBitmap := HBitmap():AddFile(cPict)
* MEMV->oBtmp:Refresh()
RETU .F.
* --------------------------------------------------------------------------------------------------
* Процедура заглушка для разрабатываемых режимов
PROC pDummy()
RETU
* --------------------------------------------------------------------------------------------------
* Проверка переданных параметров
PROC pDemo()
LOCA nW:=hwg_GetDesktopWidth(), nH:=hwg_GetDesktopHeight()
* LOCA nwW:=oMainWind:Width, nwH:=oMainWind:Height
* hwg_Msginfo("Ширина экрана: "+Str(nW)+" высота экрана: "+Str(nH)+CRLF+"Ширина окна: "+Str(nwW)+" высота окна: "+Str(nwH))
hwg_Msginfo("Ширина экрана: "+Str(nW)+" высота экрана: "+Str(nH)+CRLF+"Количество контролов: "+Str(Len(oMainWind:aControls)))
RETU
- участник сейчас на форуме
- участник вне форума