Bitmap на MDI окне

Форум » GUI » Bitmap на MDI окне - HWGui » Ответить

Bitmap на MDI окне - HWGui

mosh: Возникает только на доли секунды, потом заменяется противным серым фоном. Неужели никто не сталкивался с этой проблемой?

Ответов - 13

yury: Не сталкивался. Желательно пример приводить. Вот тестовый пример выводящий битмап в МДИ #include "hwgui.ch" function Main Local oMainWindow INIT WINDOW oMainWindow MDI TITLE "Test MDI BMP" MENU OF oMainWindow MENU TITLE "&File" MENUITEM "&New" ACTION CreateMDIWindow() SEPARATOR MENUITEM "&Exit" ACTION EndWindow() ENDMENU ENDMENU oMainWindow:Activate() Return nil Function CreateMDIWindow Local oChildWnd INIT WINDOW oChildWnd MDICHILD TITLE "Test BMP" STYLE WS_VISIBLE + WS_OVERLAPPEDWINDOW @ 15,10 BITMAP ".\mybmp.bmp" oChildWnd:Activate() Return Nil Работает.

mosh: Я пытаюсь поместить битмар (логотип) на главном окне Если Ваш пример изменить, это будет выглядеть так : ----------------------------- #include "hwgui.ch" function Main Local oMainWindow INIT WINDOW oMainWindow MDI TITLE "Test MDI BMP" MENU OF oMainWindow MENU TITLE "&File" MENUITEM "&New" ACTION CreateMDIWindow() SEPARATOR MENUITEM "&Exit" ACTION EndWindow() ENDMENU ENDMENU oMainWindow:Activate() @ 15,10 BITMAP ".\mybmp.bmp" Return nil Function CreateMDIWindow Local oChildWnd INIT WINDOW oChildWnd MDICHILD TITLE "Test BMP" STYLE WS_VISIBLE + WS_OVERLAPPEDWINDOW oChildWnd:Activate() Return Nil

mosh: ПС строчку @ 15,10 BITMAP ".\mybmp.bmp" нужно читать конечно перед oMainWindow:Activate()

yury: Я бы пользовался свойством окна BACKGROUND для этого. Типа INIT WINDOW oMainWindow MDI TITLE "Test MDI BMP"; BACKGROUND BITMAP HBitmap():AddFile('hwgui.jpg') Как-то так.. Хотя на мой вкус лучше показывать сплеш с логотипом, чем все время маячить картинкой перед глазами юзера П.С. а битмап лучше выводить как объект , то есть в первом примере oBmp := HBitmap() @ 15,10 BITMAP oBmp SHOW ".\hwgui.jpg" Как-то так...

mosh: Спасибо, но битмапа никакого я все равно не вижу...

AlexMyr: Вот пример, bmp лежит рядом, все работает и показывает (работаю с Harbour). #include "windows.ch" #include "guilib.ch" static aChilds := {} function Main() Local oMainWindow INIT WINDOW oMainWindow MAIN TITLE "HwGui - Child Windows Example" MENU OF oMainWindow MENUITEM "&Exit" ACTION EndWindow() ENDMENU @10,10 bitmap "ok.bmp" ACTIVATE WINDOW oMainWindow return (NIL)

mosh: АлексMyr, в этом примере главное окон не задано как МДИ, поэтому и работает

AlexMyr: Да, действительно не работает.

yury: Спасибо, но битмапа никакого я все равно не вижу... Удивительное рядом .. Но оно запрещено #include "windows.ch" #include "guilib.ch" function Main() Local oMainWindow INIT WINDOW oMainWindow MDI TITLE "Test MDI BMP"; BACKGROUND BITMAP HBitmap():AddFile('hwgui.jpg') MENU OF oMainWindow MENUITEM "&Exit" ACTION EndWindow() ENDMENU ACTIVATE WINDOW oMainWindow return nil Не надо выводить битмап дополнительно. Просто указать в свойствах окна как BACKGROUND А вывод в главное окно МДИ приведет к глюкам. Так МДИ устроен . Больше у меня вариантов нет.

mosh: Yury, Этот пример у меня тоже не работает.

AlexMyr: #include "windows.ch" #include "guilib.ch" function Main() Local oMainWindow INIT WINDOW oMainWindow MDI TITLE "Test MDI BMP"; BACKGROUND BITMAP HBitmap():AddFile('setup.jpg') MENU OF oMainWindow MENUITEM "&Exit" ACTION EndWindow() ENDMENU ACTIVATE WINDOW oMainWindow return nil Результат:

mosh: AlexMyr пишет: Результат: У меня такой пример не работает. Очень странно. Может проблема в версиях? Я имею : xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6733) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ и #define HWG_VERSION "2.17" А какие у Вас?

AlexMyr: Harbour 2.1.0beta2 (Rev. 15840) Copyright (c) 1999-2010, http://harbour-project.org/ Harbour Build Info --------------------------- Version: Harbour 2.1.0beta2 (Rev. 15840) Compiler: MinGW GNU C 4.5 (32-bit) Platform: Windows Vista 6.0.6002 Service Pack 2 PCode version: 0.3 ChangeLog last entry: 2010-11-18 20:15 UTC+0200 Mindaugas Kavaliauskas (dbtopas/ at/dbtopas.lt) ChangeLog ID: ChangeLog 15840 2010-11-18 18:16:09Z snaiperis Built on: Nov 18 2010 21:02:20 Build options: (Clipper 5.3b) (Clipper 5.x undoc) (UNICODE) hwgui * $Id: Changelog,v 1.1328 2010/12/04 13:35:44 druzus Exp $

полная версия страницы