Malowanie.

0

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

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)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0