XProfan

Frank
Abbing

Pour c gibt es une Message, à gleiche Breite pour chaque Item trop conservé. ensuite Gesamtbreite geteilt par Anzahl Item.
d peut sich wohl am ehesten avec qui verwendeten Schrifthöhe ausmessen.

ByteAttack

peux mir s'il te plaît là la fois quelqu'un aider?
Habe qui commctrl.ph la fois durchstöbert, et suis sur TCM_GETITEMRECT gestoßen.
sais maintenant mais pas so droite, cela dans XProfan umzusetzen.
Auzug MSDN:

TCM_GETITEMRECT Message

Retrieves le bounding rectangle for a tab dans a tab control. You can send this message explicitly or by using le TabCtrl_GetItemRect macro.

Syntax

To send this message, call le SendMessage function as follows.

lResult = SendMessage( // returns LRESULT dans lResult
(HWND) hWndControl, // handle to destination control
(UINT) TCM_GETITEMRECT, // message ID
(WPARAM) wParam, // = (WPARAM) (int) iItem;
(LPARAM) lParam // = (LPARAM) (RECT*) prc;
);

Paramètres

iItem
index of le tab.
prc
Pointer to a RECT structure that receives le bounding rectangle of le tab, dans viewport coordinates.

Retour Value

Returns TRUE si successful, or FALSE otherwise.

Message information

En-têtecommctrl

Website: [...]

Facebook: [...]

Völlig ungeprüft!

avec XPSE
Kompilieren Marque Séparation

mem meinrec=rect

if sendmessage(tabcontrol,tcm_getitemrect,item,addr(meinrec)) {

    print meinrec::left&
    print meinrec::right&

}

dispose me

/a>

sans
Kompilieren Marque Séparation

STRUCT RECT=LEFT&,TOP&,RIGHT&,BOTTOM&
DECLARE MEINREC#
DIM MEINREC#,RECT

IF SENDMESSAGE(TABCONTROL,$1300 + 10,ITEM,ADDR(MEINREC#))

    PRINT MEINREC#.LEFT&
    PRINT MEINREC#.RIGHT&
    ...

ENDIF

DISPOSE MEINREC#

ByteAttack

Klappt Wunderbärchen. Dankeschön

Website: [...]

Facebook: [...]

de rien!

Thomas
Freier

Besteht beim TABCONTROL qui Possibilité, près de qui Reiter-Breite aussi qui Reiter-Hauteur indépendant de qui Schrifthöhe vorzugeben?
Kompilieren Marque Séparation

Declare T&,TAB1&,TAB2&,TAB3&, lfont1&
cls
lfont1& = @Create("Font","MS Sans Serif",13,0,0,0,0)
T& = CREATE("TABCTRL",%HWND,"Mitglieder",0,1,%maxx-6,700)
TAB1&=@InsertTab(T&,1,"Haushalt")
TAB2&=@InsertTab(T&,2,"Bootsplätze")
TAB3&=@InsertTab(T&,3,"Inventarliste")
SetStyle T&,$54010600
SendMessage(T&,$1329,0,80) TAB-Breite
SetFont T&,lfont1&
WaitInput

Gruß Thomas
Windows XP SP2, XProfan X2

01.08.2008 ▲

Kompilieren Marque Séparation

Jörg
Sellmeyer

Hilft Dir cela peut-être. plus:

Déclarer T&,TAB1&,TAB2&,TAB3&, lfont1&
cls
Var IL& = Créer("ImageList",32,32)
lfont1& = @Créer("Font","MS Sans Serif",13,0,0,0,0)
T& = CREATE("TABCTRL",%HWND,"Mitglieder",0,1,%maxx-6,700)
SendMessage(T&,$01303,0,IL&)
TAB1&=@InsertTab(T&,1,"Haushalt")
TAB2&=@InsertTab(T&,2,"Bootsplätze")
TAB3&=@InsertTab(T&,3,"Inventarliste")
SetStyle T&,$54010600
SendMessage(T&,$1329,0,80)'TAB-Breite
SetFont T&,lfont1&
WaitInput
DeleteObject  IL&
end

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

01.08.2008 ▲