Jak zrobić program, który otworzy wskazany obrazeki przy zapisywaniu dopisze na dole jakiś text?--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
0
0
przecie to proste. rysujesz przed zapisaniem na dole jakis text. (najpierw obliczasz gdzie dokladnie ma byc ten text)--Vroc
0
zrob tak:
var
obrazek:Tbitmap;
begin
obrazek.loadfromfile('obrazek.bmp');
obrazek.canvas.textout(x,y,'Napis'); //x,y - wspolrzedne napisu
obrazek.savetofile('obrazek.bmp')
end;
Jak chcesz zeby napis byl mniej wiecej na dole mozesz obliczyc x i y:
x:=10;
y:=obrazek.heigth-10; :-) --Delphi 6, Pascal
----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----
0
Hehehe RFL znowu sie wyglupiles. Ten kod spowoduje access violation read of adress.... Zanim uzyje sie zmiennej obrzek nalezy stworzyc obiekt [czy jakos tak] czyli poprawiajac twoj kod bedzie tak:
[...]
var
Obrazek: TBitmap;
[...]
Obrazek:=TBitmap.Create;
Obrazek.LoadFromFile('Obrazek.bmp');
with Obrazek.Canvas do
begin
Font.Name:='Verdana';
Font.Size:=8;
Font.Color:=clBlack;
*Brush.Style:=bsClear; * to gdy chcesz zeby nie bylo tla pod tekstem
Brush.Color:=clWhite;
TextOut(10,Obrazek.Height-TextHeight('X')-5,'Jakiś napis na dole obrazka');
end;
Obrazek.SaveToFile('Obrazek.bmp');
Obrazek.Free;
[...]
Powinno byc dobrze :)-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------
0
Hehe pisalem z pamieci i dlatego zapomnialem dac obrazek:=tbitmap.create...
A ty sie za to popisujesz bo sie chwalisz ze umiesz w canvasie czcionke zmieniac... :D :D :D :D :D --Delphi 6, Pascal
----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----
0
Ej co do osadnika to jedno pytanie - pisz czego NAPRAWDĘ nie wiesz!
0
Tego to nie wiedzialem, bo jestem grafikiem od 1000 boleści, nawet w delphi.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
0
Programistą chyba też (Taka mała dygresja)