XProfan

- Page 2 -

Detlef
Jagolski

Hello Jac!

Perhaps so?
here one simple example
Compile Mark Separation

 $P+
SetErrorLevel 0
 $H WINDOWS.PH
 $H MESSAGES.PH
 $H SHELLAPI.PH
 $H STRUCTS.PH
 $H COMMCTRL.PH
 $I COOLBAR.INC
Declare appexit%
Declare RB#
Declare Edit&
SetTrueColor 1
WindowStyle $003F
WindowTitle "ReBar"
Window Add(%maxX,5),114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
Edit&=CreateEdit(%hwnd,"",155,77,121,21)
RB# = New(CoolBar,%hwnd,0,0,width(%Hwnd),40,2000)
RB#.RBClear()
RB#.RBSetfMask($00000831)
RB#.RBSetfStyle($00000284)
RB#.RBSethwndChild(Edit&)
RB#.RBSetcxMinChild(600)
RB#.RBSetcyMinChild(24)
RB#.RBSetcxHeader(10)
RB#.RBSetcyMaxChild(160)
RB#.RBInsert()
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If Equ(%key,2)

        Let appexit%=1

    ElseIf Equ(%key,4)

        Fenstergröße
        SetWindowPos RB#.RBGetHandle()=0,0-0,0;0

    ElseIf Equ(%key,5)

        Hilfe

    EndIf

Wend

Greeting

Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

Jac
de
Lad

my english is well, but I looks there nevertheless not everywhere through. I Try both things time from, but come probably not any more today moreover...

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

@D. Jagolski: your View source crashes unfortunately ex. it running too at all first on, as i InitCommnControlsEx in InitCommonControls changed have.

@Pascal: The View source goes, Perhaps can I from it learn, thanks!

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

Detlef
Jagolski

Hello Jac!

1. In my View source standing no InitCommonControlsEx.

2. View source on 4 Rechnern tested without Problems.

Greeting

Detlef

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

Jac
de
Lad

The Coolbar.inc (supra as second or drittes mail) contains the but. which Coolbar.inc uses You?

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

11/02/06 ▲

Jac
de
Lad

I come with the part not clear, I gebs on and stay with whom good, middle-aged Toolbars. thanks for trouble!

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

11/02/06 ▲

Uwe
''Pascal''
Niemeier

Hello Jac!

what want thou achieve or. How should the Result looks?

SeeYou
Pascal

11/04/06 ▲

Jac
de
Lad

I wanted to a Inc or PCU basteln, How ichs already for Progress Bars and Trackbars made have. but the Rebar-Control überfordert me completely.

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

11/04/06 ▲