BackGround на форме ???

← →
ik (2003-02-05 17:25) [0]

Я думаю, что это реально реализовать на WinApi

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

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

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

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

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

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

← →
gsu © (2003-02-05 17:42) [1]

Canvas.Draw(0,0,MyImage.picture.Graphic)

← →
ik (2003-02-05 17:49) [2]

выдает ошибку на

MyImage.LoadFromFile("temp.bmp");

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

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

← →
Songoku (2003-02-05 17:56) [3]

procedure SetWindowBkgBitmap(Window:HWND;Bitmap:HBitmap);
var
rc:Trect;
begin
Windows.GetClientRect(Window, rc);
FillRect(GetDC(Window), rc, CreatePatternBrush(Bitmap));
end;

function LoadBitmapFromFile(Path:String):HBitmap;
begin
Result:=LoadImage(0,Pchar(Path),IMAGE_BITMAP,0,0,LR_LOADFROMFILE or LR_CREATEDIBSECTION or LR_DEFAULTSIZE);
end;

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

← →
Songoku (2003-02-05 17:58) [4]

Test

← →
gsu © (2003-02-05 18:01) [5]

значит нету myimage или файла или файл неправильный (-:|~

← →
ik (2003-02-05 18:27) [6]

Что-то не работает, и не ругается просто ничего не рисует .. :(

← →
gsu © (2003-02-05 18:42) [7]

кинь image на форму загрузи в него рисунок, а на onclick напиши
Canvas.Draw(0,0, Image1.picture.Graphic);

← →
ik (2003-02-05 18:57) [8]

неа ничего не помогает, все выполняет нормально, а рисунок не появляется на форме, а делать через Image не хочется...:(

← →
ik (2003-02-05 19:00) [9]

пасибо заработало, а как его на весь экран растЯнуть ?

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic)

← →
Songoku (2003-02-05 19:52) [11]

Удалено модератором

BackGround на форме ??? Найти похожие ветки