XProfan

English

Jörg
Sellmeyer

 $H Windows.ph
Var i% = 1
Cls
Var g& = Create("GroupBox",%hwnd,$ProfVer,10,10,300,130)
Var s& = Create("SpinEdit",%hwnd,"0;-100;100",15,36,100,24)
Var s1& = GetHandle(%hwnd,ItemId(s&) + 1)
~BringWindowToTop( s1&)' hier werden die Pfeile sonst verdeckt

While 1

    WaitInput
    i% = Not(i%)
    ShowWindow(s&,i%)' hier werden die Pfeile nicht berücksichtigt

CompileMarkSeparationProc DestroySpinEd

    Parameters hwnd&,Ed&
    DestroyWindow(GetHandle(hwnd&,ItemID(Ed&) + 1))
    DestroyWindow(Ed&)

ENDPROC

Proc ShowSpinEd

    Parameters hwnd&,Ed&,i%
    ShowWindow(GetHandle(hwnd&,ItemID(Ed&) + 1),i%)
    ShowWindow(Ed&,i%)

ENDPROC

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

02/14/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hello Jörg,

one SpinEdits exists from two Dialogelementen (namely Edit and Spin). that is: Dass one Edit-lever S& to a SpinEdits heard, knows only the Programmer self. and only he knows, that it one further element with the lever S&+1 gives, that it too yet treat must.

in the XProfan itself can I there means not plenty make, I one lever Yes not ansehe, whether it another second gives, what To treat would.

Greeting
Roland

XProfan X2
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

02/14/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

can Delphi assoziative Arrays?

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02/14/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

OK - Perhaps could You %ItemId at Create one Spinedits with the lastly erstellten Control bestücken, then had to the lever without The Rumturnerei with GetHandle() and ItemId().

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

02/14/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote