XProfan

- page 1 -

Claus
Santa

Meintest Du BubbleTooltip?
oui? exposition la fois dans qui API-Aider sous Controls -> tooltip! exposition la fois im Downloadcentre. Hoffe es hilft Dir plus...

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

28.10.2005 ▲

Jac
de
Lad

Ähhh, hab je pas trouvé???

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 la fois hiermit. Ab XProfan 8.0
Kompilieren Marque Séparation

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 je weis, sommes qui Bubbles sous XP seulement aktiv, solange cet Feature pas abgeschaltet wurde.
Zum Beispiel avec XP-Antispy peux on qui Bubbletipps débrancher.

Rolf

29.10.2005 ▲

Hm je crois MS handelt ici pour Respect users choice quoi heissen soll cela qui Bubbels toujours venons - qui Programmierer cependant sur elle achten sollte si qui User cet überhaupt voyons voudrais.

Salve.

29.10.2005 ▲

Jac
de
Lad

Ahh, merci. je 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. peux mir quelqu'un mais dire comment je une Tooltip erzwingen peux (comment qui Balloontips dans WinXP Neue Hardware trouvé... et so plus)?

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 qui Betonung sur erzwingen? - si oui, quoi meinst Du avec cela?

10.11.2005 ▲

Jac
de
Lad

je mon qui Balloontips, qui aufpoppen, sans dass je avec qui souris 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

sommes cela wirklich Tooltips?
ou bien plutôt OwnerDraw-la fenêtre qui so 1faire comme si...
qui meisten sommes oui avec einer Klick mich et je starte une Programmteil Routine hinterlegt.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

il y a baloons.

Rolf
Koch

.. et Michael, bedenke aussi, dass Tooltips Controls sommes. Konnte on oui joli chez meinen Beispielen voyons, quelle animierte Icônes u.s.w beinhalten. Es pourrait wesentlich plus possible son avec cette partager.
Zum Beispiel: Farbverlauf reinzaubern, eigene forme gestalten et vieles plus. Tootips sommes arrêt bärenstarke Dinger *lol*
si arrêt pas qui bekannte Manifest Problematik sous Profan bestünde.

Rolf