Drag'n'Drop?

BackupUser · Post by **BackupUser** » Sat Nov 30, 2002 3:14 pm

Restored from previous forum. Originally posted by johnfermor.

Hi everyone.

First Post from a total newbie... (Be gentle with me) =(;-O

How can I drag and drop gadgets (images, buttons, etc) elsewhere on a window? I don't wish to use any DX - just Windows stuff...

Thanks for your help ..

John

BackupUser · Post by **BackupUser** » Sat Nov 30, 2002 3:43 pm

Restored from previous forum. Originally posted by MrVainSCL.

Hio johnfermor..

i am not really sure of what do you mean... drag n drop files from one app to another? or moving gadgets inside an app to another place like a GUI builder?

Code: Select all

; Original source code by James L.Boyd
; I only moved Procedures to progstart..
;
  Procedure.l DropFiles ()
    ProcedureReturn EventwParam ()
  EndProcedure
;
  Procedure GetNumDropFiles (*dropFiles)
    ProcedureReturn DragQueryFile_ (*dropFiles, $FFFFFFFF, temp$, 0)
  EndProcedure
;
  Procedure.s GetDropFile (*dropFiles, index)
    bufferNeeded = DragQueryFile_ (*dropFiles, index, 0, 0)
    For a = 1 To bufferNeeded: buffer$ + " ": Next ; Short by one character!
    DragQueryFile_ (*dropFiles, index, buffer$, bufferNeeded+1)
    ProcedureReturn buffer$
  EndProcedure
;
  Procedure FreeDropFiles (*dropFiles)
    DragFinish_ (*dropFiles)
  EndProcedure
;
If OpenWindow (0, 100, 100, 300, 100, #PB_Window_SystemMenu, "Drag 'n' drop")
  DragAcceptFiles_ (WindowID(), 1)
  ; 
  Repeat
    Select WaitWindowEvent ()
      Case #WM_DROPFILES
      *dropped = DropFiles ()
      num.l = DragQueryFile_ (*dropped , $FFFFFFFF, temp$, 0)
      ;
      f$ = ""
      For files = 0 To num - 1
        f$ + GetDropFile (*dropped, files) + Chr (13)
      Next
      MessageBox_ (0, Str (num) + " file (s) dropped:" + Chr (13) + Chr (13) + f$, "Drag 'n' Drop", 0)
      FreeDropFiles (*dropped)
      ;
      Case #PB_EventCloseWindow
      Quit = 1
      ;
    EndSelect
  Until Quit = 1
EndIf
End

PIII450, 256MB Ram, 80GB HD + 6,4 GB, RivaTNT, DirectX8.1, SB AWE64, Win2000 + all Updates...

greetz
MrVainSCL! aka Thorsten

BackupUser · Post by **BackupUser** » Sat Nov 30, 2002 5:32 pm

Restored from previous forum. Originally posted by johnfermor.

Thanks for your prompt reply MrVainSCL

Sorry for not being too clear about this..

I actually need to move icons (and possibly buttons) around the screen like a GUI builder / tile mapper app.

Many thanks for your help..

John

BackupUser · Post by **BackupUser** » Sat Nov 30, 2002 9:03 pm

Restored from previous forum. Originally posted by Berikco.

Hi johnfermor,

This is something i have quicly put together.
Far from finished, far from perfect, and far from bugfree

I have one report it does not work on W2K, can anybody test this pls?
On XP here, works fine.
Any help to get it working 100% is apriciated

Fred, no #WM_MOUSEMOVE Event when mouse goes over other gadget during resize...help..

Code: Select all

Structure boxjes
  x.l
  y.l
EndStructure
Dim selpoint.boxjes(6)

Structure gdgets
  id.l
  type.l
  x.l
  y.l
  w.l
  h.l
  t.s
EndStructure

Dim db.gdgets(10)

db(1)\id=1
db(1)\type=1 ;textgadget
db(1)\x=20
db(1)\y=10
db(1)\w=100
db(1)\h=20
db(1)\t="Hoegaarden"

db(2)\id=2
db(2)\type=2  ;stringgadget
db(2)\x=20
db(2)\y=40
db(2)\w=200
db(2)\h=20
db(2)\t="Goedendag allemaal, voor mij een pintje"

db(3)\id=3
db(3)\type=3  ;buttongadget
db(3)\x=150
db(3)\y=190
db(3)\w=100
db(3)\h=20
db(3)\t="Beer Here"

Global numgadget, SelectedGadget, BoxW, MouseDown, SelectedPoint
numgadget=3
#Color=$F5080A
;#Color=$1351EC
f1=1
BoxW=7

Global hwnd

hwnd=OpenWindow(0,100,350,400,400, #PB_Window_SystemMenu    ,"BeerGUI")

Procedure Clear_screen()
  
  b.RECT
  ;b\left=0
  ;b\top=0
  b\right=WindowWidth()
  b\bottom=WindowHeight()
  
  InvalidateRect_(hwnd,@b,1)
  
  sendmessage_(hwnd,#WM_PAINT,0,0)
  
  While WindowEvent():Wend
  
EndProcedure

Procedure redraw()
  For s=1 To numgadget
    Select db(s)\type
      Case 1
        TextGadget    (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
      Case 2
        StringGadget  (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
      Case 3
        ButtonGadget  (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
    EndSelect
  Next s
EndProcedure

Procedure draw_sizer()
  If SelectedGadget
    StartDrawing(WindowOutput())
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y-1, db(SelectedGadget)\w+1, 0, #Color)
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y-1, 0, db(SelectedGadget)\h+1, #Color)
    Line(db(SelectedGadget)\x+db(SelectedGadget)\w, db(SelectedGadget)\y-f1, 0, db(SelectedGadget)\h+1, #Color)
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y+db(SelectedGadget)\h, db(SelectedGadget)\w+1, 0, #Color)
    
    selpoint(1)\x = db(SelectedGadget)\x-BoxW
    selpoint(1)\y = db(SelectedGadget)\y-BoxW
    selpoint(2)\x = db(SelectedGadget)\x+db(SelectedGadget)\w
    selpoint(2)\y = db(SelectedGadget)\y-BoxW
    selpoint(3)\x = db(SelectedGadget)\x+db(SelectedGadget)\w
    selpoint(3)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    selpoint(4)\x = db(SelectedGadget)\x-BoxW
    selpoint(4)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    selpoint(5)\x = db(SelectedGadget)\x+(db(SelectedGadget)\w/2)-BoxW/2
    selpoint(5)\y = db(SelectedGadget)\y-BoxW
    selpoint(6)\x = db(SelectedGadget)\x+(db(SelectedGadget)\w/2)-BoxW/2
    selpoint(6)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    
    Box(selpoint(1)\x, selpoint(1)\y, BoxW, BoxW, #Color)
    Box(selpoint(2)\x, selpoint(2)\y, BoxW, BoxW, #Color)
    Box(selpoint(3)\x, selpoint(3)\y, BoxW, BoxW, #Color)
    Box(selpoint(4)\x, selpoint(4)\y, BoxW, BoxW, #Color)
    Box(selpoint(5)\x, selpoint(5)\y, BoxW, BoxW, #Color)
    Box(selpoint(6)\x, selpoint(6)\y, BoxW, BoxW, #Color)
    
    
    StopDrawing()
    
  EndIf
EndProcedure

Procedure moved()
  If MouseDown
    x=WindowMouseX()-2    ; looks like XP got wider borders
    y=WindowMouseY()-22   ; looks like XP got wider borders
    
    Select SelectedPoint
      Case 1
        extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 2
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 3
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 4
        extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 5
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 6
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
    EndSelect
    
    If selectedpoint>0 And selectedpoint=selpoint(s)\x And x=selpoint(s)\y And y<=selpoint(s)\y+BoxW
          SelectedPoint=s
          MouseDown=1
          s=7
          result=0
          DisableGadget(SelectedGadget,1)
          
        EndIf
      Next s
      If MouseDown=0
        For s=1 To numgadget
          If ChildWindowFromPoint_(hwnd,x,y) = GadgetID(db(s)\id)
            SelectedGadget = db(s)\id
            s=NumGadget
            Clear_screen()
            draw_sizer()
            result = 0
          EndIf
        Next s
      EndIf
      
    Case #WM_MOUSEMOVE
      Moved()
    Case #WM_LBUTTONUP
      If MouseDown
        ResizeGadget(db(SelectedGadget)\id, db(SelectedGadget)\x, db(SelectedGadget)\y, db(SelectedGadget)\w, db(SelectedGadget)\h)
        Clear_screen()
        draw_sizer()
        MouseDown=0
      EndIf
      MouseDown=0
      SelectedPoint=0
      DisableGadget(SelectedGadget,0)
      
      
    Case #WM_PAINT
      draw_sizer()
      
    Default
      ;Debug message
  EndSelect
  ProcedureReturn Result
EndProcedure

If CreateGadgetList(WindowID())
  SetWindowCallback(@myCallback())
  redraw()
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_EventGadget
      SelectedGadget=EventGadgetID()
      Clear_screen()
      draw_sizer()
    EndIf
  Until EventID = #PB_EventCloseWindow
EndIf

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Sat Nov 30, 2002 9:14 pm

Restored from previous forum. Originally posted by Berikco.

In this version, left top selector is used to move gadget
just change the procedure moved() to this one

Code: Select all

Procedure moved()
  If MouseDown
    x=WindowMouseX()-2    ; looks like XP got wider borders
    y=WindowMouseY()-22   ; looks like XP got wider borders
    
    Select SelectedPoint
      Case 1
        ;extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        ;db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        ;extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        ;db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 2
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 3
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 4
        extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 5
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 6
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
    EndSelect
    
    If selectedpoint>0 And selectedpoint<7
      Clear_screen()
      
      ResizeGadget(db(SelectedGadget)\id, db(SelectedGadget)\x, db(SelectedGadget)\y, db(SelectedGadget)\w, db(SelectedGadget)\h)
      draw_sizer()
      
    EndIf
  EndIf
EndProcedure

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 12:36 am

Restored from previous forum. Originally posted by Pupil.

It's the procedure Clear_screen() that locks things up in W2k, if you remove the line below it'll work on W2k machines aswell(it does on my anyway):

Code: Select all

While WindowEvent():Wend

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 5:57 am

Restored from previous forum. Originally posted by pusztry.

Can you make the border that you can click on any more tolerant. Right now it seems like I have to have the cursur just perfect before I can get it to do what I want.

PS. This is awsome!!!

- Ryan

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 8:43 am

Restored from previous forum. Originally posted by Berikco.

Originally posted by Pupil

It's the procedure Clear_screen() that locks things up in W2k, if you remove the line below it'll work on W2k machines aswell(it does on my anyway):
Code: Select all
While WindowEvent():Wend

Ups, that line is something left from copy/paste from other source, thanks pupil

Its there for no reason at all.
Guess it was to late yesterday

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 9:01 am

Restored from previous forum. Originally posted by Berikco.

Here a version with 2 extra select box in frame.

Code: Select all

Structure boxjes
  x.l
  y.l
EndStructure
Dim selpoint.boxjes(8)

Structure gdgets
  id.l
  type.l
  x.l
  y.l
  w.l
  h.l
  t.s
EndStructure

Dim db.gdgets(10)

db(1)\id=1
db(1)\type=1 ;textgadget
db(1)\x=20
db(1)\y=10
db(1)\w=100
db(1)\h=20
db(1)\t="Hoegaarden"

db(2)\id=2
db(2)\type=2  ;stringgadget
db(2)\x=20
db(2)\y=40
db(2)\w=200
db(2)\h=20
db(2)\t="Goedendag allemaal, voor mij een pintje"

db(3)\id=3
db(3)\type=3  ;buttongadget
db(3)\x=150
db(3)\y=190
db(3)\w=100
db(3)\h=20
db(3)\t="Beer Here"

Global numgadget, SelectedGadget, BoxW, MouseDown, SelectedPoint
numgadget=3
#Color=$F5080A
#ColorS=$1351EC
f1=1
BoxW=7

Global hwnd

hwnd=OpenWindow(0,100,350,400,400, #PB_Window_SystemMenu    ,"BeerGUI")

Procedure Clear_screen()
  
  b.RECT
  ;b\left=0
  ;b\top=0
  b\right=WindowWidth()
  b\bottom=WindowHeight()
  
  InvalidateRect_(hwnd,@b,1)
  
  sendmessage_(hwnd,#WM_PAINT,0,0)
  
EndProcedure

Procedure redraw()
  For s=1 To numgadget
    Select db(s)\type
      Case 1
        TextGadget    (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
      Case 2
        StringGadget  (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
      Case 3
        ButtonGadget  (db(s)\id, db(s)\x, db(s)\y, db(s)\w, db(s)\h, db(s)\t)
    EndSelect
  Next s
EndProcedure

Procedure draw_sizer()
  If SelectedGadget
    StartDrawing(WindowOutput())
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y-1, db(SelectedGadget)\w+1, 0, #Color)
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y-1, 0, db(SelectedGadget)\h+1, #Color)
    Line(db(SelectedGadget)\x+db(SelectedGadget)\w, db(SelectedGadget)\y-f1, 0, db(SelectedGadget)\h+1, #Color)
    Line(db(SelectedGadget)\x-1, db(SelectedGadget)\y+db(SelectedGadget)\h, db(SelectedGadget)\w+1, 0, #Color)
    
    selpoint(1)\x = db(SelectedGadget)\x-BoxW
    selpoint(1)\y = db(SelectedGadget)\y-BoxW
    selpoint(2)\x = db(SelectedGadget)\x+db(SelectedGadget)\w
    selpoint(2)\y = db(SelectedGadget)\y-BoxW
    selpoint(3)\x = db(SelectedGadget)\x+db(SelectedGadget)\w
    selpoint(3)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    selpoint(4)\x = db(SelectedGadget)\x-BoxW
    selpoint(4)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    selpoint(5)\x = db(SelectedGadget)\x+(db(SelectedGadget)\w/2)-BoxW/2
    selpoint(5)\y = db(SelectedGadget)\y-BoxW
    selpoint(6)\x = db(SelectedGadget)\x+(db(SelectedGadget)\w/2)-BoxW/2
    selpoint(6)\y = db(SelectedGadget)\y+db(SelectedGadget)\h
    selpoint(7)\x = db(SelectedGadget)\x+(db(SelectedGadget)\w)
    selpoint(7)\y = db(SelectedGadget)\y+(db(SelectedGadget)\h/2)-BoxW/2
    selpoint(8)\x = db(SelectedGadget)\x-BoxW
    selpoint(8)\y = db(SelectedGadget)\y+(db(SelectedGadget)\h/2)-BoxW/2
    
    
    
    Box(selpoint(1)\x, selpoint(1)\y, BoxW, BoxW, #ColorS)
    Box(selpoint(2)\x, selpoint(2)\y, BoxW, BoxW, #Color)
    Box(selpoint(3)\x, selpoint(3)\y, BoxW, BoxW, #Color)
    Box(selpoint(4)\x, selpoint(4)\y, BoxW, BoxW, #Color)
    Box(selpoint(5)\x, selpoint(5)\y, BoxW, BoxW, #Color)
    Box(selpoint(6)\x, selpoint(6)\y, BoxW, BoxW, #Color)
    Box(selpoint(7)\x, selpoint(7)\y, BoxW, BoxW, #Color)
    Box(selpoint(8)\x, selpoint(8)\y, BoxW, BoxW, #Color)
    
    
    
    StopDrawing()
    
  EndIf
EndProcedure

Procedure moved()
  If MouseDown
    x=WindowMouseX()-2    ; looks like XP got wider borders
    y=WindowMouseY()-22   ; looks like XP got wider borders
    
    Select SelectedPoint
      Case 1
        ;extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        ;db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        ;extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        ;db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 2
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 3
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 4
        extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 5
        extra=db(SelectedGadget)\y - y
        db(SelectedGadget)\y = y
        db(SelectedGadget)\h = db(SelectedGadget)\h + extra
        
      Case 6
        db(SelectedGadget)\h = y-db(SelectedGadget)\y
        
      Case 7
        db(SelectedGadget)\w = x-db(SelectedGadget)\x
        
      Case 8
        extra=db(SelectedGadget)\x - x
        db(SelectedGadget)\x = x
        db(SelectedGadget)\w = db(SelectedGadget)\w + extra
        
    EndSelect
    
    If selectedpoint>0 And selectedpoint=selpoint(s)\x And x=selpoint(s)\y And y<=selpoint(s)\y+BoxW
          SelectedPoint=s
          MouseDown=1
          s=9
          result=0
          DisableGadget(SelectedGadget,1)
          
        EndIf
      Next s
      If MouseDown=0
        For s=1 To numgadget
          If ChildWindowFromPoint_(hwnd,x,y) = GadgetID(db(s)\id)
            SelectedGadget = db(s)\id
            s=NumGadget
            Clear_screen()
            draw_sizer()
            result = 0
          EndIf
        Next s
      EndIf
      
    Case #WM_MOUSEMOVE
      Moved()
    Case #WM_LBUTTONUP
      If MouseDown
        ResizeGadget(db(SelectedGadget)\id, db(SelectedGadget)\x, db(SelectedGadget)\y, db(SelectedGadget)\w, db(SelectedGadget)\h)
        Clear_screen()
        draw_sizer()
        MouseDown=0
      EndIf
      MouseDown=0
      SelectedPoint=0
      DisableGadget(SelectedGadget,0)
      
      
    Case #WM_PAINT
      draw_sizer()
      
    Default
      ;Debug message
  EndSelect
  ProcedureReturn Result
EndProcedure

If CreateGadgetList(WindowID())
  SetWindowCallback(@myCallback())
  redraw()
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_EventGadget
      SelectedGadget=EventGadgetID()
      Clear_screen()
      draw_sizer()
    EndIf
  Until EventID = #PB_EventCloseWindow
EndIf

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 1:44 pm

Restored from previous forum. Originally posted by Hi-Toro.

Berikco, just tried example #2 here and it's fine on '2000... good stuff!

--
See ya,
James L Boyd.
http://www.hi-toro.com/
--

BackupUser · Post by **BackupUser** » Sun Dec 01, 2002 9:33 pm

Restored from previous forum. Originally posted by Berikco.

Thanks Hi-Toro

I hope Paul will include in PureVision for release 2

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Tue Dec 03, 2002 1:46 am

Restored from previous forum. Originally posted by pusztry.

I am having trouble with grabbing the Gadget grabbers on Windows XP. Can somebody help refine the mouse detection? I am new and the code is a little above at the moment. I did mess with the MouseX/MouseY calculations with no luck. Another option might be to change the curser when I am over the correct grabber. That way I know when to grab.
Thanks,
-Ryan

- Ryan

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Tue Dec 03, 2002 9:19 am

Restored from previous forum. Originally posted by Berikco.

It works fine for me, its coded on XP.
Do you have a desktop theme?
no theme here, all visual XP stuff (read sh*t) disabled

Regards,

Berikco

http://www.benny.zeb.be

BackupUser · Post by **BackupUser** » Wed Dec 04, 2002 4:24 am

Restored from previous forum. Originally posted by pusztry.

I have all XP default stuff enabled. No tweaked styles, just using the silver default theme shiped with XP.

- Ryan

WinXP, PIII 800 MHz, 512MB RAM, SB Live 5.1, NVidia TNT 2 Ultra

BackupUser · Post by **BackupUser** » Wed Dec 04, 2002 5:59 am

Restored from previous forum. Originally posted by ricardo.

XP here.

The result is flaw on my pc, resize works only once on a while

Best Regards

Ricardo

Dont cry for me Argentina...