Italian community of Lazarus and Free Pascal

Programmazione => Graphics => Topic aperto da: panfra - Aprile 24, 2021, 10:38:50 pm

Titolo: Scritte con il colore di fondo
Inserito da: panfra - Aprile 24, 2021, 10:38:50 pm

Io sono riuscito a scrivere del testo colorato su una Tpicture, ma lo sfondo mi viene sempre bianco; c'è un modo per cambiargli colore?
Grazie. ;D

Titolo: Re:Scritte con il colore di fondo
Inserito da: DragoRosso - Aprile 24, 2021, 11:22:35 pm

Dovrebbe essere (devi aggiungere l'unità Windows nelle uses):

SetBkMode(Picture.Bitmap.Canvas.Handle, TRANSPARENT);  //Scrive il testo senza lo sfondo

oppure

SetBkMode(Picture.Bitmap.Canvas.Handle, OPAQUE);  //Scrive il testo con lo sfondo
SetBkColor(Picture.Bitmap.Canvas.Handle, clRed);        //Sfondo di colore rosso

Vado a memoria.

Ciao

Titolo: Re:Scritte con il colore di fondo
Inserito da: panfra - Aprile 25, 2021, 08:36:02 am

mi dà un errore:

unit2.pas(9,3) Fatal: Syntax error, "IMPLEMENTATION" expected but "identifier SETBKMODE" found

Titolo: Re:Scritte con il colore di fondo
Inserito da: SB - Aprile 25, 2021, 08:40:29 am

  Image1.Canvas.Brush.Style := bsClear;

Titolo: Re:Scritte con il colore di fondo
Inserito da: panfra - Aprile 25, 2021, 08:53:43 am

OK messo :

 unit1.FrmPrincipale.imagegen.Canvas.Brush.Style := bsClear;