XProfan

Frank
Abbing

Für c gibt es eine Message, um die gleiche Breite für jedes Item zu erhalten. Dann Gesamtbreite geteilt durch Anzahl Item.
d lässt sich wohl am ehesten mit der verwendeten Schrifthöhe ausmessen.

ByteAttack

Kann mir bitte da mal jemand helfen?
Habe die commctrl.ph mal durchstöbert, und bin auf TCM_GETITEMRECT gestoßen.
Weiß jetzt aber nicht so recht, das 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, // handle 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: [...]

Völlig ungeprüft!

Mit XPSE
Kompilieren Markieren Separieren

mem meinrec=rect

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

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

}

dispose meinrec

Ohne
Kompilieren Markieren Separieren

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: [...]

Gern geschehen!

Thomas
Freier

Besteht beim TABCONTROL die Möglichkeit, neben der Reiter-Breite auch die Reiter-Höhe unabhängig von der Schrifthöhe vorzugeben?
Kompilieren Markieren Separieren

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
end

Gruß Thomas
Windows XP SP2, XProfan X2

01.08.2008 ▲

Kompilieren Markieren Separieren

Jörg
Sellmeyer

Hilft Dir das evtl. weiter:

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-Breite
SetFont T&,lfont1&
WaitInput
DeleteObject  IL&
end

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

01.08.2008 ▲