Page 1 of 1
Displaying jpg-file dialog box with text
Posted: Wed Mar 26, 2014 12:33 pm
by Eugene Lutsenko
Prompt Please provide as jpg-file to display a dialog box with the text? The figure below where you want to insert the image using PhotoShop
Code: Select all
FUNCTION F1_1()
aSaveMainM := DC_DataSave() // Сохранение вычислительной среды (открытые и текущие БД и индексы)
* DC_DataRest( aSaveMainM ) // Восстановление вычислительной среды (открытые и текущие БД и индексы)
M_Login = "* "
M_Passw = "* "
@0,0 DCGROUP oGroup1 CAPTION 'Задайте имя и пароль:' SIZE 47.0, 3.5
@4,0 DCGROUP oGroup2 CAPTION 'Особенности работы в системе:' SIZE 47.0, 5.5
@1,2 DCSAY "Login :" GET M_Login PASSWORD PARENT oGroup1
@2,2 DCSAY "Password:" GET M_Passw PASSWORD PARENT oGroup1
@1,2 DCSAY "1." PARENT oGroup2;@1,4 DCSAY "Если система в данной папке запускается ВПЕРВЫЕ" PARENT oGroup2
@2,4 DCSAY "надо выполнить режим 1.11 (локализовать систему)" PARENT oGroup2
@3,2 DCSAY "2." PARENT oGroup2;@3,4 DCSAY "Перед тем как запустить новый режим НЕОБХОДИМО" PARENT oGroup2
@4,4 DCSAY "ЗАВЕРШИТЬ предыдущий (Help можно не закрывать)" PARENT oGroup2
DCREAD GUI FIT ADDBUTTONS TITLE "(c) Авторизация в системе ЭЙДОС-X++"
***
Re: Displaying jpg-file dialog box with text
Posted: Wed Mar 26, 2014 5:27 pm
by rdonnay
Use a DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP.
Example:
Code: Select all
@ 2,30 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP CAPTION 'C:\bitmaps\mybitmap.jpg' SIZE 70,70 PIXEL PARENT oGroup1
Re: Displaying jpg-file dialog box with text
Posted: Wed Mar 26, 2014 10:33 pm
by Eugene Lutsenko
Thank you!
All at once perfectly turned out!
Code: Select all
FUNCTION F1_1()
aSaveMainM := DC_DataSave() // Сохранение вычислительной среды (открытые и текущие БД и индексы)
* DC_DataRest( aSaveMainM ) // Восстановление вычислительной среды (открытые и текущие БД и индексы)
M_Login = "* "
M_Passw = "* "
@0,0 DCGROUP oGroup1 CAPTION 'Задайте имя и пароль:' SIZE 47.0, 3.5
@4,0 DCGROUP oGroup2 CAPTION 'Особенности работы в системе:' SIZE 47.0, 5.5
@1,2 DCSAY "Login :" GET M_Login PASSWORD PARENT oGroup1
@2,2 DCSAY "Password:" GET M_Passw PASSWORD PARENT oGroup1
**** Если файл существует изображения и его контрольная сумма совпадает, то он отображается
cFile = Disk_dir+"\_Aidos_gr55.jpg"
IF FILE(cFile)
IF FILECHECK(cFile) = 1847316
@8,245 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP CAPTION cFile SIZE 59,59 PIXEL PARENT oGroup1
ELSE
Mess = 'Графический файл: "#" поврежден и не может быть отображен!'
Mess = STRTRAN(Mess, "#", cFile)
* Mess = STRTRAN(Mess, "#", ALLTRIM(STR(FILECHECK(cFile),21))) // Отображение контрольной суммы файлы
LB_Warning(Mess)
ENDIF
ENDIF
@1,2 DCSAY "1." PARENT oGroup2;@1,4 DCSAY "Если система в данной папке запускается ВПЕРВЫЕ" PARENT oGroup2
@2,4 DCSAY "надо выполнить режим 1.11 (локализовать систему)" PARENT oGroup2
@3,2 DCSAY "2." PARENT oGroup2;@3,4 DCSAY "Перед тем как запустить новый режим НЕОБХОДИМО" PARENT oGroup2
@4,4 DCSAY "ЗАВЕРШИТЬ предыдущий (Help можно не закрывать)" PARENT oGroup2
DCREAD GUI FIT ADDBUTTONS TITLE "(c) Авторизация в системе ЭЙДОС-X++"
***