Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Image поверх Image [D7, WinXP]

hypnotize © (2007-01-20 16:31:00)
Здраствуйте Мастера, вопрос такой: имеется двигающийся Image (задний фон), на его фоне рисуется еще один Image с Transperent := true; Так вот второй Image при этом безбожно мерцает (мигает, моргает, дергается, кому как удобнее :)). form1.DoubleBuffered:=true;
Пробывал с PaintBox'ом - тоже, изголялся с BackBuffer'ом - тоже мерцание, что уже и делать не знаю, может предложите?

hypnotize (2007-01-23 23:13:00) [1]
2Юрий_К
Всё, со всем разобрался, если кому интересно, то нужно было просто рисовать всю графику на канве одного Imag'а (не формы!), чтобы рисовалось с трансперентом, нужно в свойствах спрайта (тобиш BitMap'а) который собрались рисовать написать при создании:
moped := TBitmap.Create; moped.Transparent := True;

2ЮЮ
Если понадобится рисовать с альфаканалом, то буду смотреть g32, а пока нету смысла :)

ЮЮ (2007-01-23 10:22:00) [2]
Предлагая взять TImage32 из библиотеки Graphics32, подерживающий "многослойность" графических примитивов внутри одного компонента. Поддерживает не только транспарентность, но и альфа-канал.

Юрий_К (2007-01-22 22:07:00) [3]
Канвас сам по себе вроду не позволяет рисовать. Создай Битмап хотя бы и пользуй его канвас. И не забудь задать размеры битмапа, тогда канвас будет при деле уже в пределах заданных размеров. А сам по себе канвас ничто для отрисовки, полагаю.

hypnotize (2007-01-22 20:45:00) [4]
С ошибкой разобрался, вопрос про рисование на канве с трансперентом еще открыт.

hypnotize (2007-01-22 20:16:00) [5]
Ок пробую, возникает сразу Два встречных вопроса:

1) Как рисовать один Bitmap на другом с Transperent?
2) Почему в данном коде вылазит ошибка: "Canvas does not allow drawing".

private moto: TCanvas; ... procedureTGame.FormCreate(Sender: TObject); begin Moto := TCanvas.Create; end; procedureTGame.FormDestroy(Sender: TObject); begin Moto.Free; end; ... procedureTGame.TimerTimer(Sender: TObject); begin tl := tl - round(speed*1.25); // Двигаем BackGround iftl < -640 thentl:=0; Moto.Draw(tl,0,bg); // Рисуем BackGround ---> Тут вылазит "Canvas does not allow drawing".Moto.Draw(gl,240,gnom); // Рисуем Песонажа ---> И тут тоже. Game.Canvas.CopyRect(rect(0,0,640,370),Moto,rect(0,0,640,370)); // Выводим на экран канву.
end;

Юрий_К (2007-01-22 18:19:00) [6]
bmp := TBitmap.Create; //рисуешь в этот bmp что нужно, далее Image.Picture.Bitmap.Assign(bmp);

Darvin (2007-01-22 15:31:00) [7]
рисуй на невидимой канве, а затем ее выводи целиком с помощью CopyRect

hypnotize (2007-01-22 11:54:00) [8]
up Ж(((((

hypnotize (2007-01-22 00:49:00) [9]
up
Ну что, ниужели ни у кого нету идей?

Palladin (2007-01-20 23:50:00) [10]
а нечего делать двойные щелчки

hypnotize (2007-01-20 23:32:00) [11]
Млина, нужно тут защиту от дублей поставить, а то сделал двойной щелчок по кнопке и на те...

hypnotize (2007-01-20 23:31:00) [12]
Удалено модератором
Примечание: дубль

hypnotize (2007-01-20 23:31:00) [13]
2Delphi-Chainik
Access Violation at...Чото не работает твой код :(

Delphi-Chainik (2007-01-20 22:14:00) [14]
Попробуй это, пример с Delphi World :

unit aplane_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; type TForm1 = class(TForm) Timer1: TTimer; Image1: TImage; procedure FormActivate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} var Back, bitmap, Buf: TBitMap; // фон, картинка, буфер BackRct: TRect; // область фона, которая должна быть // восстановлена из буфера BufRct: Trect; // область буфера, которая используется для // восстановления фона x, y: integer; // текущее положение картинки W, H: integer; // размеры картинки procedure TForm1.FormActivate(Sender: TObject); begin // создать три объекта - битовых образа Back := TBitmap.Create; // фон bitmap := TBitmap.Create; // картинка Buf := TBitmap.Create; // буфер // загрузить и вывести фон Back.LoadFromFile('factory.bmp'); Form1.Image1.canvas.Draw(0, 0, Back); // загрузить картинку, которая будет двигаться bitmap.LoadFromFile('aplane.bmp'); // определим "прозрачный" цвет bitmap.Transparent := True; bitmap.TransParentColor := bitmap.canvas.pixels[1, 1]; // создать буфер для сохранения копии области фона, // на которую накладывается картинка W := bitmap.Width; H := bitmap.Height; Buf.Width := W; Buf.Height := H; Buf.Palette := Back.Palette; // Чтобы обеспечить соответствие палитр !! Buf.Canvas.CopyMode := cmSrcCopy; // определим область буфера, которая будет использоваться // для восстановления фона BufRct := Bounds(0, 0, W, H); // начальное положение картинки x := -W; y := 20; // определим сохраняемую область фона BackRct := Bounds(x, y, W, H); // и сохраним ее Buf.Canvas.CopyRect(BufRct, Back.Canvas, BackRct); end; // обработка сигнала таймера procedure TForm1.Timer1Timer(Sender: TObject); begin // восстановлением фона (из буфера) удалим рисунок Form1.image1.canvas.Draw(x, y, Buf); x := x + 2; if x > form1.Image1.Width then x := -W; // определим сохраняемую область фона BackRct := Bounds(x, y, W, H); // сохраним ее копию Buf.Canvas.CopyRect(BufRct, Back.Canvas, BackRct); // выведем рисунок Form1.image1.canvas.Draw(x, y, bitmap); end; // завершение работы программы procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin // освободим память, выделенную // для хранения битовых образов Back.Free; bitmap.Free; Buf.Free; end; end.

hypnotize (2007-01-20 18:20:00) [15]
Только что попробывал все это вывесте на канве формы (через Timer), получилось. Только все равно мерцает! И без трансперента, так что этот вариант отпадает.

hypnotize (2007-01-20 16:55:00) [16]
Удалено модератором
Примечание: дубль

hypnotize (2007-01-20 16:55:00) [17]
На канве самой формы?

Delphi-Chainik (2007-01-20 16:54:00) [18]
А на канве рисовать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »