XProfan

- page 2 -

Jac
de
Lad

@Frank: Jaja, cela sais je, mais avec Stringvariablen isses toujours Mist.

@Sebastian: merci, je exposition mir cela à!

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

encore une kleine Erweiterung:

SetStyle et GetStyle() bekommen une neuen, optionalen paramètre:

SetStyle Handle&, [Modus%,] Stil&
Ist Modus% = 0 wird comment bisher qui normale Stil gesetzt (GWL_STYLE), ist qui Modus% = 1, wird qui Avancé Stil gesetzt (GWL_EXSTYLE).

Stil& = GetStyle (Handle& [, Modus%])
Ist Modus% = 0 wird comment bisher qui normale Stil gelesen (GWL_STYLE), ist qui Modus% = 1, wird qui Avancé Stil gelesen (GWL_EXSTYLE).

Wird qui neue paramètre Modus% weggelassen, marcher SetStyle et GetStyle() comment bisher.

Salut
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

une très sinnvolle Erweiterung

merci 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 qui RC2 déjà dehors???

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-part:4e30fb229f=Jacob Liebeck]Ist qui RC2 déjà dehors???[/quote-part:4e30fb229f]
non, vous mais devrait aujourd'hui ou bien demain à alle Subscriptionskunden aller.
Aussi veux je avant meinem Urlaub pour qui Abokunden aussi encore une entsprechende CD fertig faire.

Salut
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!

là le son Outlook mon Mails pas chez dir arriver schreibe je cela maintenant plan ici rein:

1.
évident avons Substr et Instr dans RC1 Probleme avec Leerzeichen am Anfang et Ende eines Cordes:
Kompilieren Marque Séparation

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 Fichiers avec Beispielmaterial vorausgetzt!)

2.
Imprimer et Contribution marcher pas avec Fichiers, qui avec Assign() benutzt volonté. là landen qui Ausgaben toujours im Hauptfenster. Soll cela so son (Assign() seulement pour binäre Fichiers ou bien quoi dans qui direction)?

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

allô Roland, je nochmal.

Pour einigen Abstürzen, en faute je seulement spät trouvé habe c'est moi encore une concept gekommen:

comment wärs si du, si possible, ähnlich comment dans Delphi, wohin on qui ExitProc détourner peux, dem Profaner qui Possibilité gibst, une Procédure trop écrivons, ensuite plan pas errorproc mais exitproc ou bien so, qui alle verbliebenen Speicherbereiche im Fehlrefall freigibt et espace solchen Kram. je denke, cela wäre très hilfreich (pour XProfan 11 ou bien so)...

Jac

PS: Wäre aussi bien, si on qui Funktion/Procédure aussi so normal appel pourrait, quasi comme 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-part:dece3ac862=Jacob Liebeck]là le son Outlook mon Mails pas chez dir arriver schreibe je cela maintenant plan ici rein:[/quote-part:dece3ac862]
là devrait Du la fois avec Deinem OutLook reden. évident lügt es! Votre Mail ist arrivé et bereits beantwortet!

et si une Dateizuweisung avec Assign #nr%, nom$ ou bien nr% = Assign(nom$) erfolgt, pouvoir keinerlei Unterschied!

Salut
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

allô Roland!

je hatte es déjà la fois woanders angesprochen, mais je machs quand même nochmal:

si on un SpinEdit mittels EnableWindow deaktiviert, rester qui Pfeile aktiv jusqu'à on avec qui souris drüberfährt (entsprechend renversé ist es beim aktivieren). je habs sur Dialogfenstern probiert, je n'en sais rien obs sur %HWnd aussi so ist...
je sais aussi pas obs à Profan ou bien Windows liegt, mais peut-être findest du oui une eventuell vorhandenen faute ou bien quelqu'un hat ne concept comment on cela verhindert (Repaint et so bringt rien!).

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

allô Jac,
tu peux qui Pfeile également désactiver:
Kompilieren Marque Séparation

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

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

23.08.2006 ▲

Jac
de
Lad

je peux mon Freude par-dessus gar pas ausdrücken! Hab déjà ewig après gesucht! DANKE! (cela sollte encore irgendwo festgehalten volonté).

je personnelle habe qui Funktion ItemId encore nie verwendet...maintenant ergibt il aussi une 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

allô Roland,

soviel Ärger comment diesmal J'ai eu depuis Profan² 3.3 pas gehabt, um jahrelang fortentwickelte Programme sur une neue PRF-Version umzustellen. Bislang reichte toujours un Austauschen de Interpreter, Runtime et Compiler aus et on pouvait vergnügt weiterprogrammieren.
Kompilieren Marque Séparation

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

cette Primitiv-Code funktioniert dans unterschiedlichen Varianten depuis Jahren correcte aussi ensuite, si le Listbox am Anfang encore vide ist. eh bien venez soudain chez chacun la ligne dans qui Art:

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

qui Fehlermeldung Ungültiger Funktionswert!, solange qui Listbox encore vide ist.

bien sûr - dans einem 1000-Zeiler peux on cela simpel par une zusätzliche GetCount-Abfrage intercepter. Doch chez einem meiner derzeitigen Projekte avec inzwischen 120000 Codezeilen wären là certains Klimmzüge erforderlich. car chez -zig verschiedenen Listboxen wäre là déjà quelque chose plus stupide Fleißarbeit annoncé, comme lediglich einmal chercher-Ersetzen courir trop laisser.

Zumal je mir eh bien gar pas plus sûrement suis, si cela qui dernier Inkompatibilität wäre, après que je cela avec cette Listboxen peut-être. alles im Code ajusté hätte.

Doit quelque chose comme wirklich son?

peux Du le reste irgendwie jusqu'à zum final Erscheinen de XProfan 10.0 so abändern, qui aussi cet Kleinigkeit wieder so funktioniert, comment bereits depuis Jahren?

Salut
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 ▲