XProfan

English

Jac
de
Lad

Hello.

How I by API a Toolbar beget, The as Tooltips Sprechblasen has, white I, but white someone, How I a Toolbar, The with Create(Toolbar created watts, Sprechblasen allocate can?

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

01/28/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

there slopes I time dran and question, whether someone white, How one The Tooltips the individual Buttons change can. The Button having of course a ID, but Gethandle daruf applied gives only 0 back.
there's The Message TTM_UPDATETIPTEXT, The well very for virtual is. for normal Buttons functions it indeed, but How are with Toolbarbuttons?

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

08/10/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Compile Mark Separation

Declare hToolBar&, hBild&, ende%
Cls
hToolbar& = @Create("TOOLBAR", %hWnd, 0, 0, 32, 2000, 1)
Toolbar("AddButton", hToolbar&, 1, 201, "TipStyle-Bubble")
Toolbar("AddButton", hToolbar&, 2, 202, "Tiptext")
Toolbar("AddButton", hToolbar&, 3, 203, "ENDE")

WhileNot ende%

    WaitInput

    If %KEY = 2

        ende% = 1

    ElseIf %KEY = 4

        SetWindowPos hToolbar& = 0, 0 - 0, 0; 0

    ElseIf @MenuItem(201)

        SetStyle sendmessage(hToolbar&,1059,0,0),Getstyle(sendmessage(hToolbar&,1059,0,0)) | $40

    ElseIf @MenuItem(202)

        SetTipText(sendmessage(hToolbar&,1059,0,0),hToolbar&,202,"ups, ich bin geändert worden "+Time$(0)+":"+left$(Time$(1),2))

    ElseIf @MenuItem(203)

        ende% = 1

    EndIf

EndWhile

End

Proc SetTipText

    Parameters TipCtl&,Owner&,Ctl&,NewText$
    Declare TButton#
    DIM TButton#,40
    LONG TButton#,0=40
    LONG TButton#,4=$0
    LONG TButton#,8=Owner&
    LONG TButton#,12=Ctl&*-1
    LONG TButton#,36=addr(NewText$)
    Sendmessage(TipCtl&,1036,0,TButton#)TTM_UPDATETIPTEXT
    Dispose TButton#

ENDPROC

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Ah! The Andreas - thanks vielmals!

and only the Vollstädigkeit halber:

1059 = ~TB_GETTOOLTIPS

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

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[offtopic]@Jörg: hint: there the Thread one to that cover suitable Codesnippet aufzeigt (thanks Andreas) have I this to the Codesnippets moved and a [X] Blindkopie under "Programmierung/generally/Einsteigerfragen" leave.[/offtopic]

08/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote