XProfan

English

Edwin
Camdzic

Hi,

me has the Vista solid so fasciated, I it in my XP-programs install wants. but it depends there scho integrally at the beginning. because whom Aero effect have I already hinbekommen, one can for but the window not move (stupid). now bräuchte I Please a, the me says How I one Window without title bar and without Menüleiste move can. be for each Help grateful.

thanks in the Vorraus!

circa Aero hinzubekommen, using the window whom Desktop as background. If to the Window now move would, so would still the background the old boy his and not update? Can against it something make?

bye

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

Edwin
Camdzic

Hi,

OK, have understood and will be me on it hold!

Sry, nacher is one always everything clear. (respect good Bsp.)

%% war no good Box How your there %%
Compile Mark Separation

Windowstyle 112
window 200,200 - 583,397
loadbmp C:\_ground.bmp ,0,0;-1
Def ReleaseCapture(0) !USER32,ReleaseCapture
Declare ende%
Print         Fenster mit Linksklick bewegen - Rechtsklick beendet

Whilenot ende%

    Waitinput

    If Equ(%message,$201) 	 WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Wert: ist besser als $0F010 (SC_MOVE)
        ReleaseCapture()	 funktioniert auch ohne, ist aber besser so
        UseCursor 0

    ElseIf Equ(%message,$204)  WM_RButtonDown

        Let ende%=1

    EndIf

Wend

End

Image contain Weißanteile The ausgeblendet go, and so the Desktop durchscheint

XP Home SP2, Profan 9.1

?? enough ??

bye

_ground.bmp	680 kB

Kurzbeschreibung:	Image, that loaded becomes!

Hochgeladen:	04/06/07

Downloadcounter:
		Download

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

mach simply instead of

rather [CODE] for quelltexte - habs time changed with you...

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Edwin
Camdzic

OK, thanks!

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

the Image from the You redest (what unfortunately not included is) likes Yes Weißanteile own - but these to the move To update becomes you not gelingen there Windows itself no Info above own what objectively behind the Window lying. only Mgl. would the cut out of Fensterteilen through Regions. Hierbei is only a transparency possible - no Transluzens. under WinXP could You then these ausgeschnittenen Regions however against heap - with transluzierenden Statics. thereby can You then but not any more The shift with the Capture Release-Api benefit - You müsstest then my above-mentioned Variant for the move benefit there You The Statics manually at move nachpositionieren müsstest. (The Variante from the Frank means one could tappt im dunkeln not ausbauen ;) )

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Edwin
Camdzic

now with images!

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look time rounded corners:
Compile Mark Separation

def ReleaseCapture(0) !USER32,ReleaseCapture
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def SetWindowRgn(3) !USER32,SetWindowRgn
Declare ende%
Windowstyle 112
window 200,200 - 583,397
loadbmp _ground.bmp ,0,0;0
SetWindowRgn(%hwnd, RoundRectRgn(0,0,width(%hwnd),height(%hwnd),18,18), 1)

Whilenot ende%

    Waitinput

    If Equ(%message,$201) WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Wert: ist besser als $0F010 (SC_MOVE)
        ReleaseCapture() funktioniert auch ohne, ist aber besser so
        UseCursor 0

    ElseIf Equ(%message,$204) WM_RButtonDown

        Let ende%=1

    EndIf

Wend

End

04/06/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Alfred
Wagner

Hello edwin
Have a little bit with IF;s code played

if You another Checkbox need
Compile Mark Separation

def ReleaseCapture(0) !USER32,ReleaseCapture
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def SetWindowRgn(3) !USER32,SetWindowRgn
Declare ende%,Fenstert$,Ende&,CB&,Txt$,hFont%,Text$
Windowstyle 112
window 200,200 - 583,397
loadbmp _ground.bmp ,0,0;0  ** Pfad anpassen
SetWindowRgn(%hwnd, RoundRectRgn(0,0,width(%hwnd),height(%hwnd),18,18), 1)

Proc Controls

    Fenstert$ = Hier kommt der Fenstertietel hin
    TextColor RGB($FF, $00, $00),-1  ** Blauer Text
    USEFONT Arial,22,0,1,1,0** Schriftart
    Drawtext 140,15,Fenstert$
    hFont% = @Create(Font,MS Sans Serif,13,0,0,0,0)** Schriftart
    Ende&=CREATE(BUTTON,%HWND,Ende,450,350,90,22)
    SetFont Ende&,hFont%** Schriftart für Button
    Text$ = Ich bin der Checkbox Text
    CB&= CREATE(Checkbox,%HWND,,30,100,12,12)
    TextColor RGB($00,$00,$FF),-1  ** Blauer Text
    USEFONT MS Sans Serif,13,0,0,0,0** Schriftart
    Drawtext 50,100,Text$

Endproc

Controls
** Hauptschleife
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ElseIf Equ(%message,$201) WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Wert: ist besser als $0F010 (SC_MOVE)
        ReleaseCapture() funktioniert auch ohne, ist aber besser so
        UseCursor 0

    ElseIf Equ(%message,$204) WM_RButtonDown

        Let ende%=1

    ELSEIF GETFOCUS(Ende&) BUTTON

        ENDE%=1

    EndIf

Wend

href='./../../references-fonction/XProfan/end/'>End

Regards

Alfred with family

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hello edwin
Have a little bit with IF;s code played

was the abgewandelte Code Thomas H. its own (first) code develops not even iF moreover...

around the again klarzustellen - only because iF constantly (by Skype) hereon herumreitet: against my Posting functions it indeed well without Subclassing. Thomas has even another (very) intelligente Solution found.
iFs first code find I but as always primitiv and not sonderlich ausbaufähig. gives only Problems, if it moreover develops would.

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Edwin
Camdzic

Hi,

thanks for many good Proposals and thanks for Help!

it shining means you don't say so To his with the the background so hinzubekommen, How I me the pictured have. Schade!

Nocheinmal thanks.

PS: is it possible The derzeitige position one Fensters To detect, then these To Save, the window To terminate and a new Window on the middle-aged position new aufzubauen?

Bsp.:
Compile Mark Separation

windowstyle 80
window 100,100 - 100,100
dann wird das Fenster verschoben auf
windowstyle 80
window %WinLeft,%Wintop - 100,100
und jetzt das Fenster löschen und auf der Position
windowstyle 112
window %WinLeft,%Wintop - 100,100
neu aufb

bye,

lg edwin

xp home, profane 9.1

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

oldmike

look time in the Profan-Help (I Have The XProfan10-Using XProfan.de loaded) in the Indexsuche under Window Centered.....

the ought to you help on

cu
oldmike

the Suchwort Fenstergröße is yet rather...

--
Das Leben ist ein Scheiß-Spiel, aber die Grafik ist geil.

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Edwin
Camdzic

Hi,

afer a long Überlegen, I had a idea.

would be it because you don't say so, that local Wallpapers, simply To copy. means the image, where itself straight the window befindet?
one should the window wegbewegen and the previous position the Fensters remember.then the image into memory copy, the window on whom Space moving, the image from memory insert and the image the Window (_ground.bmp) darüberleben.

I faith, that The idea none so badly would, but to Umsetzung missing me self The nötige experience.

bye

xp home, profane 9.1

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

...and what happens then if itself one other Window behind Your Window befindet?
If you any these Fehlerquellen eliminating want then runs the on a Own Fensterverwaltung out. there are You with Subclassing then still rather bedient.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

04/07/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

◄

123

►