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:-)
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:-)
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
Alles anzeigen
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
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
Re..was?
Zitat von p. specht;788799Re..was?
Das sind die verschieb- und andockbaren toolbar-ähnlichen Controls mit den Greifern links.
Äh... danke.
Ich denke, die Dinger hast du schon gesehen.
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!