(834)  Registro

Español
Foro

TCItem-Struktur para TabControls

 
- Página 1 -



Jac
de
Lad
¡Hola Comunidad.

Kann me alguien el TCItem-Struktur para Tabcontrols puesto? Yo voluntad en Tabcontrols Icons einfügen. Dazu brauche Yo el Struktur. Yo habs con
KompilierenMarcaSeparación
Struct TCItem=mask&,dwState&,dwStateMask&,lpreserved1&,lpreserved2&,pszText&,cchTextMax&,iImage&,lParam&
>

probiert, pero funktioniert no. Yo poner el Imagelist, lese una Item con TCM_GetItem, poner el iImage& y escribir lo zurück con TCM_SetItem, pero klappt no.
Tal vez ha sí alguien vorgefertigten Ver código fuente, el sería me muy 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  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



« Dieser Contribución wurde como Solución gekennzeichnet. »


Jörg
Sellmeyer
y Reparaturdienst es otra vez unterwegs...
KompilierenMarcaSeparación
 $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 el Texto de Tab 0 (= 1. Reiter) por API
var NeuText$ = "Hallo Jac!"

with TCItem#

    .mask& = ~TCIF_TEXT'Was es a escribir o. a lesen
    .pszText& = Addr(NeuText$)
    .cchTextMax& = 255

endwith

waitInput
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitInput
'Und nun fügen wir una Imgelist hinzu ...
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
SendMessage(TabCtrl&, ~TCM_SETIMAGELIST, 0, hIL&)
'... y weisen el 1. Reiter (Tab 0) una Bild a)

with TCItem#

    .mask& = ~TCIF_IMAGE'Was es a escribir o. a lesen
    .iImage& = 20'el 20. Bild

endwith

imprimir ~TCIF_IMAGE
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitinput
waitinput
waitinput
disponer TCItem#
end

Mi Strukturdefinition quería auch sólo no. Tuve fälschlicherweise angenommen, iImage y cchTextMax seien Integer. Gut, dass uno hier rápidamente veces nachschauen kann.
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2018  ▲
 




RGH
¡Hola,
así sieht el Strukturdefinition en me en el API-Ayuda de:
KompilierenMarcaSeparación
 
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
Yo habs auch ya sin la 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 endlich rausgefunden. Yo werds heute abend veces para todos puesto.
 
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, hier una komplettes Ejemplo. Zuerst se el Texto con SET_ITEM geändert y en el zweiten Schritt una Bild de uno ImageList hinzugefügt:
KompilierenMarcaSeparación
 $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

Das debería Usted weiterhelfen.

Saludo
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, Yo sitz hier Stunden en el rauszukriegen y si yo escribir, dass ego tener, postet Roland hier rápidamente qué de. Es así deprimierend. Aber Hauptsache lo va ahora.
 
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, Yo sitz hier Stunden en el rauszukriegen y si yo escribir, dass ego tener, postet Roland hier rápidamente qué de. Es así deprimierend. Aber Hauptsache lo va ahora.


Erst después de que el Beispielprogramm adaptado y Nuevo hatte, Yo Su Post gesehen, Usted warst sólo unos pocos Minuten más rápido! ;)

Saludo
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
Dann mach Yo eben una Codesnippet con Icons, SetActiveTab etc., así wir alles beieinander haben. Und ne propio Containerfunktion kreiere Yo auch todavía, 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
Zu Rolands Ejemplo debería uno aber dazu escribir, daß lo sólo de XProfan11 se ejecuta!
@Jac: Schreib doch una Bsp., el una Api-Imagelist nutzt, para vorherige Versionen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07.01.2008  ▲
 




Jac
de
Lad
Hm, como sería se una eigener Imagelist-Hilo 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
y Reparaturdienst es otra vez unterwegs...
KompilierenMarcaSeparación
 $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 el Texto de Tab 0 (= 1. Reiter) por API
var NeuText$ = "Hallo Jac!"

with TCItem#

    .mask& = ~TCIF_TEXT'Was es a escribir o. a lesen
    .pszText& = Addr(NeuText$)
    .cchTextMax& = 255

endwith

waitInput
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitInput
'Und nun fügen wir una Imgelist hinzu ...
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
SendMessage(TabCtrl&, ~TCM_SETIMAGELIST, 0, hIL&)
'... y weisen el 1. Reiter (Tab 0) una Bild a)

with TCItem#

    .mask& = ~TCIF_IMAGE'Was es a escribir o. a lesen
    .iImage& = 20'el 20. Bild

endwith

imprimir ~TCIF_IMAGE
SendMessage(TabCtrl&, ~TCM_SETITEM, 0, TCItem#)
waitinput
waitinput
waitinput
disponer TCItem#
end

Mi Strukturdefinition quería auch sólo no. Tuve fälschlicherweise angenommen, iImage y cchTextMax seien Integer. Gut, dass uno hier rápidamente veces nachschauen kann.
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2018  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

9.954 Views

Untitledvor 0 min.
Sven Bader13.03.2023
Normann Strübli01.02.2023
RudiB.15.09.2022
Stringray05.01.2022
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

Jac de Lad (6x)
RGH (3x)
Jörg Sellmeyer (2x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie