DELPHI ОЧИСТИТЬ TBITMAP
Для очистки TBitmap в Delphi необходимо сначала заполнить изображение нужным цветом, используя метод Canvas.FillRect. Затем можно вызвать метод TBitmap.Clear, который устанавливает все пиксели в черный цвет.
TBitmap.Canvas.FillRect(Rect(0, 0, TBitmap.Width, TBitmap.Height));TBitmap.Clear;
Также можно использовать цикл for, чтобы установить каждый пиксель в нужный цвет:
for i := 0 to TBitmap.width - 1 do for j := 0 to TBitmap.height - 1 do TBitmap.Canvas.Pixels[i, j] := clBlack;
Для более точного управления цветом каждого пикселя, можно использовать метод TBitmap.PixelFormat и задать нужный формат пикселя:
TBitmap.PixelFormat := pf32bit; // Задаем формат в 32 бита на пиксельfor i := 0 to TBitmap.width - 1 do for j := 0 to TBitmap.height - 1 do TBitmap.Canvas.Pixels[i, j] := RGB(0, 0, 0); // Устанавливаем черный цвет в каждый пиксель
Если нужно очистить TBitmap, который уже был нарисован на форме, можно использовать метод TCanvas.FillRect, чтобы отрисовать прозрачный прямоугольник на месте TBitmap:
Form.Canvas.Lock;try Form.Canvas.Brush.Color := clBtnFace; Form.Canvas.FillRect(TBitmap.BoundsRect);finally Form.Canvas.Unlock;end;
Delphi #168 - The Problem With SpeedButton Images
Delphi #164 - delphi-hlp.rualeFactor
Delphi Best Practices: The Top Seven Things you Should be Doing - with Nick Hodges
Array : Convert Bitmap to Byte array WITHOUT delphi-hlp.russFormat
Delphi #178 - Uses Cleaning with cnPack and Pascal Analyzer
MultiResBitmap Editor usage
Вебинар \
Enhancements to TRichEdit - Delphi #188