Blitz Plus und Vista Glas Effect ?
Übersicht
BlitzBasic BlitzPlus
FWeinbehemals "ich"Betreff: Blitz Plus und Vista Glas Effect ? |
 Sa, Apr 12, 2008 12:53Antworten mit Zitat 
|
|
|---|---|---|
|
Hallo ich wollte wissen ob es mit BP möglich ist das Aero Designe zu nutzen und zwar für das komplette Fenster, wie bei der Sidebar, wenn man eine Minianwendung hinzufügt.
mfg ich |
||
|
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955)
"If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs |
||
ChristianK |
Sa, Apr 12, 2008 17:43 Antworten mit Zitat
|
|
|---|---|---|
|
Ein Fenster mit Glas zu versehen ist recht einfach. Dafür braucht man nur ein paar wenige Funktionen.
Was schon schwieriger wird, ist das Zeichnen auf solche Fenster, weil ein Alphakanal benötigt wird. GDI+ eignet sich dafür am besten, ist aber in Blitz so gut wie unbenutzbar. 
Hier trotzdem mal ein Beispiel für ein leeres Glasfenster: Code: [AUSKLAPPEN] .lib "dwmapi.dll"
DwmExtendFrameIntoClientArea%( hwnd%, margins* ) .lib "user32.dll" SetClassLongA%( hwnd%, cl%, newlong% ) InvalidateRect%( hwnd%, rect%, erase% ) .lib "gdi32.dll" GetStockObject%( index% ) Code: [AUSKLAPPEN] win = CreateWindow( "AeroGlass", 200, 200, 400, 300, 0, 1 + 32 )
Local hwnd = QueryObject( win, 1 ) SetClassLongA( hwnd, -10, GetStockObject( 4 ) ) InvalidateRect( hwnd, 0, 1 ) Local margins = CreateBank( 16 ) PokeInt margins, 0, -1 DwmExtendFrameIntoClientArea( hwnd, margins ) FreeBank margins While True WaitEvent( ) If EventID( ) = $803 End Wend PS: Warum im Smalltalk und nicht im BlitzPlus-Forum? 
|
||
|
AdvanceLcd
Intel Core 2 Duo 3.2 GHz, 4 GB RAM, GeForce 8800 GTX | MacBook Pro 15,4″ Intel Core 2 Duo 2.4 GHz, 2 GB RAM, GeForce 8600M GT |
||
|
D2006Administrator |
Sa, Apr 12, 2008 17:44 Antworten mit Zitat
|
|---|---|---|
|
ChristianK hat Folgendes geschrieben: PS: Warum im Smalltalk und nicht im BlitzPlus-Forum?
Guter Einwand! ~Verschoben~ |
||
|
Intel Core i5 2500 | 16 GB DDR3 RAM dualchannel | ATI Radeon HD6870 (1024 MB RAM) | Windows 7 Home Premium
Intel Core 2 Duo 2.4 GHz | 2 GB DDR3 RAM dualchannel | Nvidia GeForce 9400M (256 MB shared RAM) | Mac OS X Snow Leopard Intel Pentium Dual-Core 2.4 GHz | 3 GB DDR2 RAM dualchannel | ATI Radeon HD3850 (1024 MB RAM) | Windows 7 Home Premium Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2 |
||
FWeinbehemals "ich" |
Sa, Apr 12, 2008 17:50 Antworten mit Zitat
|
|
|---|---|---|
|
Super geil Danke genau das was ich gesucht habe.
mfg ich |
||
|
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955)
"If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs |
||
Übersicht
BlitzBasic BlitzPlus
Powered by phpBB © 2001 - 2006, phpBB Group