[Risolto] Stampare TLabel su Timage

[Mepu]

Salve!

Sto creando un editor di carte Munchkin...
Finora per salvare la carta ho usato una procedura che cattura l'immagine dello schermo, la ritaglia nelle coordinate giuste e la salva su file.

Essendo una cosa un pò macchinosa, preferirei stampare le label sulla timage di sfondo, per poi salvare su file.
Qualcuno conosce un metodo? Sono anche disposto a cambiare il componente Timage xD

[cyberlaundry]

Puoi caricare l'immagine in un TBitmap, quindi usare i metodi Draw del Canvas per disegnarci sopra quello che vuoi. Una volta fatto, ti dovrebbe bastare assegnare la TBitmap a TImage.Picture.Bitmap per visualizzarla.
Domani se riesco butto giù un esempio.

[Mepu]

Il fatto è che non riesco a cambiare la font del "Draw"...

[cyberlaundry]

Ho affinato un progetto già postato, aggiungendo un secondo esempio.
Il primo è un "Paint" a run time (è il programma che "disegna" quel che serve quando serve) - ma a te non interessa.
Il secondo è la gestione e il disegno/scrittura sul Canvas di TBitmap, con visualizzazione. Guarda caso si disegna su una carta (di YuGiOh, però).

Questo il link del sorgente (Delphi7).
Per i curiosi, questo il link dell'eseguibile

[Mepu]

Wow era proprio quello che mi serviva!
Grazie 1000!

Finalmente potrò usare i dialog per la selezione del formato...
Sai, prima rimaneva l'"impronta" xD

Adesso il problema sarà fare un UpdateCardContents per ogni label (e fidati, non sono 2 xD)

Ps: si possono assegnere solo 0 punti per votare il tuo intervento? il sistema non me ne fa selezionare altri

[cyberlaundry]

Originariamente inviata da Mepu

Adesso il problema sarà fare un UpdateCardContents per ogni label (e fidati, non sono 2 xD)

Non vedo il problema. A livello operativo, lascia un punto solo dove inserire titolo, font e dimensione e aggiungi la scelta di "quale scritta variare". Ovviamente devi tenerti in memoria un array di scritte, proprietà e rettangoli di competenza.

Ps: si possono assegnere solo 0 punti per votare il tuo intervento? il sistema non me ne fa selezionare altri

Penso dipenda dal fatto che sei un "nuovo iscritto". Comunque vota, vota, vota!!!

[Mepu]

Preferisco aspettare e darti un buon voto
ehi sbaglio o non si può cambiare l'allineamento del testo? :/
nel caso stavo pensando di provare il primo componente di questo elenco Timage Text - Applications, Components, Downloads, News and Others - Delphi Pages

[cyberlaundry]

Originariamente inviata da Mepu

ehi sbaglio o non si può cambiare l'allineamento del testo? :/

Studia la funzione DrawText delle API di Windows. Vedrai che puoi allineare il testo.

nel caso stavo pensando di provare il primo componente di questo elenco Timage Text - Applications, Components, Downloads, News and Others - Delphi Pages

Beh, se fa al caso tuo provalo. Non lo conosco. GUARDA che però è senza sorgenti, ti sconsiglio di usarlo.

[Mepu]

:P si scusa, me ne sono accorto dopo...

ora però c'è una domanda più interessante: ho notato che è possibile ottenere il nome dei componenti (era una funzione tipo getnome, non mi ricordo bene). E' possibile sfruttare ciò come surrogato dei puntatori? es.:

UpdateCardContents(x{nome della label});
...
//stampa label su sfondo immagine
...

[cyberlaundry]

Nell'esempio che ti ho dato l'immagine viene disegnata senza alcun componente, viene utilizzata solo la proprietà Text del componente TEdit, ma poteva essere una stringa qualsiasi, anche prelevata da un file esterno.
Il suggerimento te l'ho già dato: io farei un array in memoria di puntatori alle varie stringhe che devi "disegnare", ognuna con il suo bel TRect che rappresenta l'area che occupa.