zpět

Windows 8 a nabídka Start

 

Jóó Windows 8 to je věc, co zkazil Microsoft, napravíme my.

 

Když vyšly Windows 8 v beta verzi, a pak v RCčku bylo mi jasné že se lidem nová nabídka start nebude líbit, zafungovala moje bussiness palice a zniklo Windows 8 Start Menu, jednoduchá apka až skoro primitivní by se dalo říct. 

 

Nicméně harabat se v novém systému byla taky docela sranda, ale nakonec se dalo na všechno přijít, aplikace je dělaná v Delphi XE2 a používá jen odhycení spodní lišty:

hTaskApps:=FindWindowEx(hTaskApps, HWnd(0), 'ReBarWindow32', nil);

pak si s tou lištou můžu dělat co chci, třeba posunout:

 

 

SetWindowPos(hTaskApps, HWND_BOTTOM, 54, 0 , T.Width, T.Height, SWP_SHOWWINDOW);

a namalovat do ní kulatý formulář a na něm button:

 

hTaskbar := FindWindow('Shell_TrayWnd', Nil);
if hTaskbar <> 0 then
begin
FrmOrb := TForm.Create(nil);
FrmOrb.Left := 0;
FrmOrb.Top := 0;
FrmOrb.Width := 54 ;
FrmOrb.Height := 40 ;
FrmOrb.BorderStyle := bsNone;
FrmOrb.AlphaBlend := True;
FrmOrb.AlphaBlendValue := 50;
FrmOrb.Color := clBtnFace;
FrmOrb.TransparentColor := True;
FrmOrb.TransparentColorValue := clBtnFace;
FrmOrb.Show;
FrmOrb.ParentWindow := hTaskbar;
//rgn := CreateEllipticRgn(9, 3, 46, 40);
rgn := CreateEllipticRgn(9, 2, 46, 39);
SetWindowRgn(FrmOrb.Handle, rgn, TRUE);

StartButton := TImage.Create(nil);
StartButton.Left := 0 ;
StartButton.Top := -7;
StartButton.Width := 54 ;
StartButton.Height := 162 ;
StartButton.Picture := FrmMain.StartIMG.Picture;
StartButton.OnMouseEnter := StartButtonMouseEnter;
StartButton.OnMouseLeave :=StartButtonMouseExit;
StartButton.OnClick := StartButtonClick;
StartButton.Parent := FrmOrb;

end;
 

Jak přejít do desktpu jsem našel na živě.cz ale není to úplně ono když se tam zobrazí okno konihoven, no ale což účel to plní, za chvíli bude Windows 8.1 kde jak se spekuluje nabídka Start bude zpět.

---

28.05.2013