Witam.
Używam Delphi XE10. Potrzebuję aby na bitmapie napisać tekst w negatywie. W jaki sposób można uzyskać transparentny kolor pisaka?
Pozdrawiam.
Delphi - Rejestracja:ponad 13 lat
- Ostatnio:ponad 4 lata
- Postów:92
0
Chcę aby na bitmapie np przykładowo na białym tle napisać tekst tłem (bitmapą). W aplikacji najpierw próbowałem:
Tlo.Canvas.TextOut(x,y,txt);
Niestety jakbym nie próbował ustawiać kolorów i styli, nie uzyskałem tego efektu.
Wobec rady stworzyłem w zasobach białą bitmapę Image2:
Napis:=TBitmap.Create;
Napis:=Image2.Picture.Bitmap;
Napis.Canvas.TextOut(5,5,txt);
R:=Rect(0,0,Napis.Width,Napis.Height);
Tlo.Canvas.BrushCopy(R,Napis,R,clBlack);
Niezależnie jakie kolory ustawię (text, bitmapa, BrushCopy), to otrzymuję nałożenie jednego obrazu na drugi, a nie "wycięcie". Co robię źle?
Proszę o wyrozumiałość, to moje pierwsze próby z obrazkami.
edytowany 1x, ostatnio: flowCRANE
- Rejestracja:ponad 12 lat
- Ostatnio:7 miesięcy
- Postów:6610
0
co to znaczy napisać tekst tłem? A może jak w sławetnym filmiku chcesz narysować zielone linie czerwonym pisakiem?
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := 300;
bmp.Height := 100;
with bmp.Canvas do
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
FillRect(ClipRect);
Brush.Style := bsClear;
Font.Color := clRed;
TextOut(10, 10, 'Jakiś text');
end;
Self.Canvas.Draw(20, 20, bmp);
bmp.Free;
end;
dobrze że samochodem na rowerze nie jeździ :P
- Rejestracja:ponad 19 lat
- Ostatnio:2 miesiące
0
Napis:=TBitmap.Create; // Stworzyłeś bitmapę
Napis:=Image2.Picture.Bitmap; // nadpisałeś stworzoną bitmapę, masz już wyciek pamięci na dzień dobry
Napis.Canvas.TextOut(5,5,txt); // nie wypełniłeś tła Canvas.Brush.Color/Canvas.Brush.Style/fillRect() , rysujesz nie wiadomo jakim kolorem Canvas.Font.Color
R:=Rect(0,0,Napis.Width,Napis.Height);
Tlo.Canvas.BrushCopy(R,Napis,R,clBlack); // zamiast clBlack ma być Napis.Canvas.Font.Color którym rysowałeś tekst
Klakierus napisał(a):
... to moje pierwsze próby z obrazkami.
wygląda na to że z Delphi również. Dobra rada, zajmij się najpierw prostymi rzeczami.
- Rejestracja:ponad 13 lat
- Ostatnio:ponad 4 lata
- Postów:92
0
Sorki za bełkot, ale jak widzę zrozumiałeś o co chodziło. Napis ma być negatywowy na obrazku, czyli przykładowo napis ma być w białym prostokącie, lecz zamiast czarnego koloru liter, ma być kolor obrazka pod spodem.
PS. To co napisałem, to nie jest cały kod, tylko fragmenty. Wyciąłem tylko to co dotyczyło mojego problemu. Kolory i style są ustawione i nie ma "wycieków". Program ma obecnie blisko 30kb, raczej nie chciałbyś tego całego czytać. Po prostu muszę w nim użyć mieszania tekstów z grafiką, a ze stworzeniem transparentnego pisaka mam problem.
edytowany 3x, ostatnio: Klakierus
Z Delphi niezupełnie a robisz takie cuda z wyciekami pamięci? Nie wierze. No chyba że próbami nazywasz kompletne wyklikiwanie programu.
- Rejestracja:ponad 19 lat
- Ostatnio:2 miesiące
0
Klakierus napisał(a):
Napis ma być negatywowy na obrazku, czyli przykładowo napis ma być w białym prostokącie, lecz zamiast czarnego koloru liter, ma być kolor obrazka pod spodem.
A jeżeli pod napisem różne kolory to ... ?
- Rejestracja:ponad 19 lat
- Ostatnio:2 miesiące
0
Czyli chcesz kolorowy (wg obrazka) napis na monotonicznym tle?
Może zrób przykład w paint z jedną literką.
edytowany 1x, ostatnio: _13th_Dragon
- Rejestracja:ponad 12 lat
- Ostatnio:7 miesięcy
- Postów:6610
0
to się tak nie da jak myślisz. Najprościej do tego zaprząc GDI+ - poszukaj w przykładach. Można użyć maski do tego albo stworzyć ścieżkę z tekstu i wypełnić wszystko poza nią. Generalnie jest trochę szukania i sprawdzania
- Rejestracja:ponad 19 lat
- Ostatnio:2 miesiące
3
abrakadaber napisał(a):
to się tak nie da jak myślisz
Da sie:
procedure TForm1.FormCreate(Sender: TObject);
var Back,Bmp:TBitmap;
var R:TRect;
var S:TSize;
const Text:String='13th';
begin
Bmp:=TBitmap.Create;
Back:=TBitmap.Create;
try
Back.LoadFromFile('c:\Temp\13th.bmp');
R:=Bounds(0,0,Back.Width,Back.Height);
ImBack.Picture.Assign(Back);
Bmp.Canvas.Brush.Color:=clBtnFace;
Bmp.Canvas.Brush.Style:=bsSolid;
Bmp.Width:=R.Right;
Bmp.Height:=R.Bottom;
Bmp.Canvas.Font.Name:='Verdana';
Bmp.Canvas.Font.Style:=[fsBold];
Bmp.Canvas.Font.Size:=23;
Bmp.Canvas.Font.Color:=clYellow;
S:=Bmp.Canvas.TextExtent(Text);
Bmp.Canvas.TextOut((Bmp.Width-S.cx)shr(1),(Bmp.Height-S.cy)shr(1),Text);
Back.Canvas.Brush.Color:=clNone;
Back.Canvas.Brush.Style:=bsClear;
Back.Canvas.BrushCopy(R,Bmp,R,clYellow);
ImResult.Picture.Assign(Back);
finally
Back.Free;
Bmp.Free;
end;
end;
- 2de94160d1.png (23 KB) - ściągnięć: 175
- 19fef432ee.png (41 KB) - ściągnięć: 163
Zobacz pozostałe 3 komentarze
@furious programming - tak sądzisz: -
Back.LoadFromFile('c:\Temp\13th.bmp'); ?
Użyj ścieżki względnej ;)
Dodałem obrazek w inspektorze, dodano na koniec wątku.
tyle że trzeba zmienić bitmape - wiem zgadzam się z Dragonem powinieneś dorzucić źródła - nie jestem Twoim wrogiem
Jest dorzucone na końcu tego tematu, tu: http://4programmers.net/Forum/1212126
- Rejestracja:około 9 lat
- Ostatnio:około 9 lat
- Postów:24
0
moja wiedza na temat delphi jest dosyć potężna... zastanawia mnie jak Ci mogło się to uruchomić skoro nie ma w zmiennych ImBack - ja naturalnie wiem że to ma być Image ale nie rysuje sie ten napis z tłem, jednym słowem klapa - pewnie coś zmodyfikowałeś przed dodaniem posta
Obrazek masz pod
c:\temp\... ?
- Rejestracja:ponad 13 lat
- Ostatnio:ponad 4 lata
- Postów:92
0
Dzięki _13th_Dragon. O to mi chodziło.
Xor1: Ten kod działa: ImBack i ImResult są umieszczone na Form1. U mnie wynik był taki jak zamieszczony przez Dragona.
Dziękuję za pomoc.
u mnie niestety nie działa mimo umieszczenia 2 Image i nazwania ich tak jak w kodzie. Masz cały projekt spakowany rarem? Zamieść go tutaj proszę zobaczę co robię źle
- Rejestracja:ponad 19 lat
- Ostatnio:2 miesiące
0
<code=delphi></code>