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  |
