PureBoard

Verfasst: **23.11.2012 01:06**

Hallo,
hier das Gerüst(1) zu einem Startbutton für win8
Harkt an ein paar stellen:
-Button funzt nicht immer... warum?
-Hab ihn jetzt mittig positioniert...(Standard unten) wie krieg ich die Buttons (Bibliothek, ie) in der taskleiste verschoben, damit der startbutton dahin kommt wo er hingehört?
-bilder werden sch... angezeigt... (jpg geht, png klappt nicht)
-wie krieg ich das startmenu auf eine definerte größe und nicht auf voll bild (siehe "Start8"?

Wenn ihr probiert immer auf delay achten... !

Wie gesagt, ist zusammengeklimpert aber könnte ja ein pb projekt

um mal wieder leben in die bude zu bekommen. Die von vsc# habens geschafft!!!

Grüße, Joern

Hier der Pre-Alfa Code:

Code: Alles auswählen

UseJPEGImageDecoder()
;UsePNGImageDecoder()
Global img1,img2,img3

Img1 = LoadImage(#PB_Any,"E:\JBStyle\Slide\Start0.bmp");eigene bilder einsetzen
Img2 = LoadImage(#PB_Any,"E:\JBStyle\Slide\Start1.jpg")
Img3 = LoadImage(#PB_Any,"E:\JBStyle\Slide\Start2.jpg")

Procedure SetWinTransparency(win,level) 
  If level>=0 And level<101 
hLib = LoadLibrary_("user32.dll") 
If hLib 
adr = GetProcAddress_(hLib,"SetLayeredWindowAttributes") 
If adr 
SetWindowLong_(WindowID(win),#GWL_EXSTYLE,GetWindowLong_(WindowID(win),#GWL_EXSTYLE)|$00080000); Or #WS_EX_LAYERED|$00080000) 
SetLayeredWindowAttributes_(WindowID(win), RGB(255, 0, 255),255*level/100, $3)
EndIf 
FreeLibrary_(hLib) 
EndIf 
EndIf 
EndProcedure 

If OpenWindow(0, 10000, 10000,40,40, "PureBasic Window",#WS_POPUP|#PB_Window_Invisible)
Image_0 = ImageGadget(20, 0, 0, 40, 40, ImageID(Img1))

; An taskbar heften
hWnd.l=FindWindow_("Shell_TrayWnd","")
If hWnd.l
GetWindowRect_(hWnd.l,wrc.RECT):ResizeWindow (0,20,1,40,40):SetParent_(WindowID(0),hWnd.l)      
 ;ende   
 
;Menue
 If CreatePopupImageMenu(0)      
      MenuItem(1, "Info"):MenuItem(2, "Ausführen..."):MenuItem(3, "Runterfahren"):MenuBar():MenuItem(4, "Ende"):EndIf
;Ende
    HideWindow(0,0)
    Else
    End
EndIf 
Repeat
  
EventID = WaitWindowEvent()
    
Select EventID
Case #WM_RBUTTONDOWN
  Delay(200)
  DisplayPopupMenu(0, WindowID(0)) 
Case 0
  Delay(200)
Case #PB_Event_Gadget
  Image_0 = ImageGadget(20, 0, 0, 40, 40, ImageID(Img3))
  Delay(400)
  SendMessage_(hwnd.l,#WM_COMMAND,$131,0)
  Delay(200)        
Case #PB_Event_Menu   
  Delay(100)
  Select EventMenu()       
   Case 1 : MessageRequester("Simple Button","Open Source by Joebo in 2012")
   Case 2 :
   Case 3 : SendMessage_(hwnd.l,#WM_CLOSE,"","")
   Case 4 : Quit = 1
   EndSelect
EndSelect
  Until Quit = 1
  EndIf
End

Edit by NicTheQuick: Code-Tags gesetzt

PureBoard

Win8 Startbutton q`n`d

Win8 Startbutton q`n`d