| |
| |
|
| - page 1 - |
|
Jac
de
Lad | allô Community.
peux mir quelqu'un qui TCItem-Struktur pour Tabcontrols posten? je veux dans Tabcontrols Icônes insérer. en supplément brauche je qui Struktur. je habs avec
KompilierenMarqueSéparationStruct TCItem=mask&,dwState&,dwStateMask&,lpreserved1&,lpreserved2&,pszText&,cchTextMax&,iImage&,lParam& >
probiert, mais es funktioniert pas. je mets qui Imagelist, lese un Item avec TCM_GetItem, mets cela iImage& et schreibe es zurück avec TCM_SetItem, mais es klappt pas.
peut-être hat oui quelqu'un une vorgefertigten Voir le texte source, cela serait mir très weiterhelfen.
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 | 06.01.2008 ▲ |
|
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Jörg
Sellmeyer | 
$H windows.ph
$H messages.ph
$H commctrl.ph
$H structs.ph
Struct TCItem = mask&,\
dwState&,\
dwStateMask&,\
pszText&,\
cchTextMax&,\
iImage&,\
lParam&
CLS
var TCItem# = New(TCItem)
var TabCtrl& = create("TabCtrl", %HWnd, "Test", 300, 10, 200, 200)
'Wir changement den Text de Tab 0 (= 1. Reiter) per API
var NeuText$ = "Hallo Jac!"
with TCItem#
.mask& = ~TCIF_TEXT'quoi ist trop écrivons bzw. trop lesen
.pszText& = Addr(NeuText$)
.cchTextMax& = 255
endwith
waitInput
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitInput
'et eh bien fügen wir une Imgelist hinzu ...
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
SendMessage(TabCtrl&, ~TCM_SETIMAGELIST, 0, hIL&)
'... et weisen dem 1. Reiter (Tab 0) un Bild trop)
with TCItem#
.mask& = ~TCIF_IMAGE'quoi ist trop écrivons bzw. trop lesen
.iImage& = 20'cela 20. Bild
endwith
imprimer ~TCIF_IMAGE
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitinput
waitinput
waitinput
dispose TCItem#
end
mon Strukturdefinition voulais aussi seulement pas. je hatte fälschlicherweise angenommen, iImage et cchTextMax seien Integer. bien, dass on ici vite la fois chercher peux. |
|
| |
| |
| |
|
|
|
RGH | |
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 06.01.2008 ▲ |
|
| |
|
|
Jac
de
Lad | | je habs aussi déjà sans qui Reservisten erfolglos probiert... |
|
| |
| 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 | 07.01.2008 ▲ |
|
| |
|
|
Jac
de
Lad | Ahh, habs enfin rausgefunden. je werds ce soir la fois pour alle posten.  |
|
| |
| 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 | 07.01.2008 ▲ |
|
| |
|
|
RGH | Ok, ici un komplettes Beispiel. d'abord wird qui Text avec SET_ITEM geändert et im zweiten Schritt un Bild aus einer ImageList hinzugefügt:
KompilierenMarqueSéparation $H windows.ph
$H messages.ph
$H commctrl.ph
$H structs.ph
Struct TCItem = mask&,
dwState&,
dwStateMask&,
pszText&,
cchTextMax&,
iImage&,
lParam&
CLS
var TCItem# = New(TCItem)
var TabCtrl& = create(TabCtrl, %HWnd, Test, 300, 10, 200, 200)
Wir ändern den Text von Tab 0 (= 1. Reiter) per API
var NeuText$ = Hallo Jac!
with TCItem#
.mask& = ~TCIF_TEXT Was ist zu schreiben bzw. zu lesen
.pszText& = Addr(NeuText$)
.cchTextMax& = 255
endwith
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitInput
Und nun fügen wir eine Imgelist hinzu ...
var hToolBmp& = create(hPic, 0, TOOLBAR)
var hIL& = Create(ImageList, 16, 16, hToolBmp&, rgb(192, 192, 192))
SendMessage(TabCtrl&, ~TCM_SETIMAGELIST, 0, hIL&)
... und weisen dem 1. Reiter (Tab 0) ein Bild zu)
with TCItem#
.mask& = ~TCIF_IMAGE Was ist zu schreiben bzw. zu lesen
.iImage& = 20 das 20. Bild
endwith
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitinput
dispose TCItem#
end
cela sollte Dir weiterhelfen.
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 07.01.2008 ▲ |
|
| |
|
|
Jac
de
Lad | Oach menno, je sitz ici Stunden um cela rauszukriegen et si j'écris, dass ego hab, postet Roland ici vite quoi ab.  c'est so deprimierend. mais le principal und dir maintenant.  |
|
| |
| 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 | 07.01.2008 ▲ |
|
| |
|
|
RGH | Jac
Oach menno, je sitz ici Stunden um cela rauszukriegen et si j'écris, dass ego hab, postet Roland ici vite quoi ab. c'est so deprimierend. mais le principal und dir maintenant.
seulement après que je cela Beispielprogramm angepasst et posté hatte, habe je Deinen poste gesehen, tu étais arrêt un paire Minuten plus rapide! ;)
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 07.01.2008 ▲ |
|
| |
|
|
Jac
de
Lad | ensuite mach je plan un Codesnippet avec Icônes, SetActiveTab etc., avec cela wir alles beieinander avons. et ne eigene Containerfunktion kreiere je aussi encore, hehehe.  |
|
| |
| 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 | 07.01.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | trop Rolands Beispiel sollte on mais en supplément écrivons, qui es seulement ab XProfan11 fonctionne!
@Jac: Schreib doch un Bsp., cela une Api-Imagelist utilise, pour vorherige Versionen. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 07.01.2008 ▲ |
|
| |
|
|
Jac
de
Lad | | Hm, là serait sich un eigener Imagelist-Fil lohnen... |
|
| |
| 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 | 07.01.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer |
$H windows.ph
$H messages.ph
$H commctrl.ph
$H structs.ph
Struct TCItem = mask&,\
dwState&,\
dwStateMask&,\
pszText&,\
cchTextMax&,\
iImage&,\
lParam&
CLS
var TCItem# = New(TCItem)
var TabCtrl& = create("TabCtrl", %HWnd, "Test", 300, 10, 200, 200)
'Wir changement den Text de Tab 0 (= 1. Reiter) per API
var NeuText$ = "Hallo Jac!"
with TCItem#
.mask& = ~TCIF_TEXT'quoi ist trop écrivons bzw. trop lesen
.pszText& = Addr(NeuText$)
.cchTextMax& = 255
endwith
waitInput
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitInput
'et eh bien fügen wir une Imgelist hinzu ...
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
SendMessage(TabCtrl&, ~TCM_SETIMAGELIST, 0, hIL&)
'... et weisen dem 1. Reiter (Tab 0) un Bild trop)
with TCItem#
.mask& = ~TCIF_IMAGE'quoi ist trop écrivons bzw. trop lesen
.iImage& = 20'cela 20. Bild
endwith
imprimer ~TCIF_IMAGE
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitinput
waitinput
waitinput
dispose TCItem#
end
mon Strukturdefinition voulais aussi seulement pas. je hatte fälschlicherweise angenommen, iImage et cchTextMax seien Integer. bien, dass on ici vite la fois chercher peux. |
|
| |
| |
| |
|
(1.353)
Deutsch
English
Français
Español
Italia