Die Suche ergab 71 Treffer

von Sirius-2337
12.08.2019 19:20
Forum: Anfänger
Thema: Problem mit Libre Office und RunProgram
Antworten: 6
Zugriffe: 1961

Re: Problem mit Libre Office und RunProgram

Dieser Code funktioniert bei mir Problemlos. LibreOffice startet, zeigt ein kleines Fenster, wo man einstellen könnte, ob die Daten mit Semikolon, Komma o. ä. getrennt sind. Hier klicke ich OK und dann öffnet sich LO. Und wenn ich LO wieder schließe endet das Programm. Tabellenkalkulation$ = "C...
von Sirius-2337
07.08.2019 14:30
Forum: Code, Tipps und Tricks
Thema: ListIcon ausdrucken
Antworten: 27
Zugriffe: 8147

Re: ListIcon ausdrucken

Statt im PrintRequester die Ausrichtung zu setzten könnte man doch auch die Ausgabe drehen. Dank der VectorDrawing-Lib ist das ja recht einfach: ;==>https://www.purebasic.fr/german/viewtopic.php?p=347448#p347448 Enumeration #PrintListIcon_Orientation_Auto #PrintListIcon_Orientation_Portrait #PrintLi...
von Sirius-2337
18.07.2019 07:55
Forum: Anfänger
Thema: Gelöst! Problem mit "There is no current GadgetList"
Antworten: 6
Zugriffe: 1625

Re: Gelöst! Problem mit "There is no current GadgetList"

HTH EnableExplicit Global parentwindow, childwindow, oldgadgetlist Global cw_button1, cw_button2 Define bg_openwindow, Event #Ja = "Jep!" #Nein = "Nope!" Procedure dialog_OK() DisableWindow(parentwindow, #True) oldgadgetlist = UseGadgetList(WindowID(parentwindow)) childwindow = O...
von Sirius-2337
10.03.2019 14:52
Forum: Grafik & Sound - Programmierung
Thema: Berechnete Koordinaten ungenau
Antworten: 5
Zugriffe: 2815

Re: Berechnete Koordinaten ungenau

Einmal EnableExplicit drüber setzen, dann weisst du wo der Fehler liegt.
von Sirius-2337
27.10.2018 14:09
Forum: Projekte, Ressourcen, Tools
Thema: Layout Programm im CanvasGadget
Antworten: 16
Zugriffe: 8928

Re: Layout Programm im CanvasGadget

Da ich grad was ähnliches brauche hier mal ein Beispiel, wie ich es machen würde. Hier wird nur neu gezeichnet, wenn nötig. EnableExplicit Enumeration Gadgets #G_Canvas EndEnumeration EnumerationBinary #Highlight_Hover ;Maus ist über dem Objekt #Highlight_HoverHighest ;Von den gehoverten Objekten is...
von Sirius-2337
01.09.2018 16:21
Forum: Anfänger
Thema: Whois-Abfrage
Antworten: 4
Zugriffe: 1066

Re: Whois-Abfrage

PeekS(*MemoryBuffer [, Length [, Format]])
von Sirius-2337
07.04.2018 19:47
Forum: Allgemein
Thema: Prototype und Dll
Antworten: 3
Zugriffe: 1056

Re: Prototype und Dll

So wie du Dir das vorstellst funktioniert das nur mit Strukturen. Geht auch ohne Struktur. Einfach mit 'Global' oder 'Shared'. Prototype de() OpenLibrary(0, "D:\PureBasic\OlafNet\dtschlib.dll") Global Deut.de = GetFunction(0, "Deutsch") Prototype en() OpenLibrary(1, "D:\Pur...
von Sirius-2337
01.06.2015 06:50
Forum: Allgemein
Thema: Überprüfung, ob String Integer
Antworten: 6
Zugriffe: 1290

Re: Überprüfung, ob String Integer

Oder so vielleicht..

Code: Alles auswählen

InputInt$ = "2147483649"

a.i = Val(InputInt$)

Debug Str(a)

If Str(a) = InputInt$
  Debug "Ok"
Else
  Debug "Nicht Ok"
EndIf
von Sirius-2337
02.11.2014 17:03
Forum: Bugs
Thema: Bug - JSON | Unicode
Antworten: 1
Zugriffe: 2575

Bug - JSON | Unicode

Folgender Code erzeugt bei mir einen IMA sobald a > b wird, wenn b >= 47 ist EnableExplicit PurifierGranularity(1, 1, 1, 1) Structure teststructure a.s List b.i() EndStructure NewList Testlist.teststructure() Define a, x, y, JSON, b = 47 For a = 0 To 100 Debug a ClearList(Testlist()) For x = 0 To 80...
von Sirius-2337
03.10.2014 12:16
Forum: Anfänger
Thema: [erledigt] TextHeight versagt bei Dynamischer Font-Nummer?!
Antworten: 6
Zugriffe: 1045

Re: TextHeight versagt bei Dynamischer Font-Nummer?!

Ich denke das ist in der Hilfe falsch beschrieben, da dort steht, dass die FontID von LoadFont() zurückgegeben wird, was aber ofenbar nicht der Fall ist, denn auch im Beispiel in der Hilfe wird #PB_Any bei LoadFont() und FontID() bei SetGadgetFont() verwendet. Gibt einen Wert ungleich Null zurück, ...