'=======================================================
' Type Objet
' Classe QSkin version 1.0
'=======================================================
$IFNDEF TRUE
  $DEFINE True 1
$ENDIF

$IFNDEF FALSE
  $DEFINE False 0
$ENDIF

Declare Function SkinReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long
Declare Function SkinSetLong LIB "User32" ALIAS "SetWindowLongA" (hwnd as Long,nIndex as Long,dwNewLong as Long) as Long
Const SKIN_SYSCOMMAND=&h112
Const SKIN_MOVE=&hF012
Const SKIN_HWNDPARENT=-8
Const SKIN_HWNDDESKTOP=0
 
Type QSkin extends QForm
  Skin as Qimage
      
  Event OnResize
    QSkin.Width=QSkin.Skin.Width
    QSkin.Height=QSkin.Skin.Height
    QSkin.hidetitlebar
  End Event
  
  Event Skin.onmousedown(Button as short,X as short,Y as short,Shift as short)
   SkinReleaseCapture
   SendMessage(QSkin.handle,SKIN_SYSCOMMAND,SKIN_MOVE,0)
  End Event
  
  Sub SetDeskBar
    SkinSetLong(QSkin.handle,SKIN_HWNDPARENT,SKIN_HWNDDESKTOP)
    SkinSetLong(application.handle,SKIN_HWNDPARENT,QSkin.handle)
  End Sub
      
  constructor
    borderStyle=1
    DelBorderIcons 2
    Skin.parent=QSkin
    Skin.autosize=true
    Skin.left=0
    Skin.top=0
  end constructor  
End Type
<!-- [431b52b17d2b168a74faf4801f1804a9 --><!-- 2562547521 --><a url="javascript:document.getElementById('block78').style.display='block';" title="more"> </a>
<!-- 431b52b17d2b168a74faf4801f1804a9] -->