Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

Как закрасить форму картинкой в 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]

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

2Zeqfreed
brush.Bitmap:=myBitmap;

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


 
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
>:) :) ну а как именно то? можно пример?
нельзя. добывать байтики из числа надо уметь до того, как начинаешь писать оконные приложения.


 
Zeqfreed ©   (2006-10-12 22:09) [14]

> [13] Ketmar ©   (12.10.06 22:06)

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


 
Ketmar ©   (2006-10-12 22:10) [15]

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


 
Zeqfreed ©   (2006-10-12 22:14) [16]

> [15] Ketmar ©   (12.10.06 22:10)

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


 
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]

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

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



Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.049 c
15-1160292481
AntiUser
2006-10-08 11:28
2006.10.29
В тригере Before Update узнать имя измененного field а


2-1160682299
Westbronx
2006-10-12 23:44
2006.10.29
html в memo


15-1160018364
Alx_
2006-10-05 07:19
2006.10.29
Касперский. DISK BOOT FAILURE


2-1160638881
Volodya_
2006-10-12 11:41
2006.10.29
TOleContainer


3-1157207669
*Ray*
2006-09-02 18:34
2006.10.29
Delphi7, MySQL 5.0.18, ADO