German Draw program v0.9

[Deleted member 103]

Hallo Klaus,

ich teste gerade dein Programm und habe ein klein Problem gefunden.

Problem:
1. Bild über Rechteck kopieren und einfügen --> OK
2. Zurück von "btnColorPalette_Click" wird das zuvor kopierte Bild wieder eingefügt. Ist das so gewollt?

Erweiterung:
1. Minimize-Button
Problem: wenn man wieder maximiert ist das Bild mehr da.

2. VGA-Auflösung
Ich teste noch...

Ich melde mich nochmal sobald die VGA-Auflösung OK ist.


Ciao,
Filippo

 

[klaus]

Hallo Filippo,
Danke für das Testen.

1) War natürlich nicht gewollt, habe es korrigiert. Die neue Farbe wurde in frmDraw_MouseDown übernommen und da wurde auch die vorhergehende Funktion aufgerufen. In MouseUp wurden dann eben die Bilder gezeichnet. Nehme jetzt die neue Farbe in MouseUp über. Das gleiche Problem gab es auch mit Texten, da sah es noch schlimmer aus.

2) Auch korrigiert, der Dateiname wird in der Rückfunktion übergeben. Eine MessageBox wird aufgerufen ob man die Zeichnung speichern will, falls Änderungen vorgenommen wurden.

3) VGA Auflösung ist vorgesehen, kommt aber in's Hauptprogramm.

Da tsteward das Modul in einem seiner Programm benützt, habe Ich noch keine generelle Sachen ingeführt wie VGA, andere Module FileChooser, Setup (mehrsprachig) und About.

Wenn das Programm mal stabiler ist und die meiseten Funktionen drin sind werde Ich dann das Obige einfügen.

Herzlichen Dank und Beste Grüsse.

 

[Deleted member 103]

Hallo Klaus,

ich habe die VGA-Auflösung und das Minimize-Button fertig bekommen.
Die Door.dll und Hardware.dll sind dafür notig!

PS. dein About-Button habe ich, aus Platzgründe, nur unsichtbar gemacht.


Ciao,
Filippo

 

[klaus]

Hallo Filippo,

Habe Deine Vorschläge in meine letzte Version eingebunden.
Werde diese Version in Kürze veröffentlichen.

Danke für die Mühe und Beste Grüsse.

 

[klaus]

Hallo Filippo,

Funktioniert das mit dem Minimize Button bei Dir ?

Habe es auf meinem Qtek9090 (WM2003) versucht, funktioniert leider nicht.
Habe versucht die Bitmap in einer Datei zwischen zu speichern aber ohne Erfolg.

Ich weiss noch nicht ob die Bitmap mit dem Drawer das Problem hervorrufen oder ob man das Hauptfenster aufrufen sollte.

Beste Grüsse.

 

[Deleted member 103]

Hallo Klaus,

Erweiterung:
1. Minimize-Button
Problem: wenn man wieder maximiert ist das Bild mehr da.

das ist genau das Problem was ich beschrieben habe.

Ich weiß nicht wie die Library mit der du das Bitmap anzeigst aufgebaut ist, aber ich denke, dass da vielleicht ein Paint-Event fehlt.

PS. ich werde mir diese Library mit dem "Reflector" mal anschauen.

Ist tatsächlich so!
Es ist weder ein Paint noch ein Resize-Event vorhanden und es kann, meine Meinung nach, somit nicht funktionieren.


Ciao,
Filippo

 

[klaus]

Hallo Filippo,

So funktionierts:

[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]btnMinimize_Click[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  If [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cPPC [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]AND[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] ToDayScreen=[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]    ToDayScreen=[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]    obj.SetProperty([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"FormBorderStyle"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Sizable"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    obj.SetProperty([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"WindowState"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Normal"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    hw.ShowTodayScreen[/FONT][/SIZE]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  End[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][COLOR=#0000ff]End Sub[/COLOR][/FONT][/SIZE]
 
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][COLOR=#0000ff][SIZE=2][FONT=Courier New][COLOR=#0000ff][SIZE=2][FONT=Courier New][COLOR=#0000ff]Sub [/COLOR][/FONT][/SIZE][/COLOR][/FONT][/SIZE][/COLOR][/FONT][/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]evtFormActivated_NewEvent[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  If [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cPPC[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]AND[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] ToDayScreen=[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Sip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]False[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    flbDraw.FullScreen2([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]True[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]True[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    drwDraw.New1([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"frmDraw"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]False[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    InitImage([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]    ToDayScreen=[/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  End[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][COLOR=#0000ff]End Sub[/COLOR][/FONT][/SIZE][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]

Die Lösung ist die neue Definition von drwDraw.New1("frmDraw",False), da die frmDraw Form verändert wurde.

Beste Grüsse.

 

[Deleted member 103]

Hallo Klaus,

Ok, es funktioniert!
Es gibt aber noch ein Problem: das,was vor dem Minimieren gezeichnet wurde, ist nach dem Maximieren nicht mehr vorhanden.

Damit das aber nicht passiert, musst du eine Zeile auskommentieren.

Sub evtFormActivated_NewEvent
  If cPPC AND ToDayScreen=1 Then
    Sip(False)
    flbDraw.FullScreen2(True,True)
    [COLOR="Green"]'drwDraw.New1("frmDraw",False)[/COLOR]
    InitImage(1)
    ToDayScreen=0
  End If
End Sub

Ciao,
Filippo

 

[klaus]

Hallo Filippo,

Bei mir, Qtek9090 WM2003, ist die Zeile drwDraw.New1("frmDraw",False) unbedingt nötig.
Das vorher gezeichnete kommt nachher auch wieder zurück!

Wenn Ich die Zeile auskommentiere, generiert das Programm einen Fehler !
Es ist eigentlich komisch dass bei Dir das was vorher gezeichnet wurde nicht wieder kommt denn das Bitmap ist das gleiche ?

Wenn Du zurück willst musst Du das Icon der frmDraw Form anklicken und nicht frmMain.

Version 0.95 ist im original Post veröffentlicht.

Beste Grüsse.

 

[Deleted member 103]

Hallo Klaus,

wenn man den Quellcode auf dem PPC ausführt dann in ist so wie du schreibst, wobei bei mir keine Fehlermeldung kommt.

Compiliert aber mit der Option "Optimized Compilation" muss die Zeile auskommentiert werden.


Ciao,
Filippo

 

[Deleted member 103]

Hallo Klaus,

ich habe gerade deine neue Version getestet und es funktioniert alles. Der Fehler lag bei mir, ich hatte die Form "frmMain" deaktiviert.

Ciao,
Filippo