XProfan

Frank
Abbing

for c there a Message, around the same wide for each Item to obtain. then Gesamtbreite shared through amount Item.
d can itself well on the ehesten with the verwendeten Schrifthöhe measure.

ByteAttack

can me Please there time someone help?
have The commctrl.ph time durchstöbert, and be on TCM_GETITEMRECT punched.
white now but not so right, the in XProfan umzusetzen.
Auzug MSDN:

TCM_GETITEMRECT Message

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

Syntax

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

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

Parameters

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

Return Value

Returns TRUE if successful, or FALSE otherwise.

Message information

Headercommctrl

Website: [...]

Facebook: [...]

quite ungeprüft!

with XPSE
Compile Mark Separation

mem meinrec=rect

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

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

}

dispose me

/a>

without
Compile Mark Separation

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. Thank you

Website: [...]

Facebook: [...]

gladly happen!

Thomas
Freier

exists at TABCONTROL The Possibility, next to the tab-wide too The tab-Höhe independent of the Schrifthöhe vorzugeben?
Compile Mark Separation

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

08/01/08 ▲

Jörg
Sellmeyer

helps you the evtl. moreover:

Compile Mark Separation

Declare T&,TAB1&,TAB2&,TAB3&, lfont1&
cls
Var IL& = Create("ImageList",32,32)
lfont1& = @Create("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-wide
SetFont T&,lfont1&
WaitInput
DeleteObject  IL&
end

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

08/01/08 ▲