Displaying jpg-file dialog box with text

[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++"
***

[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

[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++"
***