Delphi: TCanvas.TextOut - ako na text s priesvitným pozadí

p360t · Napísal **p360t**: 23.12.2007 17:28

Ahojte, mám taký začiatočnícky problém, ale nikde v helpe k Delphi som sa nedočkal odpovede: Ako vykreslím text do TCanvas pomocou metódy TextOut tak, aby mal priesvitné pozadie? Štandardne mi to kreslí s bielym pozadím a isto uznáte, že to je :sick:

.

audiotrack · Napísal **audiotrack**: 23.12.2007 17:58

nastavil som color formu na clBlue, potom som skúsil Form1.Canvas.TextOut(30,20,'blablabla'); a pekný text bez bieleho rámiku, tak neviem čo ty stváraš..

p360t · Napísal autor témy **p360t**: 23.12.2007 18:40

Skús toto:

Kód:

procedure TForm1.FormCreate(Sender: TObject);
var
  b: TBitmap;
begin
  b := TBitmap.Create;
  b.LoadFromFile('bg.bmp');
  Image1.Canvas.Draw(0, 0, b);
  b.Free;
  Image1.Canvas.Font.Color := clRed;
  Image1.Canvas.TextOut(10, 10, 'Tento text je skaredy');
end;

Delphi: TCanvas.TextOut - ako na text s priesvitným pozadí

Chcem sa len zbaviť toho bieleho pozadia.

EDIT: Ešte poznámka - používam verziu 6.0 (rád by som aj novšiu, avšak škola beží na tejto a ak by niečo neklapalo na skúške, mám Fx).

neznamy · Napísal **neznamy**: 23.12.2007 19:50

no pozadie ti zavisi od toho aku farbu mas nastavenu pre brush...cize ak chces napr. modre pozadie tak das Image1.Canvas.Brush.Color := clBlue; .... skus sa tam pohrat aj s transparent

ja to persne teraz neviem ale da sa to celkom pkne

.. inak som amater cize ak sa mylim tak ma opravte

p360t · Napísal autor témy **p360t**: 23.12.2007 20:03

Dík, je to presne

Image1.Canvas.Brush.Style := bsClear;

audiotrack · Napísal **audiotrack**: 23.12.2007 20:09

hmm zaujímavé.. sprav si vlastnú funkciu, a pôjde ti to pekne ak to spraviš ako label:

Kód:

procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Picture.LoadFromFile('bg.bmp');
  pridajtext('Tento text je uz pekny',30,30,clRed);
end;

procedure TForm1.pridajtext(text:string;x,y:integer;farba:TColor);
var t:TLabel;
begin
  t:=TLabel.Create(nil);
  t.Caption:=text;
  t.font.color:=farba;
  t.Left:=image1.Left+x;
  t.top:=image1.Top+y;
  t.Parent:=Form1;
  t.transparent:=true;
  t.Visible:=true;
end;

a všimni si že tvoju bitmapu som vyhodil, lebo ju úúplne nevhodne používaš. Malo by to význam robiť cez bmp keby ju používaš aj ďalej, lenže ty si ju zmažeš. Tým pádom to môžem nahradiť jediným príkazom

p360t · Napísal autor témy **p360t**: 23.12.2007 21:58

No môj príklad bol len ilustračný, v projekte ju používam aj ďalej. A asi to bude jednoduchšie cez tú "štetku"

Delphi: TCanvas.TextOut - ako na text s priesvitným pozadí

Podobné témy