German Draw 9 Patch Bilder

Sinan Tuzcu

Well-Known Member
Licensed User
Longtime User
Guten Morgen Klaus,

funktioniert dieses Beispiel bei dir?
ich bekomme beim Ausführen eine Fehler.
Die Zeile wird in Debug gelb markiert
B4X: 
ht1 = su.MeasureMultilineTextHeight(lbl1, txt1) + RaenderY

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

gruß
sinan
 

klaus

Expert
Licensed User
Longtime User
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!
B4X: 
ht1 = su.MeasureMultilineTextHeight(lbl1, txt1) + RaenderY
.
Wie hast Du das Programm getestet ?

Beste Grüsse.
 

Sinan Tuzcu

Well-Known Member
Licensed User
Longtime User
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

Expert
Licensed User
Longtime User
Ganz anders ist es, wenn ich den Projekt von dir direkt starte, da bekomme ich nur eine Schwarze Activity
Click to expand...
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

Well-Known Member
Licensed User
Longtime User
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

Expert
Licensed User
Longtime User
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

Expert
Licensed User
Longtime User
Beiliegend ein Programm das funktioniert.
Das Problem war hier :
B4X: 
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
 

Attachments

  • klaus_3.zip
    13.9 KB · Views: 271

Sinan Tuzcu

Well-Known Member
Licensed User
Longtime User
Hi Klaus,

es ist immer noch das gleiche Problem bei mir.

wenn ich dieses:
B4X: 
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:
B4X: 
           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

Expert
Licensed User
Longtime User
Was meinst Du mit:
es ist immer noch das gleiche Problem bei mir.
Click to expand...
Schwarzer Bildschirm oder was Anders ?
Du musst mal die Alte Datenbank löschen.
B4X: 
File.Delete(DBDirName, DBFileName)  ' zum testen
Auf meinem Nexus One sieht es aus wie unten.

Beste Grüsse.
 

Attachments

  • ScreenShot.png
    81.4 KB · Views: 265

Sinan Tuzcu

Well-Known Member
Licensed User
Longtime User
Hallo Klaus,

soll ich, auch dieses ändern, denn vermutlich müsste da auch lbl2 stehen statt lbl1...
B4X: 
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
B4X: 
ht2 = su.MeasureMultilineTextHeight(lbl2, txt2) + RaenderY

oder irre ich mich?

ansonsten funktioniert es
 
You must log in or register to reply here.

Similar Threads

  • Article
Share My Creation [B4J][B4XPages] Artifying an image - creating an impressionistic effect.
Replies
0
Views
2K
William Lancee
E
  • Question
Android Question 9patch on customListView Items
Replies
9
Views
3K
Endien
E
German Draw 9 Patch Editor
Replies
6
Views
3K
klaus
R
  • Question
Text Shift in a 9 Patched Button
Replies
3
Views
2K
Roger Garstang
R
  • Article
Android Tutorial Nine patch images tutorial
2 3
Replies
42
Views
61K
Erel
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…