German Draw 9 Patch Bilder

[Sinan Tuzcu]

Guten Morgen Klaus,

funktioniert dieses Beispiel bei dir?
ich bekomme beim Ausführen eine Fehler.
Die Zeile wird in Debug gelb markiert

ht1 = su.MeasureMultilineTextHeight(lbl1, txt1) + RaenderY

und wenn ich mit der Maus drauf gehe heist es Layout nicht gefunden...

gruß
sinan

 

[klaus]

Klar funktioniert es bei mir.
Wenn man so etwas programmiert muss man es ja auch testen denn das funktioniert meistens nicht auf den ersten Hieb.
Sicherhietshalber nabe Ich auch noch die zip Datei aus meinem Post runtergeladen und diese nochmal getestet und sie funktioniert wie erwartet.
Dass diese Zeile etwas mit Layout zu tun hat kommt mir komisch vor!

ht1 = su.MeasureMultilineTextHeight(lbl1, txt1) + RaenderY

.
Wie hast Du das Programm getestet ?

Beste Grüsse.

 

[Sinan Tuzcu]

Ich habe es bei mir ins Projekt eingebunden und in debug Modus gestartet. Sobald ich dann die Sub Routine AddRow Aufrufe, wird die Zeile gelb hinterlegt. Und wenn ich mit der Maus ganz genau auf lbl1 drauf bin, wird mir Layout Not Pfund in einem Tipptext angezeigt.

Ganz anders ist es, wenn ich den Projekt von dir direkt starte, da bekomme ich nur eine Schwarze Activity

 

[klaus]

Ganz anders ist es, wenn ich den Projekt von dir direkt starte, da bekomme ich nur eine Schwarze Activity

Ich verstehe das nicht !
Bei mir funktioniert es !
Was in Deinem Projekt vorkommt kann Ich nicht beurteilen aber wenn Du mein Projekt in einen neuen Ornder downloadest sollte es funktionieren!

Beste Grüsse.

 

[Sinan Tuzcu]

also, ich find den Fehler nicht, ich habe die Originale Datei von dir runtergeladen und ohne Änderung auf Smartphone übertragen und wieder das gleiche Ergebnis:
schwarzes Bildschirm, Android Icon und ohne Fehlermeldung.

hmmm :-(

aber ich suche weiter ... werde nicht so einfach aufgeben

 

[klaus]

Ich habe das Programm jetzt auch auf meinem Asus TF700 getested und bekomme auch einen schwarzen Bildschirem.
Ich habe kurz reingeschaut habe den Fehler aber noch nicht gefunden.
Das Problem liegt irgend wie in der Datebank, denn Cursor1.Rowcount ist 0.
Auf meinem Nexus One funktionierte es einwandfrei, wahrscheinlich hatte Ich eine frühere Darenbank die funktionierte.
Habe heute leider wenig Zeit tiefer reinzuschauen.

Beste Grüsse.

 

[klaus]

Beiliegend ein Programm das funktioniert.
Das Problem war hier :

Sub InitTable
    SQL1.BeginTransaction
    Try
        For i = 0 To 100
            If i  Mod 2 = 1 Then
                SQL1.ExecNonQuery2("INSERT INTO " & DBTableName & " VALUES(?,?,?,?,?,?)", Array As Object("", "Zeile " & i & "eingetragen heute um 21:23 Uhr, nur weil wir das so haben wollten", "", "okunmadi", "Karsidan", ""))
            Else
                SQL1.ExecNonQuery2("INSERT INTO " & DBTableName & " VALUES(?,?,?,?,?,?)", Array As Object("", "Zeile " & i & "ich weis einfach nicht woran das liegt aber es funktioniert hier", "", "okunmadi", "Benden", ""))
            End If
        Next
        SQL1.TransactionSuccessful
    Catch
        Log(LastException.Message) 'no changes will be made
    End Try
    SQL1.EndTransaction
End Sub

Es fehlte SQL1.TransactionSuccessful !

Beste Grüsse.

SQL1.TransactionSuccessful

 

[Sinan Tuzcu]

Hi Klaus,

es ist immer noch das gleiche Problem bei mir.

wenn ich dieses:

Breite = Min(Breite, 0.8 * ScrollView1.Width) ' Du kannst hier mit x * ScrollView1.Width die die maximale Breite bestimmen
      ScrollView1.Panel.AddView(pnl, 0, TotalHeight, Breite, 0)
      SetNinePatchDrawable(pnl, "karsidangelen")
      pnl.AddView(lbl1, 10dip, 5dip, pnl.Width - 15dip, pnl.Height)
      lbl1.Gravity = Gravity.LEFT   'Text wird linksbündig dargestellt
      If txt2 <> "" Then   
         pnl.AddView(lbl2, 10dip, 5dip, pnl.Width - 15dip, pnl.Height)
         lbl2.Gravity = Gravity.LEFT   'Text wird linksbündig dargestellt
      End If

gegen dieses:

           Breite = Min(Breite, 0.9 * ScrollView1.Width) ' Du kannst hier mit x * ScrollView1.Width die die maximale Breite bestimmen
         ScrollView1.Panel.AddView(lbl1, 0, TotalHeight, Breite, 0)
         SetNinePatchDrawable(lbl1, "karsidangelen")
         lbl1.Gravity = Gravity.LEFT   'Text wird linksbündig dargestellt

austausche, dann wird etwas angezeigt.

also, das Problem ist nicht mehr das mit dem SQL .

gruß
sinan

 

[klaus]

Was meinst Du mit:

es ist immer noch das gleiche Problem bei mir.

Schwarzer Bildschirm oder was Anders ?
Du musst mal die Alte Datenbank löschen.

File.Delete(DBDirName, DBFileName)  ' zum testen

Auf meinem Nexus One sieht es aus wie unten.

Beste Grüsse.

 

[klaus]

Kannst Du genau erklähren was nicht richtig funktioniert ?
Hast Du den Code den Ich geschickt habe probiert ?

In meinem Programm musst Du diese Zeile
lbl2.Text = txt1
ändern
lbl2.Text = txt2

Beste Grüsse.

 

[Sinan Tuzcu]

Hallo Klaus,

soll ich, auch dieses ändern, denn vermutlich müsste da auch lbl2 stehen statt lbl1...

If txt2 <> "" Then   
      lbl2.Top = ht1 + 5dip
      lbl2.Tag = Index
      lbl2.TextColor = Colors.Black
      lbl2.Text = txt2
      ht2 = su.MeasureMultilineTextHeight(lbl1, txt2) + RaenderY
      lbl2.Height = ht2
      ht = ht + ht2 + 10dip
   End If

uzwar an der Stelle

ht2 = su.MeasureMultilineTextHeight(lbl2, txt2) + RaenderY

oder irre ich mich?

ansonsten funktioniert es

 

[klaus]

Ja, es muss

ht2 = su.MeasureMultilineTextHeight(lbl2, txt2) + RaenderY

sein.

Beste Grüsse.