XProfan

- Page 5 -

Jac
de
Lad

<Quengeln>Ich white, that you nothing more install want, Roland, but I vermise somehow yet SetCurSel for Comboboxen, Gridboxen, Listboxes...(or I habs again overlooking). the goes of course too with sendmessage, but if mans from the Page viewing are etliche command superfluously (GetCurSel, GetCount...) </Quengeln>

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

09/20/06 ▲

Perhaps could Roland Yes yet - hrm - for care the the fürchterliche Refreshing of %hwnd at terminate one Trackmenus aufhört. (this is something like of stööörend!)

09/24/06 ▲

Torsten
Rümker

have the following fixes

[...]

I thought I point here time hereon there.

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

09/28/06 ▲

Michael
Wodrich

alas therefore the Fischauge
(the incidentally only as solches To discern is, if one a 1000case-Zoom on it losläßt - and then too only with plenty goodwill. WEG DAMIT !!! - DAS GLOTZT MICH AN!!!)

integrally sincere: with $TempDir had I already expects, that there the Langname standing, whom one then - if desired - with ShortName$ to abbreviate can.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

RGH

[quote:282a4bec64=Michael Wodrich]integrally sincere: with $TempDir had I already expects, that there the Langname standing, whom one then - if desired - with ShortName$ to abbreviate can.[/quote:282a4bec64]
Tja, but the windows-API supply evident now time whom Kurznamen. (GetTempPath is The zugrundeliegende API.)

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

Michael
Wodrich

well well, allude wirs hold into Aids - then Gibts Yes still The function LangName$.

Best wishes
Michael Wodrich

Sorry, naturally LongName$()

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

too on The menace, the everything already festgezurrt and eingetütet is:

us missing in XProfan the binäre NOT.

The in the Helpfile beschriebene Notnagel sees namely with accurate Betrachtung integrally beautiful krumm from:
Compile Mark Separation

declare sync&
sync& = $100000
cls
print hex$(sync&), sync&
print hex$(not(sync&)), not(sync&)
print " "
Def @BNot(1) @XOr(@&(1), @Val("%" + @MkStr$("1", Len(Bin$(@&(1))))))
print hex$(sync&), sync&
print hex$(bnot(sync&)), bnot(sync&)
waitkey

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

[quote:7234659561]well, with something Grips tüddelt one itself the there [/quote:7234659561]
au weia, The Solution The I found have does correctly. painful.

How long need really HY-Indianer (to the stopwatch) for these Solution.

task: create one binäres NOT

Yes now white ichs. is one Bischen very simply, but always if to the thing need comes one on so simple items simply not.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Michael
Wodrich

Compile Mark Separation

Def @BNot(1) @XOr(@&(1), @Val("%" + @MkStr$("1", Len(Bin$(@&(1))))))
declare sync&,not_sync&
sync& = $100000
not_sync& = $FFFFFFFF - sync&
set("decimals", 0)
cls
print "zu wandelnde Zahl"
print "hex: $";hex$(sync&)
print "dez:", sync&
print "bin: %";bin$(sync&)
print " "
print "mit NOT() verarztet"
print "hex: $";hex$(not(sync&))
print "dez:", not(sync&)
print "bin: %";bin$(not(sync&))
print " "
print "mit BNOT() verarztet"
print "hex: $";hex$(bnot(sync&))
print "dez:", bnot(sync&)
print "bin: %";bin$(bnot(sync&))
print " "
print "die qzu Fußq-Methode"
print "hex: $";hex$(not_sync&)
print "dez:", not_sync&
print "bin: %";bin$(not_sync&)
print " "
waitkey
sync& = %10010
not_sync& = $FFFFFFFF - sync&
cls
print " "
print "hier ists besser zu sehen..."
print " "
print "zu wandelnde Zahl"
print "hex: $";hex$(sync&)
print "dez:", sync&
print "bin: %";bin$(sync&)
print " "
print "mit NOT() verarztet"
print "hex: $";hex$(not(sync&))
print "dez:", not(sync&)
print "bin: %";bin$(not(sync&))
print " "
print "mit BNOT() verarztet"
print "hex: $";hex$(bnot(sync&))
print "dez:", bnot(sync&)
print "bin: %";bin$(bnot(sync&))
print " "
print "die qzu Fußq-Methode"
print "hex: $";hex$(not_sync&)
print "dez:", not_sync&
print "bin: %";bin$(not_sync&)
print " "
waitkey
/../../function-references/XProfan/end/'>end

Programmieren, das spannendste Detektivspiel der Welt.

RGH

Topic @hardship()

The problem at binären NOT(worth) is hold, that one come to terms must, circa how much Bits It's all right, there from führenden 0-Bits Yes logischerweise führende 1-Bits go. others Languages take sometimes whom kleinstmöglichen Integertypen, into the worth reinpaßt or weg with one 32-bit-system in principle of 32 bit from.

imaginable would too one BNOT(worth, number), where it second Parameter even The To berücksichtigene Number of Bits contains.

with whom others binären Operators exit the trouble not, there sowohl 0 OR 0, alsauch 0 AND 0 and 0 XOR 0 always 0 yield. NOT 0 is even 1.

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

Nico
Madysa

Bevors in to be hooked unit: I had whom wish geäußert, that waitinput & Co. on Messages ´weiter untergeordneter Window reacted, z.B. RadioButtons, The of/ one GroupBox untergeordnet are.

Nico Madysa

Michael
Wodrich

Yes clear, but having we not intern anyway just LongInt?

then is $FFFFFFFF - Wert& already The Ideallösung and
LoWord should there Yes whom korrekten part abknapsen ifs time small his should.

I had the for Header-Umsetzung of/ one Konstanten used (there was one AND NOT SYNCRONIZE with drin.

becomes in the Header really of Präprozessor calculated? or becomes it what's it like transfer?

so the from whom whole OR Orgien simple Konstantenwerte go or resolve first the Compiler the on?

Programmieren, das spannendste Detektivspiel der Welt.