XProfan

- Seite 2 -

Jac
de
Lad

@Frank: Jaja, das weiß ich, aber mit Stringvariablen isses immer Mist.

@Sebastian: Danke, ich schau mir das an!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

20.08.2006 ▲

RGH

Noch eine kleine Erweiterung:

SetStyle und GetStyle() bekommen einen neuen, optionalen Parameter:

SetStyle Handle&, [Modus%,] Stil&
Ist Modus% = 0 wird wie bisher der normale Stil gesetzt (GWL_STYLE), ist der Modus% = 1, wird der erweiterte Stil gesetzt (GWL_EXSTYLE).

Stil& = GetStyle (Handle& [, Modus%])
Ist Modus% = 0 wird wie bisher der normale Stil gelesen (GWL_STYLE), ist der Modus% = 1, wird der erweiterte Stil gelesen (GWL_EXSTYLE).

Wird der neue Parameter Modus% weggelassen, funktionieren SetStyle und GetStyle() wie bisher.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

21.08.2006 ▲

Jac
de
Lad

Eine sehr sinnvolle Erweiterung

Danke Roland!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Ist der RC2 schon draußen???

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

RGH

[quote:4e30fb229f=Jacob Liebeck]Ist der RC2 schon draußen???[/quote:4e30fb229f]
Nein, sie soll aber heute oder morgen an alle Subscriptionskunden gehen.
Außerdem will ich vor meinem Urlaub für die Abokunden auch noch eine entsprechende CD fertig machen.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jac
de
Lad

Halllo Roland!

Da laut Outlook meine Mails nicht bei dir ankommen schreibe ich das jetzt eben hier rein:

1.
Offenbar haben SubStr und Instr in RC1 Probleme mit Leerzeichen am Anfang und Ende eines Strings:
Kompilieren Markieren Separieren

assign #1,"D:ProjekteDigicam-AssistentErrorproc.inc"
assign #2,"D:ProjekteDigicam-AssistentErrorproc2.inc"
declare p$
Reset #1
Rewrite #2

while Neq$("endproc",Lower$(p$))

    Input #1,p$

    if Instr(" : ",p$)

        Print #2,"caseof "+SubStr$(p$,1," : ")
        Print #2,"err$=q"+Left$(SubStr$(p$,2," : "),Len(SubStr$(p$,2," : "))-1)+"q"

    else

        Print #2,p$

    endif

wend

Close #1
Close #2
messagebox("","",0)
end

(Entsprechende Dateien mit Beispielmaterial vorausgetzt!)

2.
Print und Input funktionieren nicht mit Dateien, die mit Assign() benutzt werden. Da landen die Ausgaben immer im Hauptfenster. Soll das so sein (Assign() nur für binäre Dateien oder was in der Richtung)?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Hallo Roland, ich nochmal.

Nach einigen Abstürzen, deren Fehler ich erst spät gefunden habe ist mir noch eine Idee gekommen:

Wie wärs wenn du, falls möglich, ähnlich wie in Delphi, wo man die ExitProc umleiten kann, dem Profaner die Möglichkeit gibst, eine Prozedur zu schreiben, dann eben nicht errorproc sondern exitproc oder so, die alle verbliebenen Speicherbereiche im Fehlrefall freigibt und all solchen Kram. Ich denke, das wäre sehr hilfreich (für XProfan 11 oder so)...

Jac

PS: Wäre auch gut, wenn man die Funktion/Prozedur auch so normal aufrufen könnte, quasi als Programmdestruktor.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

RGH

[quote:dece3ac862=Jacob Liebeck]Da laut Outlook meine Mails nicht bei dir ankommen schreibe ich das jetzt eben hier rein:[/quote:dece3ac862]
Da solltest Du mal mit Deinem OutLook reden. Offenbar lügt es! Deine Mail ist angekommen und bereits beantwortet!

Und ob eine Dateizuweisung mit Assign #nr%, name$ oder nr% = Assign(name$) erfolgt, macht keinerlei Unterschied!

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jac
de
Lad

Hallo Roland!

Ich hatte es schon mal woanders angesprochen, aber ich machs trotzdem nochmal:

Wenn man ein SpinEdit mittels EnableWindow deaktiviert, bleiben die Pfeile aktiv bis man mit der Maus drüberfährt (entsprechend umgekehrt ist es beim aktivieren). Ich habs auf Dialogfenstern probiert, keine Ahnung obs auf %HWnd auch so ist...
Ich weiß auch nicht obs an Profan oder Windows liegt, aber vielleicht findest du ja einen eventuell vorhandenen Fehler oder jemand hat ne Idee wie man das verhindert (Repaint und so bringt nichts!).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

23.08.2006 ▲

Jörg
Sellmeyer

Hallo Jac,
Du kannst die Pfeile ebenfalls deaktivieren:
Kompilieren Markieren Separieren

EnableWindow spin&,0
EnableWindow GetHandle(%hwnd,ItemId(spin&) + 1),0

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

23.08.2006 ▲

Jac
de
Lad

Ich kann meine Freude darüber gar nicht ausdrücken! Hab schon ewig danach gesucht! DANKE! (Das sollte noch irgendwo festgehalten werden).

Ich persönlich habe die Funktion ItemId noch nie verwendet...jetzt ergibt er auch einen wirklichen Sinn!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

23.08.2006 ▲

Dietmar
Horn

Hallo Roland,

soviel Ärger wie diesmal hatte ich seit Profan² 3.3 nicht gehabt, um jahrelang fortentwickelte Programme auf eine neue PRF-Version umzustellen. Bislang reichte immer ein Austauschen von Interpreter, Runtime und Compiler aus und man konnte vergnügt weiterprogrammieren.
Kompilieren Markieren Separieren

declare d0&,blb&,dmp$
Window 0,0 - 600,400
d0& = Create("Dialog",%HWnd,"Dialog",5,5,500,300)
blb& = Create("SortedListbox",d0&,"",9,5,Width(d0&) - 18,Height(d0&) - 30)
AddString(blb&,"Zeile 0")
AddString(blb&,"Zeile 1")
AddString(blb&,"Zeile 2")
AddString(blb&,"Zeile 3")
AddString(blb&,"Zeile 4")
AddString(blb&,"Zeile 5")
AddString(blb&,"Zeile 6")
AddString(blb&,"Zeile 7")
SendMessage(blb&,$0186,0,0)
SetFocus(blb&)
dmp$ = trim$(GetString$(blb&,GetCursel(blb&)))
WaitInput
end

Dieser Primitiv-Code funktioniert in unterschiedlichen Varianten seit Jahren tadellos auch dann, wenn die Listbox am Anfang noch leer ist. Nun kommt plötzlich bei jeder Zeile in der Art:

dmp$ = trim$(GetString$(blb&,GetCursel(blb&)))

die Fehlermeldung Ungültiger Funktionswert!, solange die Listbox noch leer ist.

Klar - in einem 1000-Zeiler kann man das simpel durch eine zusätzliche GetCount-Abfrage abfangen. Doch bei einem meiner derzeitigen Projekte mit inzwischen 120000 Codezeilen wären da etliche Klimmzüge erforderlich. Denn bei -zig verschiedenen Listboxen wäre da schon etwas mehr stupide Fleißarbeit angesagt, als lediglich einmal Suchen-Ersetzen laufen zu lassen.

Zumal ich mir nun gar nicht mehr sicher bin, ob das die letzte Inkompatibilität wäre, nachdem ich das mit diesen Listboxen evtl. alles im Code angepaßt hätte.

Muß sowas wirklich sein?

Kannst Du das noch irgendwie bis zum endgültigen Erscheinen von XProfan 10.0 so abändern, daß auch diese Kleinigkeit wieder so funktioniert, wie bereits seit Jahren?

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

25.08.2006 ▲