[lmikle]

Всем здрасьте...

Вот тут бъюсь над такой проблемкой:
Есть PainBox, на который выводится картинка. Надо поверх этой картинки еще нарисовать полупрозрачный цветной прямоугольник (один цвет). Координаты прямоугольника есть (TRect). Сложность в том, что надо нарисовать его быстро. Вариант создания большого битмапа с альфа-каналом и копирования его части на картинку держу как запасной, т.к. размер прямоугольника вычисляется динамически, а еще один огромный битмап в памяти держать не очень хочется.
Есть у кого какие идеи?

ЗЫ. Ограничение - не использовать сторонних доп. библиотек, типа Graphics32 и т.п. Можно использовать DevExpress, бо как он уже в проекте используется.

Код отрисовки:

Код:

procedure TCutImageFrame.pbImagePaint(Sender: TObject);
var
  R, FaceTop, FaceBottom : TRect;
begin
  inherited;

  pbImage.Canvas.StretchDraw(FImageRect,FImage);

  If FHasPoints Then
    Begin
      R := Rect(Min(FStartPt.X,FEndPt.X),Min(FStartPt.Y,FEndPt.Y),Max(FStartPt.X,FEndPt.X),Max(FStartPt.Y,FEndPt.Y));
      pbImage.Canvas.DrawFocusRect(R);

      // Вот эти прямоугольники хочется сделать полупрозрачным цветом.
      GetFaceRects(R,FaceTop,FaceBottom);  // Вычисление координат прямоугольников
      pbImage.Canvas.DrawFocusRect(FaceTop);
      pbImage.Canvas.DrawFocusRect(FaceBottom);

    End;
end;

[cotseec]

а если создать небольшой битмап, как раз под расчитанный прямоугольник, копировать из PaintBox картинку этого прямоугольника, наложить полупрозрачный прямоугольник и вывести отдельным PaintBox'ом в нужном месте над оригинальным PaintBox' ом (чтобы не затирать оригинальную картинку)

[YVitaliy]

Точно не помню, но кажется делал так:

Код:

workcanvas.Pen.Mode:=pmMerge	;
workcanvas.Pen.Color:=clblue;
workcanvas.Brush.Color:=clblue;
//прямоугольник

[angvelem]

Изврат но: GetDiBits обеих картинок и смешивать байты в нужной пропорции.

[lmikle]

Сообщение от YVitaliy

Точно не помню, но кажется делал так:

Код:

workcanvas.Pen.Mode:=pmMerge	;
workcanvas.Pen.Color:=clblue;
workcanvas.Brush.Color:=clblue;
//прямоугольник

Попробую.

Сообщение от angvelem

Изврат но: GetDiBits обеих картинок и смешивать байты в нужной пропорции.

Как уже писал, данная операция должна производиться быстро, поэтому варант с прямой работой с пикселами скорее всего не подойдет. Слишком долго. Думал в сторону GDI/GDI+, но еще не смотрел...

Сообщение от cotseec

а если создать небольшой битмап, как раз под расчитанный прямоугольник, копировать из PaintBox картинку этого прямоугольника, наложить полупрозрачный прямоугольник и вывести отдельным PaintBox'ом в нужном месте над оригинальным PaintBox' ом (чтобы не затирать оригинальную картинку)

Дело в том, что координаты прямоугольника вычисляются налету. Если нужный битмап создавать заранее, то он может оказаться очень большим, чего не хотелось бы, и так в памяти висит оригинальная картинка. Если битмап создавать в процессе работы при вызове отрисовки, то чем это лучше работы с пикселами? Те же тормоза будут - пока создашь (переразмеришь битмап), пока на нем отрисуешься, а потом опять уже его отрисовывать с альфа каналом.

Собственно, думал может кто знает как отрисовать просто прямоугольник с альфа каналом. Как видно из кода, пока просто рисуется фокусный прямоугольник, что не очень наглядно...

[NumLock]

попробовал на Gdiplus:

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  graphics: GpGraphics;
  brush: GpSolidFill;
//  f, c1, c2: Int64;
begin
  PaintBox1.Canvas.Draw(0, 0, Image1.Picture.Graphic);
//  QueryPerformanceFrequency(f);
//  QueryPerformanceCounter(c1);
  GdipCreateFromHDC(PaintBox1.Canvas.Handle, graphics);
  GdipCreateSolidFill($80ffff00, brush);
  GdipFillRectangleI(graphics, brush, 0, 0, 640, 480);
  GdipDeleteBrush(brush);
  GdipDeleteGraphics(graphics);
//  QueryPerformanceCounter(c2);
//  Caption:=IntToStr((c2-c1) div (f div 1000));
end;

как-то очень медленно, 250мс

[NumLock]

отставить панику! двойная буферизация спасает ситуацию.