Как закрасить форму картинкой в TBitmap?

← →
Ezorcist (2006-10-12 19:59) [0]

(аналогично св-ву background в html)

← →
@!!ex © (2006-10-12 20:00) [1]

Help->BitBlt

Example:

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

← →
Zeqfreed © (2006-10-12 20:02) [2]

Смотреть все что пишут со словом Brush :)

← →
Ezorcist (2006-10-12 21:18) [3]

2 @!!ex ©
Копипастом изображение нарисовалось только один раз...

2Zeqfreed
brush.Bitmap:=myBitmap;

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

← →
Ezorcist (2006-10-12 21:22) [4]

← →
Zeqfreed © (2006-10-12 21:31) [5]

> [3] Ezorcist (12.10.06 21:18)

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

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

← →
Ezorcist (2006-10-12 21:35) [6]

угу. и еще вопрос: как из цвета получить состовляющие по красному,зеленому и синему? как бы обратное от RGB()?

← →
Ketmar © (2006-10-12 21:38) [7]

разобрать число на байтики.

← →
Leonid Troyanovsky © (2006-10-12 21:43) [8]

> Ezorcist (12.10.06 21:35) [6]

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

Graphics.ColorToRGB

--
Regards, LVT.

← →
Ezorcist (2006-10-12 21:49) [9]

2 Leonid Troyanovsky

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

← →
Ketmar © (2006-10-12 21:50) [10]

[7]

← →
Ezorcist (2006-10-12 21:55) [11]

2 Ketmar

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

← →
Zeqfreed © (2006-10-12 21:56) [12]

GetRValue, GetGValue, GetBValue.

← →
Ketmar © (2006-10-12 22:06) [13]

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

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

← →
Vovan#1 (2006-10-12 22:35) [17]

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 (см. пример "Битмап" в стандартной поставке Делфи).

← →
Vovan#1 (2006-10-12 22:37) [18]

>нельзя. добывать байтики из числа надо уметь до того, как начинаешь писать оконные приложения.

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

Как закрасить форму картинкой в TBitmap? Найти похожие ветки