Hallo Leute!
Danke für die Werbung ;-) ,aber die Beipiele stammen noch aus der Zeit, als
TabControls noch nicht von Profan direkt unterstützt wurden.
Alles, was Profan bei TabControls nicht selbst kann, lässt sich mit Messages erreichen
(siehe Win32.hlp unter TabCotrols).
Beispiel:
window 50,50-400,400
declare Tab#,Tab&
struct Tab = Mask&,Res1&,Res2&,Text&,TextMax&,Ico&,Text$(100)
dim Tab#,Tab
Tab#.Mask& =1'--------TCIF_TEXT
Tab#.Text& =Tab#+24'--Offset zum Textpuffer
Tab#.TextMax&=100
Tab&=Create("Tabctrl",%hwnd,"Hoppe",50,50,200,200)'--Control + 1.Reiter
inserttab(Tab&,1,"Hoppe")'---------------------------2.Reiter
waitkey
Tab#.Text$="Reiter"'------------neuer Text für 1. Reiter (Index 0)
sendmessage(Tab&,4870,0,Tab#)'--TCM_SETITEM -> 3. Parameter Index
sendmessage(Tab&,4872,1,Tab#)'--TCM_DELETEITEM -> 3. Parameter Index
dispose Tab#
waitkey
HTH
Pascal
|