XProfan

Claus
Santa

Meintest Du BubbleTooltip?
Ja? Schau mal in die API-Aiuto unter Controls -> tooltip! Schau mal im Downloadcentre. Hoffe es hilft Dir weiter...

Snoozel,
[[StA/oXr]] // life is just'n bugfree, cos coding is life

28.10.2005 ▲

Jac
de
Lad

Ähhh, hab ich nicht gefunden???

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

29.10.2005 ▲

Rolf
Koch

Versuch es mal hiermit. Ab XProfan 8.0
Kompilieren Markieren Separieren

Def GetSysColor(1) !"USER32","GetSysColor"
Windowstyle 63
WINDOW 10,10-150,150
Windowtitle "TTIP"
Cls GetSysColor(15)
Usefont "MS SANS SERIF",13,0,0,0,0
Setdialogfont 1

PROC MAKETOOLTIP

    PARAMETERS HWD&,OBJ&,Tiptext$,STIL&
    declare ttip&
    let ttip& = Create("Tooltip",HWD&,OBJ&,TIPTEXT$)
    case stil&=0:setstyle ttip&,getstyle(ttip&)+$01
    case stil&=1:setstyle ttip&,$D000041
    case stil&=2:setstyle ttip&,$D022011
    case stil&=3:setstyle ttip&,$D000A01
    RETURN TTIP&

ENDPROC

declare btn&,btn2&,tip1&,tip2&,tip3&,btn3&
let btn& = Create("BUTTON",%hwnd,"Standart",10,10,100,20)
MAKETOOLTIP %HWND,BTN&,"Dies ist ein normaler Tooltip",0
tip1&=&(0)
let btn2& = Create("BUTTON",%hwnd,"Bubble",10,35,100,20)
MAKETOOLTIP %HWND,BTN2&,"Dies ist ein Bubbletooltip",1
tip2&=&(0)
let btn3& = Create("BUTTON",%hwnd,"Randlos",10,60,100,20)
MAKETOOLTIP %HWND,BTN3&,"Dies ist ein Tooltip ohne Rand",2
tip3&=&(0)
setfocus(%HWND)

while 1

    waitinput

wend

Soweit ich weis, sind die Bubbles unter XP nur aktiv, solange dieses Feature nicht abgeschaltet wurde.
Zum Beispiel mit XP-Antispy kann man die Bubbletipps abschalten.

Rolf

29.10.2005 ▲

Hm ich glaube MS handelt hier nach Respect users choice was heissen soll das die Bubbels immer kommen - der Programmierer jedoch drauf achten sollte ob der User diese überhaupt sehen möchte.

Salve.

29.10.2005 ▲

Jac
de
Lad

Ahh, danke. Ich probiers!!!

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

30.10.2005 ▲

Jac
de
Lad

Klappt alles wunderbar. Kann mir jemand aber sagen wie ich einen Tooltip erzwingen kann (wie die Balloontips in WinXP Neue Hardware gefunden... und so weiter)?

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

10.11.2005 ▲

Liegt die Betonung auf erzwingen? - Wenn ja, was meinst Du damit?

10.11.2005 ▲

Jac
de
Lad

Ich meine die Balloontips, die aufpoppen, ohne dass ich mit der Maus drübergehe.

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

Michael
Wodrich

Sind das wirklich Tooltips?
Oder eher OwnerDraw-Fenster die so tun als ob...
Die meisten sind ja mit einer Klick mich und ich starte einen Programmteil Routine hinterlegt.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Es sind baloons.

Rolf
Koch

.. und Michael, bedenke auch, dass Tooltips Controls sind. Konnte man ja schön bei meinen Beispielen sehen, welche animierte Icons u.s.w beinhalten. Es potrebbe wesentlich mehr possibile sein mit diesen Teilen.
Zum Beispiel: Farbverlauf reinzaubern, eigene Form gestalten und vieles mehr. Tootips sind halt bärenstarke Dinger *lol*
Wenn halt nicht die bekannte Manifest Problematik unter Profan bestünde.

Rolf