Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Сен

Текст по картинке

Posted by obzor under Delphi

Загружаю jpg в Jmage, пытаюсь по ней вывести текст — ругается при выполнении. А как же быть ? Картинка д.б. одна, а тексты разные. Впрочем, не в картинке дело — пытаюсь залить Jmage путем FillRect — ругается при выполнении все равно.

Pavia

Там так и написано что рисовать можно только на Bitmap.
Картинку надо преобразовать в Bitmap, к примеру так:

Код:


procedure PictureGenBitmap(LPicture:TPicture);
var
    LBitmap:TBitmap;
begin
LBitmap:=TBitmap.Create;
LBitmap.PixelFormat := pf32bit;
LBitmap.Width:=LPicture.Width;
LBitmap.Height:=LPicture.Height;
LBitmap.Canvas.Draw(0, 0, LPicture.Graphic);
LPicture.Bitmap:=LBitmap;
LBitmap.Destroy;
end;

PictureGenBitmap(Image1.Picture);

digitalis

Наверно, не так все строго. Вот заменил в вышеприв. коде всего лишь ‘Blank.jpg’ на ‘Blank.bmp’, ну и Blank.bmp закинул в папку, конечно же — и все зажурчало.

Код:


    if FileExists (strtmp) then
        Image1.Picture.LoadFromFile(strtmp)
    else
      begin
        Image1.Picture.LoadFromFile('F:\XLS\JPG\Blank.bmp') ;
        Image1.Canvas.Font.Name := 'Courier New' ;
        Image1.Canvas.Font.Color := clGreen ;
        Image1.Canvas.Font.Style := [fsBold] ;
        Image1.Canvas.Font.Size := 14 ;
        Image1.Canvas.TextOut (600,40,str12) ;
      end ;

Ну в принципе когда загрузил .bmp, Bitmap сам собой образовался, видимо.

И когда формировал картинку для скидывания в файл, то прямо по Canvas безо всяких Bitmap рисовал.

Код:


    For i := 1 to 9 do strtmp := strtmp + Format(' %6.2f',[Money[MasInd]]) ;
    Image1.Canvas.Font.Size := 12 ;
    Image1.Canvas.Font.Color := clRed ;
    Image1.Canvas.TextOut(98,Niz-46,strtmp) ;
    Image1.Canvas.Brush.Color := clNavy ;
    Image1.Canvas.FillRect(Rect(20,Niz-50,780,Niz-52));
    Image1.Canvas.Brush.Color := clLime ;
    i := Round(Money[0]/fl) ;
    if i > Niz-53 then i := Niz-55 ;
    Image1.Canvas.FillRect(Rect(45,Niz-53-i,65,Niz-52));

тема на форуме

Последние записи

made in programmersforum 10

Текст по картинке

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru