English
Source / code snippets

Sprechblasen Toolbar Tooltip

 

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  
 




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  
 




Andreas
Miethe



CompileMarkSeparation
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  
 




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  
 



[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  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

7.684 Views

Untitledvor 0 min.
Gast.081508/25/24
RudiB.04/09/22
Langer12/19/21
Sven Bader08/07/21
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie