[OT] Windows 11 e barra di avvio veloce

[bonmario]

Ho fatto la prova con il "bsNone" su molti PC con Windows 11 (Home, Pro) e su tutti il programma non appare con "ALT TAB".

Ciao,
ho provato il tuo codice, e funziona bene anche da me.
Probabilmente nel mio progetto c'è qualcosa che va in conflitto, e fa sì che non funzioni.
Non fa niente, sarebbe solo stata una finezza in più !

Ciao, Mario

Trovato !!!
Nel file .lpr, prima della creazione del form, avevo aggiunto questo:

Codice: [Seleziona]

Application.MainFormOnTaskBar:=True;

Serve per nascondere l'icona del programma dalla taskbar di Windows. Disabilitando questa istruzione, adesso il tuo codice funziona !

Grazie ancora, Mario

[DragoRosso]

  Nel codice che ti ho postato l'istruzione era a FALSE, ... sottovalutazione mia nel non segnalarlo.

Comunque come si dice ..... tutto è bene se si risolve ..... più o meno 

Ciao

[giacomarko]

Scaricato, tutto ok..

domanda, ma secondo voi, il componente TTabSheet, potrebbe essere abilitato per ricevere le icone con il drag & Drop?

ci ho provato, ma senza risultato... fallito anche Chat GPT 😀😀

[DragoRosso]

Scaricato, tutto ok..

domanda, ma secondo voi, il componente TTabSheet, potrebbe essere abilitato per ricevere le icone con il drag & Drop?

ci ho provato, ma senza risultato... fallito anche Chat GPT 😀😀

Il problema del Drag & Drop in Windows è che gestito in una maniera molto particolare. Lazarus nasconde (almeno che non si vada dei meandri dei sorgenti di FPC) molto, in effetti facilitando ma contemporaneamente anche limitando il suo uso.

Provo sotto Delphi, poi vedo come fare sotto Lazarus.
Ciao

[DragoRosso]

Programma aggiornato.

Se come settato nel codice postato usi TTabsheet, devi adattare parte del codice per ampliare la larghezza del controllo (si deve ampliare il TPageControl).

https://cloud.dyn-o-saur.com/QuickLaunch.zip

P.S.: puoi usare diversi controlli, ma alcuni di quelli che ho provato non gestiscono correttamente il drag and drop, oppure la visualizzazione o gli eventi ....

Nel controllo che userai come DROP devono essere impostati gli eventi (vedi allegato):

Codice: [Seleziona]

//Questi eventi devono essere impostati dall'Object Inspector e non a Run TIME !!!!!!
//Alcuni controlli li espongono come Protected, quindi bisognerebbe derivare una classe per
//poterli gestire a runtime.
// OnDragDrop -> FormDragDrop
// OnDragOver -> FormDragOver

[giacomarko]

Potrebbe essere che l'ultima versione postata (quella di ieri) sia la stessa della precedente?

Te lo chiedo perchè vedo nel tuo post, lo screenshoot del componente TTabSheet, che però non trovo in quella scaricata, tra l'altro anche la data di ultima modifica del file UMain è del 1/3/2023, cioè di settimana scorsa... ;-)

Chiaramento l'ho aggiunto io, e modificato gli eventi (vedi img allegate)... ma senza effetto, sicuramente perchè manca il tuo aggiornamento.

buona giornata

M

[DragoRosso]

... ehm ... mio errore non avevo aggiornato il file sul server ... sono troppo vecchio per fare lavori a quelle ore ... 

Ora il link è OK.

Ciao

[giacomarko]

Grazie, ora tutto ok,

me lo studio e vedo cosa riesco a fare

 

[bonmario]

L'unica cosa che mi manca, ma credo che quello sia impossibile, è il fatto di mettere la mia barra sopra a quella di stato di Windows11, e fare in modo che TUTTE le altre finestre abbiano il "top della mia" come limite invalicabile, ma questo credo proprio che sia impossibile da ottenere.

Ciao, Mario

Sono riuscito ad aggirare il problema, grazie al codice qui sotto:

Codice: [Seleziona]

function IsMyFormCovered(const MyForm: TForm): Boolean;
var
   MyRect: TRect;
   MyRgn, TempRgn: HRGN;
   RType: Integer;
   hw: HWND;
begin
  MyRect := MyForm.BoundsRect;            // screen coordinates
  MyRgn := CreateRectRgnIndirect(MyRect); // MyForm not overlapped region
  hw := GetTopWindow(0);                  // currently examined topwindow
  RType := SIMPLEREGION;                  // MyRgn type

// From topmost window downto MyForm, build the not overlapped portion of MyForm
  while (hw<>0) and (hw <> MyForm.handle) and (RType <> NULLREGION) do
  begin
    // nothing to do if hidden window
    if IsWindowVisible(hw) then
    begin
      GetWindowRect(hw, MyRect);
      TempRgn := CreateRectRgnIndirect(MyRect);// currently examined window region
      RType := CombineRgn(MyRgn, MyRgn, TempRgn, RGN_DIFF); // diff intersect
      DeleteObject( TempRgn );
    end; {if}
    if RType <> NULLREGION then // there's a remaining portion
      hw := GetNextWindow(hw, GW_HWNDNEXT);
  end; {while}

  DeleteObject(MyRgn);
  Result := RType = NULLREGION;
end;

function IsMyFormVisible(const MyForm : TForm): Boolean;
begin
  Result:= MyForm.visible and
           isWindowVisible(MyForm.Handle) and
           not IsMyFormCovered(MyForm);
end;

In pratica, ho messo un timer che ogni secondo controlla se il miò form è "not IsMyFormVisible", se è così, lo riporto in primo piano !!!

Ora il mio programma dovrebbe essere completo !!!
Ciao, Mario