Scalanie

0

Witam, mam maly problem, jak moge zrobic tak, ze na formie sa image1 i label1 na tym imagu, i chce zapisac w jpga tylko tak zeby w tym jpgu byl rowniez napis z labela, czyli po prostu jak to zescalic w jedno?

0

po prostu zrób sobie zrzut ekranowy okna i wyodrębnij to co Cię interesuje. W FAQ jest coś o robieniu zrzutów.

0

kawalek kodu z ojego programu:
screenshot_count : integer = -1;
bmp : tbitmap;
c : tcanvas;

procedure initialize_screenshot;
procedure finalize_screenshot;
procedure write_screenshot;

procedure write_screenshot;
begin
inc(screenshot_count);
//screenshot_count
bmp.Canvas.CopyRect(rect(0,0,bmp.width,bmp.height),c,rect(0,0,bmp.width,bmp.height));
if screenshot_count = 10) and (screenshot_count = 100) and (screenshot_count !!!!!!!!!!

0

a nielepiej canvasem napisać na imagu fontem z labela... ja tak zrobiłem w moim programie wszystko ok!

0

Image.Picture.Bitmap.Canvas.TextOut(20, 20, 'Napis'); // napis
Image.Picture.SaveToFile('C:obrazek.bmp'); // zapis

Co prawda zapisujemy w BMP, ale mysle, ze z JPG tez sobie poradzisz...

Aha.. nie testowalem tego kodu wiec nie gwarantuje, ze dziala ;)

0

wg nmie to najlepije bo tak to by musiala byc petla kotra by odnajdywala wszystkie labele na image'u i potem pobierala wart left top font caption itp. i dopiero wtedy przeistoczenie do brush.style :+ bsnone; i ustawienie pen i brush na sposob czcionki :>
i dopiero wtedy mozna by byl ozunać ze piszemy na canvasie..... i potem dopiero zapis a tak to tylko bierzemy uchwyt i zapisujemy.

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