Скачать: CL | DM;

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]

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

---

← →
gsu ©   (2003-02-05 19:05) [10]

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c