German Draw program v0.9

  • Thread starter Thread starter Deleted member 103
  • Start date Start date
  • Similar Threads Similar Threads Similar Threads
D

Deleted member 103

Guest
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.:confused:

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

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


Ciao,
Filippo
 
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.
 
Last edited:
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
 

Attachments

Last edited by a moderator:
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.
 
Hallo Klaus,

Erweiterung:
1. Minimize-Button
Problem: wenn man wieder maximiert ist das Bild mehr da.
Click to expand...
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
 
Last edited by a moderator:
Hallo Filippo,

So funktionierts:
Code: Copy 
[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.
 
Last edited:
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.
Code: Copy 
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
 
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.
 
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
 
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
 
You must log in or register to reply here.

Similar Threads

aeric
  • Article Article
Share My Creation [Project Template] [Web] Pakai Server v6
2 3
Replies
45
Views
16K
aeric
aeric
Erel
  • Article Article
B4J Library jServer v4.0 - Based on Jetty 11
2 3
Replies
48
Views
41K
Jmu5667
Jmu5667
DonManfred
  • Question Question
Android Question Material Drawer V0.5 beta
2 3
Replies
42
Views
22K
DonManfred
DonManfred
DonManfred
  • Article Article
B4A Library ProgressWheel v0.22
Replies
13
Views
13K
sultan87
S
Erel
  • Article Article
Android Code Snippet Draw round bitmap
Replies
6
Views
15K
deyvitavara
D
Back
Top