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

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

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

BackGround на форме ??? [D7, Win2k]

ik © (2003-02-05 17:25:00)
Я думаю, что это реально реализовать на WinApi

мне надо, чтобы на форме был background в виде картинки, которая бы растягивалась бы.

1. Пихаем Image, ставить растянуть и соответственно размеры Image = Размеры формы.

2. Я хочу пробовать делать через self.Canvas.Draw(0,0,MyImage)...

но выдает ошибку, при обращении к памяти.

MyImage.LoadFromFile("temp.bmp"); self.Canvas.Draw(0,0,MyImage);

Скажите плз, как такую вещь организовать ?

Songoku (2003-02-05 19:52:00) [1]
Удалено модератором

gsu (2003-02-05 19:05:00) [2]
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic)

ik (2003-02-05 19:00:00) [3]
пасибо заработало, а как его на весь экран растЯнуть ?

ik (2003-02-05 18:57:00) [4]
неа ничего не помогает, все выполняет нормально, а рисунок не появляется на форме, а делать через Image не хочется...:(

gsu (2003-02-05 18:42:00) [5]
кинь image на форму загрузи в него рисунок, а на onclick напиши
Canvas.Draw(0,0, Image1.picture.Graphic);

ik (2003-02-05 18:27:00) [6]
Что-то не работает, и не ругается просто ничего не рисует .. :(

gsu (2003-02-05 18:01:00) [7]
значит нету myimage или файла или файл неправильный (-:|~

Songoku (2003-02-05 17:58:00) [8]
Test

Songoku (2003-02-05 17:56:00) [9]
procedureSetWindowBkgBitmap(Window:HWND;Bitmap:HBitmap);
var
rc:Trect;
begin
Windows.GetClientRect(Window, rc);
FillRect(GetDC(Window), rc, CreatePatternBrush(Bitmap));
end;

functionLoadBitmapFromFile(Path:String):HBitmap;
begin
Result:=LoadImage(0,Pchar(Path),IMAGE_BITMAP,0,0,LR_LOADFROMFILE orLR_CREATEDIBSECTION orLR_DEFAULTSIZE);
end;

procedureTForm1.Button1Click(Sender: TObject);
begin
SetWindowBkgBitmap(Handle,LoadBitmapFromFile( "temp.bmp"));
end;

ik (2003-02-05 17:49:00) [10]
выдает ошибку на

MyImage.LoadFromFile("temp.bmp");

:((
до этой строчки не доходит

self.Canvas.Draw(0,0,MyImage);

gsu (2003-02-05 17:42:00) [11]
Canvas.Draw(0,0,MyImage.picture.Graphic)

Наверх

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