Verschwundene Grafikelemente

[Peter_T]

Für Dialogboxen etc. möchte ich Bitmapfelder nutzen. Über MCls und StartPaint...EndPaint erstelle ich die Grafik (Hintergrund, Rahmen, Text und skaliertes Icon).

Mein Problem: Die Bitmap zeigt (außer dem Icon) die Grafikelemente leider nicht. Lasse ich das Icon weg, funktioniert es einwandfrei.

Was mache ich falsch? Hat jemand eine Idee?

Dazu ein Testcode (lauffähig):

Cls
Def API_LoadImage(6) ! "USER32", "LoadImageA" 
Var Dll& = @UseDll("Shell32.dll")
Var Nr$ = "#14"
Var hIcon& = API_LoadImage(Dll&, @Addr(Nr$), 1, 48, 48, 0)
MCls 180, 70, @RGB(0, 191, 191)
StartPaint -1
    DrawIcon hIcon&, 10, 10
    UsePen 1, 1, @RGB(255, 0, 0)
    UseBrush 0, @RGB(255, 0, 0)
    Rectangle 2, 2 - 178, 68
    UseFont "Arial", 18, 8, 1, 0 ,0
    TextColor @RGB(255, 255, 255), -1
    DrawText 70, 25, "Bitmap-Test"
EndPaint
Var hPic& = @Create("hPic", 0, "&MEMBMP")
DrawPic hPic&, 20, 20; 0 'zeigt erstellte Grafik
'Fehlerhafte Bitmap (?):
Var hBitm& = @Create("Bitmap", %hWnd, hPic&, 20, 120)
WaitInput
DeleteObject hIcon&, hPic&
FreeDll Dll&
End

[Bangkok]

Wie soll es denn aussehen, bei mir sieht es so aus mit deinem Code. Ich denke das soll so sein.
Wenn ja liegt es an deinem System. Du solltest mal versuchen das Icon als letztes zu zeichnen.
Ich habe auch XProfan 11.2a und Windows XP SP 3
Du solltest vielleicht auch einen Screenshot von dir dazu tun

[Peter_T]

Bei mir funktioniert es leider nicht! Welche Systemeinstellungen soll ich vornehmen?

Es sieht bei mir so aus:

[horsthorn]

@Peter
Bei mir ist das gleiche Problem mit der Anzeige des Icon
Hab den Code umgeschrieben. Mit zusätzlichen Parametern kannst du dann 'dein Ding machen.' Geht doch oder ?

Cls
Def API_LoadImage(6) ! "USER32", "LoadImageA"

PROC GRAFIK
DECLARE dll&,hicon&
PARAMETERS spalte%,zeile%,nr$,text$
Dll& = @UseDll("Shell32.dll")
hIcon& = API_LoadImage(Dll&, @Addr(Nr$), 1, 48, 48, 0)
MCls 180, 70, @RGB(0, 191, 191)
StartPaint -1
UsePen 1, 1, @RGB(255, 0, 0)
UseBrush 0, @RGB(255, 0, 0)
Rectangle 2, 2 - 178, 68
UseFont "Arial", 18, 8, 1, 0 ,0
TextColor @RGB(255, 255, 255), -1
DrawText 70, 25, text$
EndPaint
Var hPic& = @Create("hPic", 0, "&MEMBMP")
'-------------------------------------------
Var hBitm& = @Create("Bitmap", %hWnd, hPic&, spalte%, zeile%)
DrawIcon hIcon&, (spalte%+10), (zeile%+10)
'-------------------------------------------
DeleteObject hIcon&, hPic&
FreeDll dll&
ENDPROC

grafik 50,75,"#7","Floppi"
grafik 50,150,"#9","Festplatte"
WaitInput
End

[Bangkok]

@Peter: Ist dein Screenshot so zu interpretieren, dass DrawPic noch geht und es scheitert beim Erstellen der Bitmap ? Wenn es so ist würde ich das Bild mal abspeichern und neu einladen und dann die Bitmap erstellen und auch mal ansehen. Ich kann leider nichts ausprobieren, da es ja bei mir geht. Könnte dann unter Umständen am Speicher hängen.

@Horstein Beispiel geht aber nur im Hauptfenster. Wie es aus dem ersten Posting hervorgeht will er es für Dialoge verwenden. Dann müsste das Icon bei jedem Überdecken neu gezeichnet werden, da es ja kein Bestandteil der Bitmap ist.

[horsthorn]

Die Frage bleibt aber, warum klappt die Anzeige bei dir und bei Peter und mir nicht ?
Was sollte da umgestellt werden ?
Kann es an der Grafikkarte liegen oder....?

...und auf Dialogfenster kann man doch gezielt mit Startpaint dialogfenster& arbeiten

[Bangkok]

An der Grafikkarte denke ich nicht, da das Ganze im Speicher passiert. Versuche mal das Icon mit Create("HIcon" zu erstellen, vielleicht geht es so. Oder mit der Api ExtractIconex. Vielleicht ist loadimage nicht das richtige für diesen Zweck.
Drawicon kann man ja auch ohne ein Handle benutzen. Einfach mal alles probieren
Auf Dialogfelder kann man schreiben und zeichnen aber es verschwindet beim Überdecken, da Roland das zweite Fenster nur dem Hauptfenster zur Verfüging stellt
Ich habe auch keine Ahnung warum es bei mir geht und bei euch nicht.

[THFR]

Bei mir wird es auch wie bei Peter und Horst angezeigt.
Aber Anzeigeprobleme habe ich mir im Moment mit einem WIN-Optimierungstool eingehandelt. Der Texthintergrund beim Popupmenü in den XProfan-Programmen ist nun weiß und wer weis, was sich noch verändert hat??? Bei anderen Programmen ist mir das noch nicht aufgefallen.
Also ein XProfan- und oder Einstellungsproblem?

[RGH]

@THFR: Das sieht nach einem Einstellungsproblem aus. Das hatte ich auch schon und es waren nicht nur XProfan-Programme davon betroffen. Über die Displayeinstellungen kann man die Menüfarben wieder korrigieren.
Welches Win-Optimierungstool hat den Effekt ausgelöst?

Gruß
Roland

[Peter_T]

Danke für die Tipps!

Versucht habe ich es jetzt mit dem Speichern über eine externe Datei: Bildschirmausschnitt mit SaveBmp sichern und danach sofort wieder laden mit einem zweiten @Create("hPic"... und dann erst die @Create("Bitmap"... erstellen. Dies funktioniert!!! Das Ergebnis ist OK, der Weg dahin aber etwas umständlich.

Gibt es eine Möglichkeit aus einer Speicherbitmap (MCls) die Grafik direkt in eine externe Datei zu speichern?

Den Weg über die Zwischenablage habe ich auch probiert, dies funktioniert bei mir leider auch nicht.

[THFR]

Roland: Advanced WindowsCare
Ja, habe dann einmal Klassisch eingestellt und dann wieder XP und es war alles wie gewohnt.

[RGH]

Zitat von Peter_T

Gibt es eine Möglichkeit aus einer Speicherbitmap (MCls) die Grafik direkt in eine externe Datei zu speichern?

Ja: SaveBmp zwischen "StartPaint -1" und "EndPaint" aufrufen.

Gruß
Roland

[Peter_T]

Zitat von RGH

Ja: SaveBmp zwischen "StartPaint -1" und "EndPaint" aufrufen.

Danke, das funktioniert (komplette Grafik oder Auschnitt)!

[Bangkok]

Hast du auch mal versucht das Icon direkt auf die Speicherbitmap zu zeichnen mit

DrawIcon S, N, X, Y

S   - String: Name der Icon-Datei (mit Pfad)

N   - Integer: Nummer des Icons in der Icon-Datei

X,Y - Integer: Koordinaten


DrawIcon N, S, X, Y

N   - LongInt : Handle der externen Datei

S   - String : Icon-Name

X,Y - Wert - Koordinaten

oder das Icon-Handle mit

Create("hIcon", S[, N])

ermittelt

ich denke das wäre wichtig zu wissen, da ich scheinbar der einzige bin, wo es funktioniert,
müsste man in so einem Fall aus Sicherheitsgründen ja grundsätzlich den Weg des Zwischenspeichern gehen.
Ansonsten läuft es vielleicht nur auf dem eigenen Computer.

[Andreas Miethe]

Zitat von Peter_T

Bei mir funktioniert es leider nicht! Welche Systemeinstellungen soll ich vornehmen?

Es sieht bei mir so aus:

Auf 16-Bit Farbtiefe umschalten !
Oder das Icon anders laden.

$H Windows.ph
Cls
Def &LR_VGACOLOR $80

Def API_LoadImage(6) ! "USER32", "LoadImageA" 
Var Dll& = @UseDll("Shell32.dll")
Var Nr$ = "#14"

Var hIcon& = API_LoadImage(Dll&, @Addr(Nr$), 1, 48, 48,&LR_VGACOLOR)

MCls 180, 70, @RGB(0, 191, 191)
StartPaint -1
    DrawIcon hIcon&, 10, 10
    UsePen 1, 1, @RGB(255, 0, 0)
    UseBrush 0, @RGB(255, 0, 0)
    Rectangle 2, 2 - 178, 68
    UseFont "Arial", 18, 8, 1, 0 ,0
    TextColor @RGB(255, 255, 255), -1
    DrawText 70, 25, "Bitmap-Test"
EndPaint

Var hPic& = @Create("hPic", 0, "&MEMBMP")

DrawPic hPic&, 20, 20; 0 'zeigt erstellte Grafik
'Fehlerhafte Bitmap (?):
Var hBitm& = @Create("Bitmap", %hWnd, hPic&, 20, 120)
WaitInput
DeleteObject hIcon&, hPic&
FreeDll Dll&
End