AMIGA-RESISTANCE https://forum.amiga-resistance.info/ |
|
ReceiveData Fragen https://forum.amiga-resistance.info/viewtopic.php?f=38&t=3292 |
Seite 2 von 2 |
Autor: | Murmel [ 12 Dez 2012, 21:35 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
@Tipsi Hi Tipsi Ja hatte selber schon gesucht, hatte auch nix gefunden. Na mal hinten anstellen Na Appicon habe ich schon versucht, mir ist es nie gelungen da was anderes hinzuzaubern :/ Ne die Deutschlehrer wären vermutlich fro wenn sie die alten Schüler wieder hätten Grüsse, Murmel @Root Servus Root. He sieht super aus Dein Screenshot Na muss ich es nochmal mit Appicon probieren. Wie gesagt ich hatte das schon früher versucht, hat aber bei mir nie geklappt. Grüsse, Murmel |
Autor: | Tipsi [ 13 Dez 2012, 23:08 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Salli Murmel Wenn mein schlechtes Englisch mich nicht so im Stich lässt, vermute ich mal, dass Du bei APPICON() zu allen Grössen ein Icon definieren musst, da ansonsten wieder die Hollywoodklappe berück- sichtigt wird. Oder anderst gesagt: Falls Du nur ein Icon nicht definierst, dann beäugst Du wieder die Hollywoodklappe. Ich hoffe, root kann mir das bestätigen oder korrigieren. Ich war nochmals schnüffeln in der ScuiLib, und wieder habe ich nichts entdeckt. Diesmal suchte ich nach der Formel, welche die Grösse des Knopfes definiert. Aber schon das ist bei diesen vielen Zeilen Code überhaupt nicht einfach. Vielleicht werde ich am Wochenende fündig. Griessli Tipsi |
Autor: | Murmel [ 14 Dez 2012, 02:43 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Hi Tipsi . Danke für Deine Bemühungen Die Slidergrösse ändert sich mit der Anzahl der Einträge, aber da es ein niedriges Problem ist lass ich es erstmal ungeachtet. Hier mal ein aktueller screenshot das ich weiter dran rummurkse Habe schon wieder die nächsten Probleme das wenn man den String mit colorcodes pflastert sich die länge ändert, und Listwiew das anders zentriert. Auch habe ich ich versucht mit Virtual Area zu arbeiten, aber das bringt mit der Scuilib von Tipsi nur nen Diamond Font Fehler. Hate noch keine Zeit nach den Problem zu suchen Screenshot http://s1.directupload.net/file/d/3104/vpnlzvgn_png.htm Grüsse, Murmel |
Autor: | Tipsi [ 14 Dez 2012, 13:23 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Salli Murmel Leider ändert sich die Grösse des Textes, wenn man Format Tags benutzt. In der ScuiLib mit (018DW) steckt eine Funktion mit dem Namen p_NoFormatTags(). Ersetze diese Funktion mit dieser neuen: Code: Alles auswählen Function p_NoFormatTags(Text) Local TextArray=StrToArray(Text) Local AnzahlArray=ListItems(TextArray) Local NeuerText="" Local On="ON" Local Off="Off" Local FormatTag=Off Local KlammerAuf=Asc("[") Local KlammerZu=Asc("]") For i=0 To AnzahlArray-1 If TextArray[i]=KlammerAuf FormatTag=On EndIf If FormatTag=Off NeuerText=NeuerText..Chr(TextArray[i]) EndIf If TextArray[i]=KlammerZu FormatTag=Off EndIf Next Return(NeuerText) EndFunction Nun versuche es nochmals mit den ColorTags. Falls Du eine andere ScuiLib Version benutzt, dann kopiere die p_NoFormatTags(Text) Funktion in Deine ScuiLib (ich habe sie ja vor die Funcion helpers.GetBrushID() hinein- gesetzt). Nun suche in der ScuiLib jede Stelle, welche den Hollywood- befehl TextWidth() benutzt. Dann füge eine Zeile vorher den Befehl p_NoFormatTags() ein und übernimm die Variable, welche der Befehl TextWidth benutzt hat. Hier ein Beispiel aus der ScuiLib: Code: Alles auswählen CWidth = TextWidth(CChar) Code: Alles auswählen NeuerText = p_NoFormatTags(CChar) CWidth = TextWidth(NeuerText) Natürlich läuft diese Funktion auch in anderen Programmen und hilft, bei der Berechnung von Textbreiten die Format Tags nicht zu berücksichtigen. Eine Erklärung zu dieser Funktion werde ich später noch schreiben. Griessli Tipsi |
Autor: | root [ 14 Dez 2012, 19:21 ] | ||
Betreff des Beitrags: | Re: ReceiveData Fragen | ||
hey wow schaut schon ziemlich gut aus!°!!! Wegen den Icons siehe Anhang.
|
Autor: | Murmel [ 14 Dez 2012, 23:24 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Hi Root. Danke coole Icons Ich wollte schon möckern das es nicht geht, aber es ist nur in der compilierten Exe zu sehen. Muss man wissen OO Danke nochmal Grüsse Murmel |
Autor: | Tipsi [ 15 Dez 2012, 01:13 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Salli Murmel Schade, dass es so schlecht (oder gar nicht) läuft. Die Funktion p_NoFormatTags() hat schon eine Schwachstelle: Sobald eine öffnende eckige Klammer "[" kommt, wird ab da für die Berechnung der Textbreite keine Zeichen mehr berücksichtigt. Falls also keine schliessende Klammer kommt, dann wird die Berechnung falsch. Da muss ich nochmals über die Bücher. Falls es nicht daran lag, dann würde ich mich freuen, wenn Du den Code posten oder per Mail mir schicken würdest. Ich werde kein Wort über die Schönheit des Codes verlieren, versprochen. Bis dahin werde ich ein zwei Versuche noch starten. Griessli Tipsi |
Autor: | Murmel [ 15 Dez 2012, 11:03 ] | ||
Betreff des Beitrags: | Re: ReceiveData Fragen | ||
Hi Tipsi. Kein Problem da alle ihre Codes so freizügig posten, mache ich das auch Die Schleife habe ich im Moment auf 4 Server begrentzt. Die findest Du in der gameserverdaten Funktion. Die Funktionen gameserversten soll später durch serverinfo ersetzt werden Viel Spass
|
Autor: | Tipsi [ 15 Dez 2012, 21:05 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Salli Murmel Ich habe mal die Funktion p_NoFormatTags() überarbeitet. Sollte nun (hoffentlich) funktionieren: Code: Alles auswählen Function p_NoFormatTags(Text) Local TextArray=StrToArray(Text) Local AnzahlArray=ListItems(TextArray) Local NeuerText="" Local On="ON" Local Off="Off" Local FormatTag=Off Local KlammerAuf=Asc("[") Local KlammerZu=Asc("]") For ii=0 To AnzahlArray-1 If TextArray[ii]=KlammerAuf If Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])="[b]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])="[i]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])="[u]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3])="[/b]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3])="[/i]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3])="[/u]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])..Chr(TextArray[ii+6])..Chr(TextArray[ii+7])="[shadow=" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])..Chr(TextArray[ii+6])..Chr(TextArray[ii+7]).. Chr(TextArray[ii+8])="[/shadow]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])="[edge=" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])..Chr(TextArray[ii+6])="[/edge]" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])..Chr(TextArray[ii+6])="[color=" FormatTag=On ElseIf Chr(TextArray[ii])..Chr(TextArray[ii+1])..Chr(TextArray[ii+2])..Chr(TextArray[ii+3]).. Chr(TextArray[ii+4])..Chr(TextArray[ii+5])..Chr(TextArray[ii+6])..Chr(TextArray[ii+7])="[/color]" FormatTag=On EndIf EndIf If FormatTag=Off NeuerText=NeuerText..Chr(TextArray[ii]) EndIf If FormatTag=On If TextArray[ii]=KlammerZu FormatTag=Off EndIf EndIf Next Return(NeuerText) EndFunction funktionieren. Wir benutzten beide für die For-Next Schlaufe die Variable i und darum wurde in Deinem Code die Zahl hinter To nie erreicht. Griessli Tipsi |
Autor: | Murmel [ 15 Dez 2012, 22:56 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Servus Tipsi. Wow ! Thx Habe eigendlich teilweise deswegen schon schleifen zu zaehler unbenannt. naja kommt von zu geiler Programmierung Naja wenn pings, und frags noch richtig angezeigt werden, fehlt noch ein Refresh-Button, und ein Game-Connect, dann ist die einfachste Version mal fertig. Dann wird der Code aufgeräumt Grüsse, Murmel |
Autor: | Tipsi [ 19 Dez 2012, 00:48 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
Salli Murmel Bitteschön, gern geschehen. Ich wollte eigentlich schon seit etwa zwei Jahren eine Funktion haben, welche mit allen Format Tags zurecht kommt. Aber bis vor kurzem fehlte mir die Motivation, mich mit dieser Sache zu befassen. Der Grund ist, dass auch ich ziemlich Zeit brauche, um so Probleme zu lösen. In der Zwischenzeit habe ich auch mal Bold und Italic getestet. Das Gerücht, dass es bei Bold nicht so wunderbar funtionieren würde, kann ich zumintest bei den Scui-Button nicht bestätigen. Bild1.jpg [ 13.27 KiB | 6740 mal betrachtet ] [color=] läuft die Funktion wie es soll. Bild4.jpg [ 12.74 KiB | 6741 mal betrachtet ] ist, sieht es mit [color=] überhaupt nicht schön und leserlich aus. Bild5.jpg [ 12.08 KiB | 6740 mal betrachtet ] den "Geister" Buttons nochmals die Schrift auffrischt, aber diesmal ohne den Format Tag [color=]. Griessli Tipsi |
Autor: | Murmel [ 22 Dez 2012, 22:08 ] |
Betreff des Beitrags: | Re: ReceiveData Fragen |
yeah sieht jedenfalls Top aus |
Seite 2 von 2 | Alle Zeiten sind UTC |
Powered by phpBB® Forum Software © phpBB Limited Deutsche Übersetzung durch phpBB.de |