Иллюстрированный самоучитель по Kylix


Листинг 13 18 Прямая работа с Bitmap



Листинг 13.18.Прямая работа с Bitmap

procedure TForm1.Button1Click(Sender: TObject);
// Данный пример показывает, как можно рисовать напрямую в Bitmap
var
х,y : integer; Bitmap : TBitmap; P : PByteArray; begin
Bitmap := TBitmap.create; try
if OpenDialog1.Execute then begin
Bitmap.LoadFromFile(OpenDialog1.FileName);
for y := 0 to Bitmap.height -1 do begin
P : = Bitmap. ScanLine [y];
for x := 0 to Bitmap.width -1 do
Р[х] := y; end; end;
canvas.draw(0,0,Bitmap); finally Bitmap.free; end; end;
- Назад -
- Начало -
- Вперед -


- Начало - - Назад - - Вперед -


Книжный магазин