Foro | | | | | 
Dieter
Zornow | Yo habe en mi Programa Problemas una con Crear("Mapa de bits" .... erstellte Grafik je después de Tab anzuzeigen oder a verstecken, Posesiones entonces veces para Testen una Minimalbeispiel gemacht y el verhält se total anders como en mi Original. Im Original bekomme Yo no versteckt. Hier se lo primero no adecuado, obwohl lo el debería. Aber todavía clic en el Reiter erscheint lo entonces doch. Posesiones entonces el Abfrage getestet con TabChanged() getfocus() y Clicked(). Dabei es ni Merkwürdigkeit aufgetaucht. Das Tabcontrol erhält scheinbar niemals el Fokus, porque sonst debería en el Ventana principal mi Abfrage erscheinen. Puedo stundenlang clic, el Tabcontrol ha no Fokus sólo si yo en una Reiter zweimal hintereineinander klicke ha lo de como a el Fokus.Clicked() y Tabchanged() reagieren aber auch sin Fokus In diesem Zusammenhang scheint XProfan je después de Laune a reagieren, porque el Ausgangsbasis war, Yo kann el Mapa de bits no verstecken. Hier veces una Testcode. Yo hoffe en el Schnelle son no Fehler drin.
KompilierenMarcaSeparaciónDef Show(1) ShowWindow(@&(1), 1)
Def Hide(1) ShowWindow(@&(1), 0)
var ende% = 0
cls
dialog()
Proc SetActiveTab
Parameters Tab&,Index&
SendMessage(Tab&,$1330,Index&, 0)
EndProc
PROC DIALOG
var DLG& = CREATE("DIALOG",%Hwnd,"Neues Fenster",(%maxx/2 - 534/2),(%maxy/2 - 500/2),534,500)
Var tc& = CREATE("TABCTRL",DLG&,"Tab 1",0003,0003,0520,0412)
InsertTab(tc&,1,"Tab 2")
InsertTab(tc&,2,"Tab 3")
InsertTab(tc&,3,"Tab 4")
var hpic& = Create("hSizedPic",-1,$WinPath+"\Angler.bmp",100,100,1)
var bmp& = Create("BITMAP",dlg&,hpic&,10,35)
var but& = Create("Button",dlg&,"Verstecke",10,250,100,25)
setActivetab(tc&,0)
show(bmp&)
whilenot ende%
waitinput
If %key = 2
ende% = 1
elseif TabChanged(tc&)
elseif getfocus(tc&)
elseif clicked(tc&)
case getfocus(tc&):Print "Focus"
case getactivetab(tc&) = 0:show(bmp&)
case getactivetab(tc&) = 1:hide(bmp&)
case getactivetab(tc&) = 2:hide(bmp&)
case getactivetab(tc&) = 3:show(bmp&)
elseif Clicked(but&)
Hide(bmp&)
endif
endwhile
deleteobject hpic&
end
ENDPROC
Saludo
Dieter |
| | | | Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 15.08.2008 ▲ |
| | |
| | 
Jörg
Sellmeyer | Also, si el De mapa de bits en tc& plazierst, erscheint ellos auch igual y el Buttonabfrage darf natürlich no hinter GetFocus(tc&) tener lugar. Wenn uno hinter el Buttonabfrage otra vez el Focus en tc& setzt, funktioniert lo auch.
KompilierenMarcaSeparación $H commctrl.ph
Def Show(1) ShowWindow(@&(1), 1)
Def Hide(1) ShowWindow(@&(1), 0)
var ende% = 0
cls
dialog()
Proc SetActiveTab
Parameters Tab&,Index&
SendMessage(Tab&,$1330,Index&, 0)
EndProc
PROC DIALOG
var DLG& = CREATE("DIALOG",%Hwnd,"Neues Fenster",(%maxx/2 - 534/2),(%maxy/2 - 500/2),534,500)
Var tc& = CREATE("TABCTRL",DLG&,"Tab 1",0003,0003,0520,0412)
InsertTab(tc&,1,"Tab 2")
InsertTab(tc&,2,"Tab 3")
InsertTab(tc&,3,"Tab 4")
var hpic& = Create("hSizedPic",-1,$WinPath+"\Angler.bmp",100,100,1)
var bmp& = Create("BITMAP",tc&,hpic&,10,35)
var but& = Create("Button",dlg&,"Verstecke",10,250,100,25)
setActivetab(tc&,0)
show(bmp&)
whilenot ende%
waitinput
If %key = 2
ende% = 1
elseif TabChanged(tc&)
elseif TabChanged(tc&)
elseif clicked(tc&)
case getfocus(tc&):Print "Focus"
case getactivetab(tc&) = 0:show(bmp&)
case getactivetab(tc&) = 1:hide(bmp&)
case getactivetab(tc&) = 2:hide(bmp&)
case getactivetab(tc&) = 3:show(bmp&)
elseif Clicked(but&)
Hide(bmp&)
SetFocus(tc&)
endif
endwhile
deleteobject hpic&
end
../funzione-riferimenti/XProfan/ENDPROC/'>ENDPROC
Yo sería lo allerdings más así lösen:
KompilierenMarcaSeparación $H commctrl.ph
Def Show(1) ShowWindow(@&(1), 1)
Def Hide(1) ShowWindow(@&(1), 0)
var ende% = 0
cls
dialog()
Proc SetActiveTab
Parámetros Tab&,Index&
SendMessage(Tab&,$1330,Index&, 0)
ENDPROC
PROC DIALOG
var DLG& = CREATE("DIÁLOGO",%Hwnd,"Neues Fenster",(%maxx/2 - 534/2),(%maxy/2 - 500/2),534,500)
Var tc& = CREATE("TABCTRL",DLG&,"Tab 1",0003,0003,0520,0412)
InsertTab(tc&,1,"Tab 2")
InsertTab(tc&,2,"Tab 3")
InsertTab(tc&,3,"Tab 4")
var hpic& = Crear("hSizedPic",-1,$WinPath+"\Angler.bmp",100,100,1)
var bmp& = Crear("BITMAP",tc&,hpic&,10,35)
var but& = Crear("Button",dlg&,"Verstecke",10,250,100,25)
setActivetab(tc&,0)
show(bmp&)
whilenot ende%
waitinput
Case Clicked(tc&):ShowWindow(bmp&,(GetActivetab(tc&) = 0) Or (GetActivetab(tc&) = 3))
If %key = 2
ende% = 1
elseif TabChanged(tc&)
Hier kann uno todavía otro Sachen hacer
elseif Clicked(but&)
Hide(bmp&)
SetFocus(tc&)
endif
endwhile
deleteobject hpic&
end
ENDPROC
|
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 15.08.2008 ▲ |
| | |
| |
Dieter
Zornow | @Jörg,
Gracias, en mi Originalprogramm frage Yo auch con Tabchanged() de. Das war sólo una Test con el Fokus. Seltsam es ya, dass el Tabcontrol sólo una Haga doble clic en el Fokus erhält. Zum zweiten debería el Bild auch en dlg& inmediatamente erscheinen, porque Controls debería meiner Meinung después de no el Tabcontrol. Wenn uno en mi Ejemplo con Tabchanged() abfragt erscheint lo en efecto aber sólo después de el Clic en el Tabs. Es eigentlich alles muy seltsam y yo kann lo No erklären. Yo voluntad sólo siempre wissen, por qué lo así verhält.
Bin aber siempre todavía al suchen por qué se el Bild en mi Originalprogramm egal wo Yo hinlege no verstecken lässt. Yo voluntad wohl alles ändern y cada Tab en una propio Control legen, el Yo entonces gesamt verstecke y anzeige, porque Yo en cada Tab, en 6 Tabs, ca 17 Controls y Profano es a langsam beim Erstellen el nichtangezeigten igual a verstecken, así dass alles flackert beim Aufbau.
Saludo
Dieter |
| | | | Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 16.08.2008 ▲ |
| | |
|
RespuestaThemeninformationenDieses Thema ha 2 subscriber: |
(889)
Deutsch
English
Français
Español
Italia