NTK - How To's, Hints & Tips, etc.  »   about window with BITMAP not displayed

Bonjour Otto,

Présentement vous avez choisi d'utiliser vos output commands en mode libre (pas de paintproc). A mon avis votre probleme vient tout simplement du fait que vous tentez d'afficher le bitmap avant même que le fenêtre hWndAbout soit activé et donc il ne se passe rien.

Pour moi, au lieu de:
@ 010,010 SAY BITMAP hAbout SIZE 220,280 INTO WINDOW hWndAbout // With hWndAbout do not work!
ACTIVATE WINDOW hWndAbout CENTER // Display Main window and its controls

vous devriez plutôt faire:
ACTIVATE WINDOW hWndAbout CENTER // Display Main window and its controls
@ 010,010 SAY BITMAP hAbout SIZE 220,280 INTO WINDOW hWndAbout

Concernant votre output:
@ 010,010 SAY BITMAP hAbout SIZE 220,280 INTO WINDOW hDC // Here it work, but is displayed on the main windows!

Il s'affiche dans le main parceque normalement cette syntaxe est faite pour fonctionner en mode automatique
dans une func paintproc(), dans laquelle tous les outputs sont rassemblés, et qui fournie systématiquement un handle de device context (hDC) valid via le 5ème parametre. i.e.
Function DoRepaint(hWnd, nMsg, nwparam, nlparam, hDc)
@ 010,010 SAY BITMAP hAbout SIZE 220,280 INTO WINDOW hDC
@ ....... SAY .... PICT......
@ ...BOX.....
Return(0)

Dans votre cas, vous utilisez cette syntaxe en dehors d'une paintproc, et, comme je ne vois aucune instruction du genre hDC := NTK_GetDC(hWndAbout) j'en déduis que votre var hDC est probablement déclarée à NIL, 0, ou toute autre valeur numérique .... (sinon ça planterait).
En bref, vous specifiez un context (hDC) qui n'existe pas. Donc, NTK l'interprète comme un basic command
[@ 10,10 SAY BITMAP hABout] et affiche le bitmap dans la fenetre actuellement active (par défaut), c'est à dire le Main.

Voilà tout.

-Chris

Bonjour Otto,

Je ne pense pas qu'il y ait de règle absolue.
Pour ma part, dans les petites moulinettes ou programs de maintenance je ne me prends pas la tête:
j'écris en graphique quasi comme en clipper-text. Et comme on est mono fenêtre y pas de risques.
e.g.

PROC MAIN()
hWnd := NtkWinSetup( nil, "Maintenance CLIENT", 0,0,640,480 )
NTK_CenterWindow( hWnd )

SET PIXEL OFF
SET ROW RATIO TO 20
SET COL RATIO TO 8

WAIT "Lancer la purge des soldes? (O/N)"
cKey := CHR(NTK_LastKey()-500)
IF  !(cKey $ "oO" .OR. NTK_LastKey()==K_ENTER)
   CLOSE WINDOW hWnd
   RETURN(Nil)
ENDIF

CLEAR
? "Traitement en cours..."
NTK_HourGlass(.T.)
USE CLIENT NEW
DO WHILE !EOF()
   REPLACE CREDIT WITH 0, CREDSEUIL WITH 0, CREDDISP WITH 0, TOTALDU WITH 0
   @ 3,5 SAY "RAZ soldes de l'enregistrement N°"+Str(RecNo(),6)
   SKIP
ENDDO
CLOSE DATA
NTK_HourGlass(.F.)

?
? "Traitement terminé."
? "Presser sur une touche pour fermer..."
NtkInkey(0)

CLOSE WINDOW hWnd
RETURN

Par contre, dans mes applics utilisateurs en multi-fenêtres, j'utilise toujours une paintproc, meme pour un simple About dialog. L'avantage de la paintproc c'est que vous ne vous occupez de rien. Tous vos outputs sont gérés et maintenus automatiquement par le GDI.
- pas une ligne d'un code complexe pour maintenir l'affichage du main lorsque vous faites glisser la wnd About-Dialog (ou tout autre application) par dessus;
- pas besoin de savescreen() le main avant l'affichage du About-Dialog, puis de restscreen() après
sa fermeture;
- De plus, si vous faites des @..SAY du contenu de variables dans la painproc (fiche client par ex) et que vous en changer les valeurs ailleurs dans votre programme, il vous suffira juste de faire un simple REFRESH SCREEN OF hMyWnd et tout l'écran sera à jour. Gros gain de prog!

Voila. Bonne continuation à vous.

-Chris

P.S. Maintenant que je connais je truc pour mettre en forme le code source je ne m'en prive plus.

Bonjour Otto,

Absolument aucune idée. A première vue ce code devrait fonctionner comme expecté.
Perso, en env. multi-fenetres, j'utilise toujours une paintproc()comme ça jamais de surprise.
essayez plutôt quelque chose du genre:

FUNCTION DoAboutW(hwnd, cDispMsg)
Local hWndAbout,pictAbout

pictAbout := NTK_ReadPictureToBmp( "images/AboutOtto.jpg" )

CREATE WINDOW hWndAbout ;
TITLE "About" ;
AT 0,0 SIZE 600,400 ;
INTO PARENT hWnd;    // évite de créer des fenetres concurentes/séparées
ON PAINT DoAboutwPaint();
ON EXIT NTK_SendQuitEvent()  

ACTIVATE WINDOW hWndAbout CENTER // Display Main window and its controls

NtkInkey(3)

NTK_DeleteObject(pictAbout)
CLOSE WINDOW hWndAbout

Return(Nil) 

function DoAboutwPaint(hWnd, nMsg, nwParam, nlParam, hDC)
@ 010,010 SAY BITMAP pictAbout SIZE 220,280 INTO CONTEXT hDC // Image About
@ 350,350 SAY "Test About.." INTO CONTEXT hDC
return(0)

- Chris