| |
| |
|
KHR | Hallo Miteinander,
ich habe ein bißchen mit der Lupenfunktion herumgespielt.
Klappt auch alles so gut
KompilierenMarkierenSeparierenLupen_fenster& = @Create(Window,%desktop,lupe,20,20,200,120)
Lupe_rgn& = RoundRectRgn(0,0,200,120,18,18)
SetWindowRgn(Lupen_fenster&, Lupe_rgn& , 1)
Was könnte ich tun, um der Region einen Rahmen zu geben? So daß man sie auch sieht, wenn weiß aus weißsem Hintergrund abgebildet wird |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 01.06.2009 ▲ |
|
| |
|
|
Frank
Abbing | Dafür gibts ne API, die heißt FrameRgn().  |
|
| |
| |
| |
|
|
KHR | Danke Frank
ich hab das mal so versucht;
KompilierenMarkierenSeparierenDef SetWindowRgn(3) !USER32,SetWindowRgn
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def RgnBorder(5) !GDI32,FrameRgn
Def CreateSolidBrush(1) ! GDI32,CreateSolidBrush
windowstyle 1136
Lupen_fenster& = @Create(Window,%desktop,lupe,20,20,200,120)
Lupe_rgn& = RoundRectRgn(0,0,200,120,18,18)
region& = SetWindowRgn(Lupen_fenster&, Lupe_rgn& , 1)
solidbrush& = CreateSolidBrush(@rgb(1,1,1))
border& = RgnBorder(Lupen_fenster&, Lupe_rgn& , solidbrush& ,3 ,3 )
Variablen sind deklariert, Fenster und Lupe funktionieren,
es gibt keine Fehlermeldung
aber das Fenster/die Region hat immer noch keinen Rahmen.
Was mach ich falsch?? |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 01.06.2009 ▲ |
|
| |
|
|
Dieter
Zornow | |
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 01.06.2009 ▲ |
|
| |
|
|
Frank
Abbing | Der erste Parameter von FrameRgn() muss wohl der HDC deines Fensters sein, nicht der Fensterhandle.
Hab die Funktion selber auch noch nicht benutzt. |
|
| |
| |
| |
|
|
Dieter
Zornow | FrameRgn(hdc&,rgn&,sb&,x%,y%)
hdc des Fensters, handle der Region, handle Brush, rahmenbreite, rahmenhöhe
das sind die Parameter
Gruß
Dieter |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 01.06.2009 ▲ |
|
| |
|
(2.145)
Deutsch
English
Français
Español
Italia