Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

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

Наверх




Память: 0.5 MB
Время: 0.021 c
1-84317
dfg
2003-06-15 12:03
2003.06.26
Как правильно отследить ошибку?


1-84349
sergey2
2003-06-16 13:43
2003.06.26
Есть ли такая функция ?


8-84442
reticon
2003-03-08 13:52
2003.06.26
формат файла


3-84026
paulsin
2003-05-31 19:52
2003.06.26
SQL функция TOP


6-84510
mixamixa
2003-04-20 20:25
2003.06.26
Предача файлов ч/з ClientSocket & Serve