creare un componente timer da codice... altro problema!!!

[nomorelogic]

Booo non sono in grado.... sono troppo scarso... :-(

allora io ho questo codice:

prova così:

in una cartella (tipo c:\immagini_bottoni) mettici una serie di bitmap che si chiamano: Button_0.bmp, Button_1.bmp, Button_2.bmp e così via
Nel file ini aggiungi una voce "..._Image" per ogni bottone

poi prova questo codice

Codice: [Seleziona]

  for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         // TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
         s := Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Image','');
         TButton(MyBytton).Glyph.LoadFromFile( s );
       end;

Edit:
scusa ma non avevo sfruttato il fine ini, ho sistemato il codice sopra

[sekoto]

Mi dà il seguente errore:

Project project1 raised exception class 'RunError(216)'.

[nomorelogic]

riprova e fammi sapere

Codice: [Seleziona]

  for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         // TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
         s := Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Image','');
         if not fileexists(s) then
             showmessage('file ' + s + ' non trovato!');
         TButton(MyBytton).Glyph.LoadFromFile( s );
       end;

[sekoto]

non funziona

mi da l'errore di prima!!!

[nomorelogic]

ops...

la classe che usi è TButton che non ha la gliph...
Devi sostituire TButton con TBitBtn (che invece ha la Gliph)

[sekoto]

Veramente io ho sostituitoil tuttocon TSpeedbutton ma non funziona ugualmente...

Mi sa che sono io che sono imbranato!!!!

[Legolas]

Riesci a individuare su quale riga di codice ti restituisce l'errore?
Potresti creare un esempio minimo compilabile che dimostri l'errore e postarlo qui sul forum, per facilitare il compito di chi cerca di aiutarti 

[sekoto]

Allora ho intrapreso un'altra strada, salvando il percorso dell'immagine in un file di testo, a questo punto tale file viene caricato in un TMemo all'apertura dell'applicazione quindi l'immagine viene associata al pulsante man mano che il pulsante viene creato

esempio:

....

   SetLength(MyBytton, N_Pulsanti);
     for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TSpeedButton.Create(TabSheet2);
         TSpeedButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Caption','');
         TSpeedButton(MyBytton).Name:=Ini.ReadString('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Name','');
         imagepicture.ComboBox1.Items.Add(Ini.ReadString('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Name',''));
         TSpeedButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Top',50);
         TSpeedButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Left',50);
         TSpeedButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Width',50);
         TSpeedButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','SpeedButton' + IntToStr(i+1) + '_Height',50);
         TSpeedButton(MyBytton).Glyph.LoadFromFile(Memo.Lines);
         if not fileexists(Memo.Lines) then
            showmessage('file' + ImageButton.Lines + ' non trovato');
         TSpeedButton(MyBytton).Visible:=true;     

.....   

Ma quando carica le immagini mi da un errore del tipo "Wrong image format"

Dov'è l'errore???                 

[nomorelogic]

sbaglio o così hai la stessa immagine per tutti i bottoni?

[sekoto]

sbagli perchè l'immagine viene associata al momento della creazione del pulsante

quindi al pulsante n°1 viene associata la riga n°1 del memo che contiene il percorso della prima immagine
al secondo  pulsante n° 2 viene associata la riga n° 2 del memo che contiene il percorso della seconda immagine
e via dicendo

ma il problema è l'errore che mi dà che non so da cosa dipende.
Le immagini che uso sono di tipo png che dovrebbero andar bene anche perchè ho fatto una prova durante la stesura del codice provando ad assegnare ad un pulsante fisico un immagine e l'operazione va a buon fine.

Non so da cosa dipende...

[nomorelogic]

la proprietà Gliph è di tipo TBitmap
o converti le immagini in bitmap oppure puoi provare a fare una conversione a runtime

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
var i, N_Pulsanti: integer;
     MyBytton: TBitBtn;
     s: string;
     xPic: TPicture;
begin
    xPic:=TPicture.Create;
    try
    N_Pulsanti := 3;
    for i:=0 to N_Pulsanti-1 do
         begin
           MyBytton:=TBitBtn.Create(Tabsheet2);
           TBitBtn(MyBytton).Caption:='Pulsante ' + IntToStr(i+1);
           TBitBtn(MyBytton).Top:=(i+1) * 50;
           TBitBtn(MyBytton).Left:=50;
           TBitBtn(MyBytton).Width:=120;
           TBitBtn(MyBytton).Height:=48;
           TBitBtn(MyBytton).Visible:=true;
           TBitBtn(MyBytton).Parent:=Tabsheet2;
           // TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
           s := 'archive-insert-3.png';
           xPic.LoadFromFile(s);
           TBitBtn(MyBytton).Glyph.Assign( xPic.Bitmap );
         end;

    finally
      xPic.Free;
    end;
end;

[sekoto]

ho convertito le immagini manualmente ma ovviamente hanno perso parecchio in qualità...
Esiste un modo per mantenere la qualità iniziale???

Comunque la mia procedura funziona...
Grazie a tutti quelli che ho rotto le scatole...

P.s: se li converto a runtime cambia qualcosa???

[Stilgar]

In che senso li hai convertiti manualmente?
Credo che GIMP o simili diano la possibilità di scegliere anche i parametri di "conversione" tra un formato e l'altro.

Stilgar

[sekoto]

Ho aperto le immagini con pinta e li ho semplicemente salvati in bmp

[nomorelogic]

P.s: se li converto a runtime cambia qualcosa???

non credo cambi molto il tempo di loading più o meno è quello (ma bisognerebbe fare una prova con un migliaio di immagini per esserne certi)
intanto puoi vedere quanto perdi in Kb (sull'HD) nell'avere tutte le immagini come bitmap