| |
| |
|
Stephan
Sonneborn | allô zusammen,
j'ai chez WIN 7 Enterprise 64 Bit avec qui représentation eines verzerrten Bitmaps Probleme (getestet sur 2 verschiedenen Rechnern).
Folgender Voir le texte source zeigt Je ne den Windows-Start-Hintergrund (ou bien seulement entier kurz au cours de des Fenstergrößeänderns...)
Hat jemend une concept, woran es liegt?
chez WIN7 Home Premium 64 Bit klappt es, chez WIN7 32 Bit aussi...
KompilierenMarqueSéparationSet("Autopaint", 0)
CLS
VAR Bitmap& = Create("Text", %hwnd, "", 10,10,200,50)
VAR HBitmap& = Create("HPic", -1, "c:\\windows\\system32\\oobe\\background.bmp")
Proc Neuzeichnen
StartPaint Bitmap&
DrawSizedPic HBitmap&, 0,0 - 200,50;0
EndPaint
EndProc
Neuzeichnen
While 1
WaitInput 100
Case %wmpaint: Neuzeichnen
Wend
Fin
|
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 08.03.2012 ▲ |
|
| |
|
|
Wilfried
Friebe | Hi Stephan
j'ai Win 7 Prof 64 Bit.
Sobald je qui Fenstergröße verändere ist qui Bitmap weg.
elle va weg sobald je avec qui souris qui Taille verändere
et ist seulement wieder là si je qui linke Bouton de la souris wieder loslasse.
Salut Wilfried |
|
| |
| Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 08.03.2012 ▲ |
|
| |
|
|
Wilfried
Friebe | Hi Stephan
je bins nochmal.
chez meinem XP calculateur ist es ähnlich.
cela Bitmap allez zwar aussi weg, mais es bleibt un
beiges Rechteck.
Salut Wilfried |
|
| |
| Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 08.03.2012 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Hab zwar ne...aucune Win7 mais seulement zur Info: chez mir (XP) bleibt qui Bitmap là, wohin vous soll aussi chez Größenänderungen des Fensters.
Verwende zwar un d'autre Bild mais cela sollte oui égal son. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.03.2012 ▲ |
|
| |
|
|
 | là venons wohl Zeichnungsnachrichten die's %wmPaint pas mettons et/ ou bien %wmPaint arbeitet sans Stack bzw. Nouvelles überlagern am %wmPaint vorbei.
peut-être la fois testen si cela Problem bereits avec cela behoben volonté peux si on qui Lösche-Hintergrund-nouvelle (wm_eraseBkGnd) pas à qui eigentliche wProc weiterleitet -
alors chez qui nouvelle z.B. set("winProc", 0) dedans qui subClassProc et return 1.
@Stephan & Wilfried: avez son "Aero" eingeschaltet? |
|
| |
| |
| |
|
|
Stephan
Sonneborn | iF (08.03.12)
@Stephan & Wilfried: avez son "Aero" eingeschaltet?
non, je hab sogar extra cela "alte" Windows, alors Windows - klassisch, eingeschaltet.
und dir allerdings seulement avec dem DrawsizedPic pas, DrawPic allez...
j'ai aussi chez XP, WIN 7 32 Bit ne...aucune Problem, aussi pas chez WIN7 64 Bit Home Premium.
cela Problem besteht aussi beim Zeichnen sur un Dialogfenster. |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 08.03.2012 ▲ |
|
| |
|
|
| la hâte Du la fois...
iF (08.03.12)
là venons wohl Zeichnungsnachrichten die's %wmPaint pas mettons et/ ou bien %wmPaint arbeitet sans Stack bzw. Nouvelles überlagern am %wmPaint vorbei.
peut-être la fois testen si cela Problem bereits avec cela behoben volonté peux si on qui Lösche-Hintergrund-nouvelle (wm_eraseBkGnd) pas à qui eigentliche wProc weiterleitet -
alors chez qui nouvelle z.B. set("winProc", 0) dedans qui subClassProc et return 1.
beachtet/ getestet? |
|
| |
| |
| |
|
|
Stephan
Sonneborn | iF (09.03.12)
la hâte Du la fois... iF (08.03.12)
là venons wohl Zeichnungsnachrichten die's %wmPaint pas mettons et/ ou bien %wmPaint arbeitet sans Stack bzw. Nouvelles überlagern am %wmPaint vorbei.
peut-être la fois testen si cela Problem bereits avec cela behoben volonté peux si on qui Lösche-Hintergrund-nouvelle (wm_eraseBkGnd) pas à qui eigentliche wProc weiterleitet -
alors chez qui nouvelle z.B. set("winProc", 0) dedans qui subClassProc et return 1.
beachtet/ getestet?
non, encore pas, kanns im Moment aussi pas, weil je sur cela System seulement am lundi wieder Zugriff hab.
je frage mich seulement, wieso cela sur einigen Systemen pas allez...
suis Je ne sûrement, si je cela richtig verstanden habe avec dem Subclassing...
KompilierenMarqueSéparationH Messages.ph
$H Windows.ph
Set("Autopaint", 0)
CLS
VAR Bitmap& = Create("Text", %hwnd, "", 10,10,200,50)
VAR HBitmap& = Create("HPic", -1, "c:\\windows\\system32\\oobe\\background.bmp")
SubClassProc
If SubClassMessage(%hWnd, ~wm_eraseBkGnd)
Set("WinProc", 0)
EndIf
RETURN 1
EndProc
Proc Neuzeichnen
StartPaint Bitmap&
DrawSizedPic HBitmap&, 0,0 - 200,50;0
EndPaint
EndProc
SubClass %HWnd, 1
Neuzeichnen
While 1
WaitInput 100
Case %wmpaint: Neuzeichnen
Wend
SubClass %HWnd, 0
Fin
|
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 09.03.2012 ▲ |
|
| |
|
|
| | oui ungefähr so meinte je cela, es peux mais son dass cela pas ausreicht weil cet pas-native subclassproc pas unterbrechungsfrei arbeitet et on es eigentlich avec einer nProc testen devrait. |
|
| |
| |
| |
|
|
Dieter
Zornow | sur alle Fälle musst du
KompilierenMarqueSéparation
verwenden, pas %hwnd ansonsten bleibt beim agrandir des la fenêtre cela reflet des la fenêtre à qui alten Stelle conservé. chez mir gehts ensuite allerdings Win 7 Premium 64 bit |
|
| |
| XProfan X2Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 09.03.2012 ▲ |
|
| |
|
(529)
Deutsch
English
Français
Español
Italia