TImage i crtanje, transparent

Odgovori Nova tema

4 odgovora
1.892 pregleda

TImage i crtanje, transparent 19.06.2019. u 11:37 · pre 89 meseci #1

Na formu postavimi TImage. Transparent := true;
Dok ne crtam po njemu - proziran je.
Nakon što nacrtam bilo što na njemu, pozadina TImage postaje bijela.

Code:

Image1.Canvas.MoveTo(0,0);
Image1.Canvas.LineTo(100,100);

Što napraviti da i nakon crtanja po Image-u ustane proziran.

Ili možda druga ideja umjesto crtanja po Image-u? Trebam na formi napraviti dijagram gdje je dosta povezivanja sa strelicama između "kućica". Za strelice sam mislio upotrijebiti TImage.

Re: TImage i crtanje, transparent 19.06.2019. u 14:12 · pre 89 meseci #2

> Dok ne crtam po njemu - proziran je.
> Nakon što nacrtam bilo što na njemu, pozadina TImage postaje bijela.

Da li si postavio Transparent na True? Nisam probao sa crtanjem po canvasu ali radi kad se ucita TBitmap sa belom pozadinom.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: TImage i crtanje, transparent 19.06.2019. u 14:36 · pre 89 meseci #3

Da, postavio sam Transparent := true

Kada učitam bitmap sliku, transparent je ok, ali ako crtam, automatski se pozadina postavi na bijelo.

Probao sam se igrati sa kaslom nasljednikom TGraphicControl. Ona ne postavlja pozadinu u bijelo, ali mi se ne da slagati cijelu klasu kad mi je TImage OK. Samo da nađem način kako da ostane transparentan.

Re: TImage i crtanje, transparent 21.06.2019. u 15:14 · pre 89 meseci #4

Pogledaj TBitmap.Transparent i TBitmap.TransparentColor, i kako se postavlja ovo drugo (automatski/rucno).
Ti si svojim crtanjem (pixel(0, 0)) upravo 'pregazio' tekuci TransparentColor ili vec nesto slicno, zato i gubitak transparencije (?)

Pozz

P.S. U help-u D7 ima ovo detaljno objasnjeno.

Re: TImage i crtanje, transparent 23.06.2019. u 05:56 · pre 89 meseci #5

Koristi TPaintBox

Code:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.MoveTo(0,0);
PaintBox1.Canvas.LineTo(100,100);
end;

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme