Проблема с картинкой

[trafbite]

Вот исходный код:

if checkbox1.Checked then begin
Bitmap := TBitmap.Create;
try
Image1.Canvas.Create;
except
end;
Image1.Width :=Random(100);
Image1.Height :=Random(100);

Image1.Canvas.lineto(random(100),ra ndom(100));
Image1.Picture.SaveToFile(path+'\'+ time+'\'+memo1.lines[i]+'.bmp');
Bitmap.LoadFromFile(path+'\'+time+' \'+memo1.lines[i]+'.bmp');
jpg := TJpegImage.Create;
jpg.Assign(image1.picture.graphic);
jpg.CompressionQuality := 50;
jpg.Compress;
jpg.SaveToFile(path+'\'+time+'\'+me mo1.lines[i]+'.jpg');
jpg.free;
end;

Вопрос: прога генерит картинки размером с область "Image1". Почему она не учитывает строки:
Image1.Width :=Random(100);
Image1.Height :=Random(100);
Мне нужно, что бы размер картинок был именно рандомный. Как это реализовать?
Заранее спасибо.

[Carbon]

А вот так?

Image1.AutoSize:=false;

[trafbite]

Не, это не то...У меня так и стояло в ее настройках. Не работает.

[Alex21]

 
Bitmap := TBitmap.Create;
try
Image1.Canvas.Create;
except
end;
Randomize();
k1:=Random(100);{размер области X}
j1:=Random(100);{размер области У}
k2:=Random(100);{точка X}
j2:=Random(100);{точка У}
bitmap.Width:=k1;
bitmap.Height:=j1;
Image1.Width:=bitmap.Width;
Image1.Height:=bitmap.Height;
 
bitmap.Canvas.LineTo(k2,j2); {нарисуем линию на Битмапе}
Bitmap.SaveToFile('h:\111.bmp'); {сохраним Битмап}
{Загрузим БитМап в Image}
Form1.Image1.Picture.Bitmap.LoadFromFile('h:\111.bmp');
 jpg...

Вообщем привязку делайте к Bitmap, а не к Image

[trafbite]

Randomize(); - это что за ерунда? Может ты имел ввиду Random();? Так он у меня и стоит, а все равно размер картинок фиксированный и равен размеру окна Image1, блин, как этим бороться?

[Net]

Чтоб это работало, поставь Image1.Stretch:=True ну и Image1.Proportional:=True, если хочешь чтобы соблюдались пропорции.
А потом уже Random... да, Randomize в FormCreate поставь, чтобы каждый раз сбрасывать RandSeed, чтобы "порандомнее" было.

Image1.AutoSize ставим в False.

[Alex21]

Смотри пост #4

P.S.: Исправил :-)

[trafbite]

Alex21, спасибо огромное! Но есть все равно вопрос:

procedure TForm1.Button1Click(Sender: TObject);
var
k1,k2,j1,j2,i:integer;
jpg:TJPEGimage;
Bitmap:Tbitmap;
begin
Randomize();
for i:=1 to 5 do begin
Bitmap := TBitmap.Create;
try
Image1.Canvas.Create;
except
end;
k1:=Random(100);{ðàçìåð îáëàñòè X}
j1:=Random(100);{ðàçìåð îáëàñòè Ó}
k2:=Random(100);{òî÷êà X}
j2:=Random(100);{òî÷êà Ó}
bitmap.Width:=k1;
bitmap.Height:=j1;
Image1.Width:=bitmap.Width;
Image1.Height:=bitmap.Height;
bitmap.Canvas.LineTo(k2,j2); {òî÷êà Õ}
Image1.Canvas.LineTo(k2,j2); {òî÷êà Ó}
image1.Canvas.Brush.Bitmap:=bitmap. Canvas.Brush.Bitmap;
Bitmap.SaveToFile(inttostr(i)+'.bmp ');
Bitmap.LoadFromFile(inttostr(i)+'.b mp');
jpg := TJpegImage.Create;
jpg.Assign(image1.Picture.graphic);
jpg.CompressionQuality := 50;
jpg.Compress;
jpg.SaveToFile(inttostr(i)+'.jpg');
jpg.free;
bitmap.Free;
end;
end;

Вот что тут не так? BMP-шки теперь генерятся разных размеров, а JPG-шки все равно только по размеру окна image1...

[Alex21]

Сообщение от trafbite

Вот что тут не так? BMP-шки теперь генерятся разных размеров, а JPG-шки все равно только по размеру окна image1...

Если списываете, списывайте правильно:

Bitmap.SaveToFile(inttostr(i)+'.bmp');
Form1.Image1.Picture.Bitmap.LoadFromFile(inttostr(i)+'.bmp');
jpg := TJpegImage.Create;
jpg.Assign(image1.Picture.graphic);

[Alex21]

Или еще проще:

jpg.Assign(bitmap);