|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.07.2007, 11:33 | #1 |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
Проблема с картинкой
Вот исходный код:
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); Мне нужно, что бы размер картинок был именно рандомный. Как это реализовать? Заранее спасибо. |
22.07.2007, 11:39 | #2 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
А вот так?
Image1.AutoSize:=false; |
22.07.2007, 12:14 | #3 |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
Не, это не то...У меня так и стояло в ее настройках. Не работает.
|
22.07.2007, 12:28 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 22.07.2007 в 13:05. |
22.07.2007, 12:58 | #5 |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
Randomize(); - это что за ерунда? Может ты имел ввиду Random();? Так он у меня и стоит, а все равно размер картинок фиксированный и равен размеру окна Image1, блин, как этим бороться?
|
22.07.2007, 13:02 | #6 |
;-)
Пользователь
Регистрация: 18.07.2007
Сообщений: 69
|
Чтоб это работало, поставь Image1.Stretch:=True ну и Image1.Proportional:=True, если хочешь чтобы соблюдались пропорции.
А потом уже Random... да, Randomize в FormCreate поставь, чтобы каждый раз сбрасывать RandSeed, чтобы "порандомнее" было. Image1.AutoSize ставим в False. |
22.07.2007, 13:07 | #7 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Смотри пост #4
P.S.: Исправил :-)
Life is too short, play more...
Как правильно задавать вопросы |
22.07.2007, 13:27 | #8 | |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
Alex21, спасибо огромное! Но есть все равно вопрос:
Цитата:
|
|
22.07.2007, 13:37 | #9 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Цитата:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
|
22.07.2007, 13:40 | #10 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Или еще проще:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с картинкой | puma | HTML и CSS | 3 | 15.07.2008 14:20 |
И ещё проблема с DLL | Altera | Общие вопросы Delphi | 7 | 25.06.2008 23:45 |
Управление картинкой | Патрон | Общие вопросы Delphi | 15 | 06.05.2008 20:54 |
проблема с UDP | Pitbull | Работа с сетью в Delphi | 4 | 06.11.2007 09:35 |