![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#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); Мне нужно, что бы размер картинок был именно рандомный. Как это реализовать? Заранее спасибо. |
![]() |
![]() |
![]() |
#2 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
![]()
А вот так?
Image1.AutoSize:=false; |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
![]()
Не, это не то...У меня так и стояло в ее настройках. Не работает.
|
![]() |
![]() |
![]() |
#4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]() Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 22.07.2007 в 13:05. |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
![]()
Randomize(); - это что за ерунда? Может ты имел ввиду Random();? Так он у меня и стоит, а все равно размер картинок фиксированный и равен размеру окна Image1, блин, как этим бороться?
|
![]() |
![]() |
![]() |
#6 |
;-)
Пользователь
Регистрация: 18.07.2007
Сообщений: 69
|
![]()
Чтоб это работало, поставь Image1.Stretch:=True ну и Image1.Proportional:=True, если хочешь чтобы соблюдались пропорции.
А потом уже Random... да, Randomize в FormCreate поставь, чтобы каждый раз сбрасывать RandSeed, чтобы "порандомнее" было. Image1.AutoSize ставим в False. |
![]() |
![]() |
![]() |
#7 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
Смотри пост #4
P.S.: Исправил :-)
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
#8 | |
Форумчанин
Регистрация: 21.07.2007
Сообщений: 103
|
![]()
Alex21, спасибо огромное! Но есть все равно вопрос:
Цитата:
|
|
![]() |
![]() |
![]() |
#9 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]() Цитата:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
|
![]() |
![]() |
![]() |
#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 |