Drionn
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору sergionn Цитата: , но в первом случае изображение всегда будет перерисовываться если будут внешние воздейтвия т.е. всегда актуально | Вот это и существенно в моём случае. Рисую графики 5-10 линий по 50-100 тыс. точек каждая. Перерисовка на каждый чих утомительна. (понятно, что разрешение экрана много меньше, но данные те с приборов, и могут быть пропущены пики, если уменьшать размерность. на самом деле получаются не линии, а полосы с выбросами). Поэтому обратился к image.bitmap. Ваша подсказка не помогла. У меня код рисует текст без учета прозрачности и кривым шрифтом: procedure TForm1.Button2Click(Sender: TObject); var ARect,fPaintRect:TRectF; pCanvasState:TCanvasSaveState; begin fPaintRect.Create(0,0,image1.Bitmap.Canvas.Width,image1.Bitmap.Canvas.Height); ARect.Create(10, 40, image1.Bitmap.Canvas.Width,image1.Bitmap.Canvas.Height); pCanvasState := image1.Bitmap.Canvas.SaveState; image1.Bitmap.Canvas.BeginScene; image1.Bitmap.Canvas.IntersectClipRect(fPaintRect); image1.Bitmap.Canvas.ClearRect(fPaintRect, 0); image1.Bitmap.Canvas.Fill.Color:=claBlack; image1.Bitmap.Canvas.Font.Size:=14; image1.Bitmap.Canvas.FillText( ARect, 'GFDSA', false, 0.1, [TFillTextFlag.ftRightToLeft], TTextAlign.taTrailing, TTextAlign.taLeading ); image1.Bitmap.Canvas.EndScene; image1.Bitmap.Canvas.RestoreState(pCanvasState); end; Спасибо за участие. Попытаю ещё PaintBox (мои "стоны" по нему кажется преувеличены, тогда сказалась пятница и жара). Кстати, если выводить текст на TPaintBox с поворотом на -90, и длинный текст выходит за верхнюю границу PaintBox, но над ним есть TButton, нажатием на который этот текст выводился, то текст продолжиться писаться по поверхности кнопки, буд-то она продолжение PaintBox |