Rebars

[Jac de Lad]

Hat jemand Ahnung von Rebars? Ich hatte mal einen Code, damit konnte ich welche erstellen, aber mir gehts auch darum, wie ich sie dann benutze, was ich alles damit machen kann und wie ich sie auslese und so.

Jac

[Frabbing]

Hab in meiner Sammelschublade einen Code gefunden. Ich glaub, der ist von Pascal:

window 50,50-700,500

declare ReBar&,ReBar#,Lb1&,Lb2&,Lb3&,a#
dim a#,16

Lb1&=create("listbox",%hwnd,"",0,0,0,0)
Lb2&=create("listbox",%hwnd,"",0,0,0,0)
Lb3&=create("listbox",%hwnd,"",0,0,0,0)
clearlist
addwindows ""
movelisttolist(Lb1&)
clearlist
addfonts
movelisttolist(Lb2&)
clearlist
addfiles "*.*"
movelisttolist(Lb3&)

clear a#
long a#,0=8
long a#,4=$FFFF'---Alles initialisieren
external("comctl32.dll","InitCommonControlsEx",a#)

'--Stil: $50000000 | ~CCS_NORESIZE | ~RBS_FIXEDORDER
ReBar&=Control("ReBarWindow32","",$50000804 ,10,10,600,400,%hwnd,1,0)
struct ReBar=Size&,Mask&,Style&,clrFore&,clrBack&,lpText&,cch&,iImage&,hwndChild&,\
cxMinChild&,cyMinChild&,cx&,hbmBack&,wID&,cyChild&,cyMaxChild&,cyIntegral&,\
cxIdeal&,lParam&,cxHeader&
dim ReBar#,ReBar'--REBARBANDINFO
clear ReBar#

with ReBar#
  .Size&=sizeof(ReBar#)
  .Mask&=$71'------RBBIM_STYLE | RBBIM_CHILD | RBBIM_CHILDSIZE | RBBIM_SIZE
  .cyMaxChild&=1'--Darf nicht Null sein

  .Style&=256'------------------------RBBS_NOGRIPPER (1. Band ohne Griff)
  .cxMinChild&=5'---------------------Minimum Breite
  .cyMinChild&=height(ReBar&)'--------Höhe des Bandes
  .cx&=100'---------------------------Vorgabe Breite
  .hwndChild&=Lb1&'-------------------Band 1
  sendmessage(ReBar&,1025,0,ReBar#)'--RB_INSERTBAND
  .Style&=128'------------------------RBBS_GRIPPERALWAYS (folgende Bänder mit Griff)

  .cxMinChild&=50'--------------------Minimum Breite
  .cyMinChild&=200'-------------------Höhe des Bandes
  .cx&=300'---------------------------Vorgabe Breite
  .hwndChild&=Lb2&'-------------------Band 2
  sendmessage(ReBar&,1025,1,ReBar#)'--RB_INSERTBAND

  .cxMinChild&=10'--------------------Minimum Breite
  .cyMinChild&=300'-------------------Höhe des Bandes
  .hwndChild&=Lb3&'-------------------Band 3
  sendmessage(ReBar&,1025,2,ReBar#)'--RB_INSERTBAND
endwith

while 1
  waitinput
  if sendmessage(ReBar&,1051,0,0) > height(ReBar&)'--1051 = RB_GETBARHEIGHT
    clear a#'--"Umklappen" rückgängig, falls Gripper nach unten gezogen wurde
    sendmessage(ReBar&,1047,0,a#)'--RB_SIZETORECT
  endif
endwhile

[Uwe 'Pascal']

Hi Leute!

Den Code hat Jac sicher schon; liegt ja bei iF rum.
Das Problem ist: Viel einfacher wird's wohl nicht

Die Dinger sind so komplex, daß ich mich in meine eigenen Routinen immer wieder selbst einarbeiten
und bei Änderungen jedesmal neu rumprobieren muß.
Und für eine umfangreiche und übersichtliche Analyse/Dokumentation fehlt mir bis dato die Zeit

@ Jac: Falls du irgendwas konkret brauchst/wissen willst, versuch es zu beschreiben oder erstell eine
Grafik und ich werde sehen, was sich machen läßt.

SeeYou
Pascal

[Jac de Lad]

Danke euch beiden.

Ja, so einen ähnlichen Code hatte ich schon. Mir würde auch ein Tutorial reichen, vorausgesetzt ich verstehe das. Ich kann noch nicht genau sagen, was ich machen will, außer eine Toolbar dadurch zu ersetzen, was genau hängt davon ab, was man so alles mit Rebars machen kann.

Jac

[p. specht]

Re..was?

[Frabbing]

Zitat von p. specht

Re..was?

Das sind die verschieb- und andockbaren toolbar-ähnlichen Controls mit den Greifern links.

[p. specht]

Äh... danke.

[Frabbing]

Ich denke, die Dinger hast du schon gesehen.