Форум: "Начинающим";
Текущий архив: 2015.04.26;
Скачать: [xml.tar.bz2];
Внизвопрос по Canvas Найти похожие ветки
← →
Zet (2014-02-12 13:16) [0]Сразу набросочек чтобы пояснить суть проблемы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
BitMap: TBitmap;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Brush.Color := clBlack;
Image1.Canvas.Rectangle(0,0, Image1.Width, Image1.Height);
BitMap := TBitmap.Create;
BitMap.LoadFromFile("test.bmp");
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
BitBlt(Image1.Canvas.Handle,0,0,20,20,BitMap.Canvas.Handle,10,10, SRCCOPY);
end;
end.
Вопрос: почему не копируется BitMap на Image1, если мы в OnCreate нарисовали первым делом черных квадрат
← →
icWasya © (2014-02-12 13:52) [1]Canvas не чувствует вызовы низкоуровневых функций.
после BitBlt сделайте Image1.Invalidate;
← →
Zet (2014-02-12 14:34) [2]Спасибо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.04.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.001 c