XProfan

- Página 2 -

Jac
de
Lad

@Franco: Jaja, el weiß Yo, aber con Stringvariablen isses siempre Mist.

@Sebastian: Gracias, Yo mostrar me a!

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 una kleine Erweiterung:

SetStyle y GetStyle() bekommen una neuen, optionalen Parámetro:

SetStyle Handle&, [Modus%,] Stil&
Ist Modus% = 0 se como bisher el normale Stil gesetzt (GWL_STYLE), es el Modus% = 1, se el erweiterte Stil gesetzt (GWL_EXSTYLE).

Stil& = GetStyle (Handle& [, Modus%])
Ist Modus% = 0 se como bisher el normale Stil gelesen (GWL_STYLE), es el Modus% = 1, se el erweiterte Stil gelesen (GWL_EXSTYLE).

Wird el neue Parámetro Modus% weggelassen, trabajo SetStyle y GetStyle() como bisher.

Saludo
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

Un muy sinnvolle Erweiterung

Gracias 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 el RC2 ya 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 el RC2 ya draußen???[/quote:4e30fb229f]
Nein, ellos sino que debe heute oder morgen a todos Subscriptionskunden ir.
Außerdem voluntad Yo antes mi Fiesta para el Abokunden auch ni entsprechende CD fertig hacer.

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

Como laut Outlook mi Mails no en dir ankommen escribir Yo el ahora eben hier rein:

1.
Offenbar haben Substr y Instr en RC1 Problemas con Leerzeichen al Anfang y Ende uno Cuerdas:
Kompilieren Marca Separación

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 Archivos con Beispielmaterial vorausgetzt!)

2.
Imprimir y Entrada trabajo no con Archivos, el con Asignar() benutzt voluntad. Como landen el Ausgaben siempre en el Ventana principal. Soll el así ser (Asignar() sólo para binäre Archivos oder qué en el 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

Hola Roland, Yo otra vez.

Nach algunos Abstürzen, deren Fehler Yo sólo spät gefunden habe me está ni Concepto gekommen:

Como wärs si du, si posible, ähnlich como en Delphi, wo uno el ExitProc umleiten kann, el Profaner el Möglichkeit gibst, una Procedimiento a escribir, entonces eben no errorproc pero exitproc más o menos, el todos verbliebenen Speicherbereiche en el Fehlrefall freigibt y all solchen Kram. Yo denke, el wäre muy hilfreich (para XProfan 11 más o menos)...

Jac

PS: Wäre auch bien, si uno el Función/Procedimiento auch así normal aufrufen podría, quasi como 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]Como laut Outlook mi Mails no en dir ankommen escribir Yo el ahora eben hier rein:[/quote:dece3ac862]
Como solltest Usted veces con su OutLook reden. Offenbar lügt lo! Su Mail es angekommen y ya beantwortet!

Und si una Dateizuweisung con Asignar #nr%, name$ oder nr% = Asignar(name$) es, macht keinerlei Diferencia!

Saludo
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

Hola Roland!

Tuve lo ya veces woanders angesprochen, pero yo machs trotzdem otra vez:

Wenn uno una SpinEdit mittels EnableWindow deaktiviert, bleiben el Pfeile aktiv a uno con ratón drüberfährt (entsprechend umgekehrt es beim aktivieren). Yo habs en Dialogfenstern probiert, ni idea obs en %HWnd auch así es...
Yo weiß auch no obs a Profano oder Windows liegt, aber tal vez findest du sí una eventuell vorhandenen Fehler oder alguien ha ne Concepto cómo hacerlo verhindert (Repaint y así 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

¡Hola Jac,
Usted puede el Pfeile ebenfalls deaktivieren:
Kompilieren Marca Separación

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

Puedo mi Freude darüber nada ausdrücken! Hab ya ewig danach gesucht! DANKE! (Das debería todavía irgendwo festgehalten voluntad).

Yo persönlich habe el Función ItemId todavía nie verwendet...ahora ergibt él auch una 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

Hola Roland,

soviel Ärger como diesmal Tuve seit Profano² 3.3 no gehabt, en jahrelang fortentwickelte Programas en una neue PRF-Versión umzustellen. Bislang reichte siempre una Austauschen de Interpreter, Runtime y Compiler de y uno podría vergnügt weiterprogrammieren.
Kompilieren Marca Separación

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 en unterschiedlichen Varianten seit Jahren tadellos auch entonces, si la Listbox al Anfang todavía leer es. Nun kommt plötzlich en cada Línea en el Art:

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

el Fehlermeldung Ungültiger Funktionswert!, solange el Listbox todavía leer es.

Klar - en un 1000-Zeiler puede ser el simpel por una zusätzliche GetCount-Abfrage abfangen. Doch en una meiner derzeitigen Projekte con inzwischen 120000 Codezeilen wären como etliche Klimmzüge erforderlich. Denn en -zig verschiedenen Listboxen wäre como ya algo mehr stupide Fleißarbeit angesagt, como lediglich una vez Suchen-Ersetzen laufen que se.

Zumal Yo nun nada mehr sicher bin, si el el letzte Inkompatibilität wäre, después de que el con esta Listboxen evtl. alles en el Code angepaßt hätte.

Muß algo como wirklich ser?

¿Puede Usted el todavía irgendwie a para endgültigen Erscheinen de XProfan 10.0 así abändern, daß estos Kleinigkeit otra vez así funktioniert, como ya seit Jahren?

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