XProfan

- Page 2 -

Jac
de
Lad

@Frank: Jaja, the white I, but with Stringvariablen isses always Mist.

@Sebastian: thanks, I look me the on!

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

08/20/06 ▲

RGH

another small expansion:

SetStyle and GetStyle() get a new, optionalen Parameter:

SetStyle Handle&, [mode%,] Stil&
is mode% = 0 becomes How yet the normal Style staid (GWL_STYLE), is the mode% = 1, becomes the erweiterte Style staid (GWL_EXSTYLE).

Stil& = GetStyle (Handle& [, mode%])
is mode% = 0 becomes How yet the normal Style red (GWL_STYLE), is the mode% = 1, becomes the erweiterte Style red (GWL_EXSTYLE).

becomes the new Parameter mode% omitted, functions SetStyle and GetStyle() How yet.

Greeting
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

08/21/06 ▲

Jac
de
Lad

an very sinnvolle expansion

thanks 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

is the RC2 already outside???

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]is the RC2 already outside???[/quote:4e30fb229f]
No, tappt im dunkeln but should today or tommorrow all Subscription-Customers weg.
Also I will to my leave for Abokunden too another suitable CD ready make.

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

there loudly Outlook my Mails not you arrive write I the now even here mere:

1.
evident having SubStr and Instr in RC1 Problems with space at the beginning and end one Strings:
Compile Mark Separation

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

(suitable Files with Beispielmaterial vorausgetzt!)

2.
rtf lÃ ¶ between Input functions not Files, The with Assign() using go. there disembark The expenses always in the Mainwindow. should the so his (Assign() only for binäre Files or what in the 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

Hello Roland, I again.

After some crash, its Error I first late found have is me another idea come:

How wärs if You, if possible, like in Delphi, where one The ExitProc redirecting can, the Profaner The Possibility give, a procedure To write, then even not errorproc separate exitproc or so, The any verbliebenen Speicherbereiche in the Fehlrefall freigibt and all such Kram. i think, the would very helpful (for XProfan 11 or so)...

Jac

PS: would be too well, if one The function/procedure too so normal Call could, quasi as 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]there loudly Outlook my Mails not you arrive write I the now even here mere:[/quote:dece3ac862]
there should You time with your OutLook talk. evident lügt it! your Mail is arrived and already answers!

and whether a Dateizuweisung with Assign #nr%, name$ or nr% = Assign(name$) results, power no Difference!

Greeting
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

Hello Roland!

I had it already time elsewhere addressed, but I machs nevertheless again:

If one one SpinEdits through EnableWindow deaktiviert, stay The Pfeile active To one with the mouse drüberfährt (properly inverse is it at enable). I habs on Dialogfenstern probiert, no idea obs on %HWnd too so is...
i know neither obs to profane or windows lying, but Perhaps find You Yes a possible vorhandenen Error or someone has ne idea How to the prevented (Repaint and so bring nothing!).

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

08/23/06 ▲

Jörg
Sellmeyer

Hello Jac,
You can The Pfeile ditto deaktivieren:
Compile Mark Separation

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

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

08/23/06 ▲

Jac
de
Lad

I can my joy above none squeeze out! Have already forever thereafter sought! THANK YOU! (the ought to yet somewhere festgehalten go).

I personally have The function ItemId yet never uses...now yields it too a real sense!

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

08/23/06 ▲

Dietmar
Horn

Hello Roland,

so much Ärger How this time I had since Profan² 3.3 not had, circa jahrelang fortentwickelte programs on a new PRF-Version umzustellen. Bislang reichte always one replace of interpreter, Runtime and compiler from and one could vergnügt weiterprogrammieren.
Compile Mark Separation

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

this Primitiv-code functions in unterschiedlichen mutants since years tadellos too then, if The Listbox at the beginning yet empty. now comes suddenly with eachone Line in the manner:

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

The Error Message Ungültiger Funktionswert!, as long as The Listbox yet empty.

clear - in a 1000-Zeiler can the simply by a additional GetCount-request intercepting. still with one of my derzeitigen projects with meanwhile 120000 Codezeilen wären there etliche Klimmzüge necessary. because with -zig different Listboxes would there already little more stupide Fleißarbeit angesagt, as solely once Search-supplant walk To let.

especially since I me now none More sure be, whether the The latest Inkompatibilität would, after I with the this Listboxes evtl. everything in the code angepaßt had.

mandatory something like really his?

can You have the somehow until final attend of XProfan 10.0 so alter, that too these Kleinigkeit again so functions, How already since years?

Greeting
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: [...]

08/25/06 ▲