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

[digitalis]

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

Отвечаю сам себе. Если залить не из Blank.jpg, а из Blank.bmp - все ОК. Но почему же и на FillRect вылетает - ХЗ ? Неисповедимы пути Дельфийские-7 .

[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[i]]]) ;
    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));