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

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

← →
Child   (2003-06-11 13:37) [0]

Мастера. У формы можно задать цвет.
А можно-ли задать ей текстуру (*.jpg)?
Если да, то как. Можно, наверное, использовать Image, растянуьб его на всю форму и т.д. Но это ведь коряво.

---

← →
jel ©   (2003-06-11 13:49) [1]

Пиши ей onPaint и там рисуй на Canvas все, что душе угодно.

---

← →
MBo ©   (2003-06-11 13:51) [2]

обрабатывать WM_EraseBKGND или даже в OnPaint рисовать твою картинку на Canvas формы

---

← →
Child   (2003-06-11 14:00) [3]

Спасибо

---

← →
Child   (2003-06-11 14:11) [4]

Мастера. Это снова я :)
Сделал так:

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Draw(0, 0, TheGraphic);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TheGraphic := TBitmap.Create;
TheGraphic.LoadFromFile("C:\...\имя.jpg");
end;
Ошибок не выдаёт, но ничего и не делается.

---

← →
Palladin ©   (2003-06-11 14:14) [5]

Ну ты ничего и не делал...

---

← →
Child   (2003-06-11 14:18) [6]

>Palladin
То есть я не могу взять код из справки?
Почему он не работает?

---

← →
Palladin ©   (2003-06-11 14:19) [7]

соори... прогнал...

---

← →
Palladin ©   (2003-06-11 14:19) [8]

ты модуль jpeg подключил?

---

← →
clickmaker ©   (2003-06-11 14:21) [9]

TBitmap не загрузится из Jpg. Надо uses Jpeg и создавать TJPEGImage

---

← →
Child   (2003-06-11 14:22) [10]

Теперь - да(в uses ,jpeg). Но эффект тот же.

---

← →
Palladin ©   (2003-06-11 14:23) [11]

ну тогда картинка у тебя пустая :)
сконвертируй в bmp и загружай bmp

---

← →
Child   (2003-06-11 14:28) [12]

Теперь всё вот так, но тот же эффект.

unit Unit1;

interface

uses
Windows,SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Jpeg;


type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
TheGraphic: TJPEGImage;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Draw(0, 0, TheGraphic);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TheGraphic := TJPEGImage.Create;
TheGraphic.LoadFromFile("C:\...\Crumple2.jpg");
end;

end.

---

← →
NAlexey ©   (2003-06-11 14:40) [13]

TheGraphic: TGraphic;

---

← →
jel ©   (2003-06-11 14:42) [14]

Проверь путь к своему файлу. Специально проверял - твой код работает.

---

← →
NAlexey ©   (2003-06-11 14:44) [15]

>jel ©
Точно, водит нас за нос.

---

← →
Child   (2003-06-11 14:54) [16]

Всё, нашёл почему не работает.
Всем спасибо.

---

← →
Child   (2003-06-11 14:54) [17]

PS. Дело было не в пути.

---

← →
clickmaker ©   (2003-06-11 15:15) [18]

Child (11.06.03 14:54)
PS. Дело было не в пути.

А в шляпе ?

---

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

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



Память: 0.48 MB
Время: 0.015 c