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

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

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

Как закрасить форму картинкой в TBitmap? [D7, XP]

Ezorcist © (2006-10-12 19:59:00)
(аналогично св-ву background в html)

Vovan#1 (2006-10-12 22:37:00) [1]
>нельзя. добывать байтики из числа надо уметь до того, как начинаешь писать оконные приложения.

Щас, разбежался.

Vovan#1 (2006-10-12 22:35:00) [2]
TileBlt в GDI
TextureBrush в GDI+

или

procedure TBmpForm.FormPaint(Sender: TObject);
var
x, y: Integer;
begin
y := 0;
while y < Height do
begin
x := 0;
while x < Width do
begin
Canvas.Draw(x, y, Bitmap);
x := x + Bitmap.Width;
end;
y := y + Bitmap.Height;
end;
end;

И всегда можно отрубать WM_ERASEBKGND (см. пример "Битмап" в стандартной поставке Делфи).

Zeqfreed (2006-10-12 22:14:00) [3]
> [15] Ketmar © (12.10.06 22:10)

Собственно, все так и делают :) В своем большинстве.

Ketmar (2006-10-12 22:10:00) [4]
>[14] Zeqfreed(c) 12-Oct-2006, 22:09
>Байтики это скучно :) Думаю, можно и после.
угу. сначала поедем, а потом водить научимся? %-)

Zeqfreed (2006-10-12 22:09:00) [5]
> [13] Ketmar © (12.10.06 22:06)

Байтики это скучно :) Думаю, можно и после.

Ketmar (2006-10-12 22:06:00) [6]
>[11] Ezorcist 12-Oct-2006, 21:55
>:) :) ну а как именно то? можно пример?
нельзя. добывать байтики из числа надо уметь дотого, как начинаешь писать оконные приложения.

Zeqfreed (2006-10-12 21:56:00) [7]
GetRValue, GetGValue, GetBValue.

Ezorcist (2006-10-12 21:55:00) [8]
2 Ketmar

:) :) ну а как именно то? можно пример?

Ketmar (2006-10-12 21:50:00) [9]
[7]

Ezorcist (2006-10-12 21:49:00) [10]
2 Leonid Troyanovsky

я так понял Graphics.ColorToRGB вернет integer, а как из него получать состовляющие?

Leonid Troyanovsky (2006-10-12 21:43:00) [11]

> Ezorcist (12.10.06 21:35) [6]

> красному,зеленому и синему? как бы обратное от RGB()?

Graphics.ColorToRGB

--
Regards, LVT.

Ketmar (2006-10-12 21:38:00) [12]
разобрать число на байтики.

Ezorcist (2006-10-12 21:35:00) [13]
угу. и еще вопрос: как из цвета получить состовляющие по красному,зеленому и синему? как бы обратное от RGB()?

Zeqfreed (2006-10-12 21:31:00) [14]
> [3] Ezorcist (12.10.06 21:18)

> работает. А есть ли разница как написать [1] и [2]?

А не видно? Можно конечно самому выводить в цикле, но зачем?

Ezorcist (2006-10-12 21:22:00) [15]
2 @!!ex ©
Копипастом изображение нарисовалось только один раз...

2Zeqfreed
brush.Bitmap:=myBitmap;

работает. А есть ли разница как написать [1] и [2]?

Ezorcist (2006-10-12 21:18:00) [16]
2 @!!ex ©
Копипастом изображение нарисовалось только один раз...

2Zeqfreed
brush.Bitmap:=myBitmap;

работает. А есть ли разница как написать [1] и [2]?

Zeqfreed (2006-10-12 20:02:00) [17]
Смотреть все что пишут со словом Brush :)

@!!ex (2006-10-12 20:00:00) [18]
Help->BitBlt

Example:

BitBlt(Form1.Canvas.Handle,0,0,Form1.ClientWidth,Form1.ClientHeight,BitMap.Canva s.handle,0,0,SRCCOPY);

Наверх

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