[OT] Windows 11 e barra di avvio veloce

[bonmario]

Esatto:

Codice: [Seleziona]

WrkImage.Picture.Assign(WrkIcona);

Scusami, mi ero dimenticato di scriverlo !

Ciao, Mario

[giacomarko]

Figurati !!

lo avevo poi intuito osservando i metodi utilizzati, che non erano propri di un TBitBtn,

tra un po posto il risultato

Grazie

[bonmario]

Posto il progetto completo.

Queste le note (sono anche dentro il progetto).

Uso:
      - Fate il drag and drop di questo eseguibile sulla barra delle applicazioni.
                - Da questo momento potete cliccare sull'icona per fare apparire / scomparire la "barra".
      - Trascinate nella "barra" link, applicazioni, documenti o altro.
      - Tasto destro su un zona bianca per attivare / disattivare l'ordinamento.

Da fare:
         - Eliminare icone dalla barra;
         - Salvare su file (o registro di Windows)
         - Caricare da file (o registro di Windows) all'avvio
         - Trovare il drag point per il drag and drop fatto da Explorer

Problemi noti:

         - A differenza di Delphi dove tutte le icone di qualsiasi tipo vengono visualizzate,
           in Lazarus non tutte le icone vengono visualizzate (specialmente icone relative ad alcuni LINK)

Può essere uno spunto per fare qualcosa di più completo.

Ciao

Ciao,
scusa il ritardo, ma ogni volta che leggevo questo thread ero su Linux, e non avevo modo di provare !!!

Complimenti, veramente un bel lavoro.
Io alla fine ho fatto solo "un'emulazione" della barra di avvio veloce di Windows 10, quindi icone piccole senza testo.
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

[DragoRosso]

Agganciarla alla barra delle applicazioni è fattibile, basta interrogare i dati della finestra "barra applicazioni" appunto (almeno penso).

Mantenerla invece esposta senza che le app la sovrappongono invece è un pò più complesso, perchè dovresti "dire" a Windows che sei anche tu una barra di stato .... però magari si può fare.

Più avanti vedrò delle due cose ...

Ciao

[giacomarko]

Sempre proseguendo nello sviluppo della task bar alternativa, mi sono posto questa domanda:

dato che creo runtime un numero indefinito di oggetti TTabSheet e TImage, sarebbe logico che li distruggessi in fase di chiusura... però non è vero che in fase di chiusura della applicazione, tutto ciò che è collegato ad essa viene distrutto ?

Secondo voi, quale approccio sarebbe il più corretto e come?

pensavo ad un loop tipo questo:

Codice: [Seleziona]

  for i := Self.ComponentCount-1 downto 1 do
  begin
    if Self.Components[i] is TImage then TImage(Self.Components[i]).Free;
  end; 

[DragoRosso]

Tutti i componenti che vengono creati con il riferimento alla Form principale (generalmente pippo := Tpippo.Create(self)) vengono automaticamente liberati (ossia distrutti) alla chiusura della Form stessa (ossia dell'applicazione).

Questo vale per qualunque componente creato con un riferimento ad un altro componente (generalemnte chiamti componenti Padri e Figli, Parents and Childs).

Quale è la buona regola: implementare un distruttore per ogni componente personalizzato o creato a runtime se andiamo a creare / instanziare oggetti (ad esempio array dinamici). In tale metodo andremo a liberare tutti ciò che abbiamo creato a runtime (tale metodo verrà automaticamente chiamato dal componente padre).

dato che creo runtime un numero indefinito di oggetti TTabSheet e TImage, sarebbe logico che li distruggessi in fase di chiusura... però non è vero che in fase di chiusura della applicazione, tutto ciò che è collegato ad essa viene distrutto ?

Esatto, se sono componenti creati con xxxx.Create(self), verranno distrutti automaticamente. Ciò però non è vero con oggetti creati con xxxx.Create(nil) oppure se usi gli array dinamici, e in molte altre situazioni (occorre trattare il concetto di visibilità / vita / "count reference" degli oggetti).

Occhio anche all'uso dei puntatori, soprattutto con array statici: tutto ciò che è statico viene rilasciato dall'applicazione (non si può rilasciare a codice) PERO' IL CONTENUTO DEGLI ARRAY NO !!! se tale contenuto è un oggetto istanziato !!!!!

Esempio:

Codice: [Seleziona]

//TObject può essere un qualsiasi oggetto noto
var Pippo: array [0..9] of TObject;
     i: integer;

for i := low(Pippo) to High(Pippo) do
  Pippo[i] := TObject.Create(self);

//Questo array verrà liberato alla chiusura del programma (o all'uscita del metodo se dichiarato in un metodo) ma gli oggetti creati NO, anche se usano il "self" come parent. E' necessario liberare a mano ogni contenuto del singolo elemento dell'array alla chiusura (o quando necessita).

for i := low(Pippo) to High(Pippo) do
  begin
    if assigned(Pippo[i]) then
      begin
         Pippo[i].Free;
         Pippo[i] := nil;   <------------- RICORDARSI SEMPRE DI PORRE A NIL SE LIBERATE RISORSE A MANO !!!!!!!!!!
      end;

Secondo voi, quale approccio sarebbe il più corretto e come?

pensavo ad un loop tipo questo:

Codice: [Seleziona]

  for i := ComponentCount-1 downto 1 do
  begin
    //CORRETTO ........
    if Components[i] is TImage then
      begin
         (Components[i]) as TImage).Free;
         Components[i]) := nil;
      end;
  end; 

Anche questo è corretto (anche se non necessario in questo particolare  caso), l'unica accortezza è di aggiungere l'assegnazione a "nil" dopo il FREE, questo perchè nel caso il "PADRE" (self) chiamasse il distruttore del "Figlio" (Image) andrebbe in AV senza il "nil".

Ciao

[giacomarko]

Grazie DragoRosso,

domanda, perchè ottengo un errore di compilazione con il seguente codice...

Codice: [Seleziona]

  for i := Self.ComponentCount-1 downto 1 do
  begin
    if Self.Components[i] is TImage then
    begin
       (Self.Components[i] as TImage).Free;
       Self.Components[i] := nil;
    end;
  end;

ecco l'errore:
main.pas(174,27) Error: No member is provided to access property

[DragoRosso]

Perchè Components è una proprietà che può essere solo "letta" e non assegnata. In questo caso ":= nil" non può essere effettuato lavorando direttamente con la proprietà "components".

Mi ero distratto scusa ...

Ciao

[giacomarko]

Figurati !

Pefetto, ora oltre che eliminare tutto all'uscita (anche se non necessario), chiamo il metodo all'uscita del riordinio, aggiunta, eliminazione... di icone e cartelle, così faccio un refresh e ricreo la task bar

[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.

Alla fine, visto che:
- purtroppo in Windows11 le icone nella barra di stato sono sovrapposte
- la cosa potrebbe essere risolta usando app esterne che però qui al lavoro non mi fanno installare

sto provando una cosa alternativa: ma mia "barra di avvio veloce" sovrapposta alla barra di stato di windows. Allego un'immagine di esempio.
Ho ancora qualche problemino da risolvere, ma per il momento me la faccio andare bene così !!!

Ciao, Mario

[DragoRosso]

Alla fine, visto che:
- purtroppo in Windows11 le icone nella barra di stato sono sovrapposte

In che senso ... le icone non sono sovfrapposte. Se parli della tua, disegnale lasciando un margine: se vedi nel mio allegato vedrai che ho imposto un margine e una dimensione, che per adesso è manuale, può essere automatica andando ad analizzare essenzialmente risoluzione e dpi awareness.

Ciao

[bonmario]

Ho usato la parola sbagliata: le icone sono raggruppate.

In pratica, quello di cui si parla qui: https://answers.microsoft.com/it-it/windows/forum/all/raggruppamento-icone-barra-strumenti-windows-11/e7756dca-5ed8-4a47-be13-aeeaf060c326?page=1

Ciao, Mario

[DragoRosso]

Non voglio certamente convincerti, ma il ragruppamento ha un senso: velocizzare ed avere un colpo d'occhio su quei programmi "ragruppati" aperti. Comunque senza ragruppamento non puoi vedere tutti i programmai aperti (ne generalmente ne puoi identificare l'istanza), mentre con il ragruppamento ti fà vedere le anterprime e puoi passare a quello che ti interessa senza "sfogliare tutte le icone" ...

Magari può non piacere, però io lo trovo comodo. Anche io comunque all'inizio avevo qualche remora poi però è decisamente più pratico rispetto a prima.

Sicuramente è solo un punto di vista.

Ciao

[bonmario]

Al momento, è causa della mie maggiori perdite di tempo !!!

Quando ad esempio ho 4 sorgenti aperti,che per me sono anche pochi, con l'IDE che usiamo al lavoro, nella barra di stato ho un'icona unica, quindi devo prima cliccare sull'icona, capire quale delle anteprime che mi fa vedere è quella del sorgente che mi serve, e poi cliccarci sopra.
Con le icone non raggruppate, vedo direttamente nella barra di stato di windows il nome del sorgente che mi interessa, ci clicco sopra a colpo sicuro !!!

Le icone raggruppate, non mi sono mai piaciute. Mi sono costretto ad usarle per 6 mesi quando Ubuntu era passata ad Unity, ma poi ci ho rinunciato: non fanno per me

[DragoRosso]

Al momento, è causa della mie maggiori perdite di tempo !!!

Quando ad esempio ho 4 sorgenti aperti,che per me sono anche pochi, con l'IDE che usiamo al lavoro, nella barra di stato ho un'icona unica, quindi devo prima cliccare sull'icona, capire quale delle anteprime che mi fa vedere è quella del sorgente che mi serve, e poi cliccarci sopra.
Con le icone non raggruppate, vedo direttamente nella barra di stato di windows il nome del sorgente che mi interessa, ci clicco sopra a colpo sicuro !!!

Le icone raggruppate, non mi sono mai piaciute. Mi sono costretto ad usarle per 6 mesi quando Ubuntu era passata ad Unity, ma poi ci ho rinunciato: non fanno per me

Su Windows 11 non devi cliccare sull'icona di ragruppamento, ti mostra le anteprime di tutte le app ragruppate immediatamente al passaggio del mouse. Su Windows 10 il nome visualizzato è parziale, fino a quando non ci "vai" sopra con il mouse (nel tuo post fai vedere che viene visualizzato "firefox" e basta e così nella macchina vrtuale Win10 che ho anche con altre APP).

Se il Vs. IDE mostra il nome direttamente sulla barra allora sei sicuramente più veloce con il sistema Win10.

Comunque  il problema principale è che tale situazione sembra non sarà modificato neanche in futuro, perchè si ritiene che il metodo di ragruppamento sia il migliore.

N.B.: io nel portatile ho normalmente 4 macchine virtuali aperte avendo 32 GB di memoria, Simil Word, Simil Excel, E-mail, normalmente due istanze IDE RAD Studio (Delphi e C++), un Simil Autocad, GIMP, un paio di FireFox, due cloud e devo dire che rispetto all'anno scorso quando usavo Windows 10 mi trovo generalmente meglio con Windows 11 (intanto Windows 11 tiene "su" più Virtual Machine rispetto a Win10).

Comunque è questione personale (ad esempio a mè piace Lazarus in versione Docked come Delphi, cosa che non mi pare invece sia così diffusa come scelta).

Ciao