German Draw program v0.9

Discussion in 'German Forum' started by Filippo, Mar 8, 2009.

Similar threads

Other B4X Push Server
B4J Library MqttBroker
B4J Tutorial [server] Automatic Reconnecting WebSocket
Share My Creation Tank Attack (jBox2d)
B4A Library Android Things
Games [XUI2D] Example Pack
  1. Filippo

    Filippo Expert Licensed User

    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
     
  2. klaus

    klaus Expert Licensed User

    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: Mar 9, 2009
  3. Filippo

    Filippo Expert Licensed User

    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
     

    Attached Files:

    Last edited: Mar 8, 2009
  4. klaus

    klaus Expert Licensed User

    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.
     
  5. klaus

    klaus Expert Licensed User

    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.
     
  6. Filippo

    Filippo Expert Licensed User

    Hallo Klaus,

    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: Mar 9, 2009
  7. klaus

    klaus Expert Licensed User

    Hallo Filippo,

    So funktionierts:
    Code:
    [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: Mar 10, 2009
  8. Filippo

    Filippo Expert Licensed User

    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:
    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
     
  9. klaus

    klaus Expert Licensed User

    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.
     
  10. Filippo

    Filippo Expert Licensed User

    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
     
  11. Filippo

    Filippo Expert Licensed User

    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
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice