Подскажите формулу delphi 7

[ZveruGA]

Формула Для работы С компонентом Image

Которая Задает размер изображению

Допустим 800х600 и т.п

Помогите плизз

[coder]

ZveruGA

Height, Width ?

телепатов нет, да и ваш варварский язык понять трудно.

[ZveruGA]

coder

да да он Самый!

[coder]

ZveruGA

или нужно определить размер изображения и "растянуть" image ?

зы ваша манера писать =))

[ZveruGA]

coder

Растянуть)

[coder]

ZveruGA

не понимаю. =))

[ZveruGA]

coder

Нажимаешь кнопку

Выходит форма в ней 3 кнопки

800х600

1024х768

1280х1024

Нажимаю на одну кнопку допустим 800х600

И мне в новой Форме открывается изображение В этих пораметрах))

[coder]

и что у вас вызывает затруднение ?

по другому

1.читаем файл

2.в зависимости от размера отображаем на форме в соотношении 1:1

3. если размер больше чем видимая область уменьшаем до "вползания" сохраняя соотношения сторон

4* центруем картинку на форме

такой вариант ?

[ZveruGA]

coder

Сории но я уже Дошел сам спасибо вам за Height, Width я их использовал))

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
form2.Show;
form2.Height:=800;
form2.WidTh:=600;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form2.Show;
form2.Height:=1024;
form2.WidTh:=768;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
   form2.Show;
form2.Height:=1280;
form2.WidTh:=1024;
end;

end.

Все работает))

[coder]

знаете как такой код называют ?

[ZveruGA]

coder

Программный

[D_Master]

гы-гы

[ZveruGA]

D_Master

А как его тогда называют?

[Whirlpool]

знаете как такой код называют ?

Программный

[TolkienDRR]

плачу xD

[ZveruGA]

TolkienDRR

D_Master

Whirpool

Я програмировать тока как 2 месяца Начал на Delphi так сказать ЧайНЕГ

А вы тут Ржоте!

Был бы Нормальный человек Среди вас он бы сказал Как называется!

А сидеть и тупу Флудить Каждый Может!

Все тут прямо Короли Delphi!

[Maru]

говнокод

[X-tender]

Maru, хотел бы я посмотреть на твой код... не факт что для меня он не будет говнокодом.

ZveruGA, дельфи - называют как объектно-ориентированным, так и процедурно-ориентированным языком, так как он умеет и то и другое(хотя, имхо, больше ПО чем ОО), и поэтому стоило бы изучить что это такое и воспользоваться одним из этих подходов... Принципиально гораздо красивее выглядело бы:

procedure showImg(img)
var pictureForm:TPictureForm;
begin
 pictureForm:=TPictureForm.Create(img,dimensions);
//можно добавить еще методы всякие объекту TPictureForm типа Resize, SlideShow и тыды и тыпы
 pictureForm.ShowModal;
 pictureForm.Free;
end;

[ZveruGA]

X-tender

Просто в ЦИТе учусь))

Мы ес4о Такого не проходили))

[прохожий]

ЦИТе

это кто ?

 pictureForm:=TPictureForm.Create(img,dimensions);
//можно добавить еще методы всякие объекту TPictureForm типа Resize, SlideShow и тыды и тыпы
 pictureForm.ShowModal;
 pictureForm.Free;

"раз пошла такая пьянка" ...

pictureForm:=TPictureForm.Create ...
try
 pictureForm.ShowModal;
finally
 pictureForm.Free;
end;

Добавлено спустя 10 минут 1 секунду:

больше ПО чем ОО

ну вы загнули. =))

[D_Master]

это кто ?

Центр информационных технологий, думается.

[прохожий]

D_Master

8), громко звучит =).

и что пользуется спросом?

ZveruGA

расскажите подробнее, пожалуйста .

[D_Master]

и что пользуется спросом?

Даже не знаю, не интересовался

[ZveruGA]

прохожий

ТЕл 250122

На Восточном

Добавлено спустя 32 секунды:

Я учусь на программиста ПК

[прохожий]

ZveruGA

не телефон не нужен, вряд ли я там узнаю чего то такого чего пока не знаю.

вы сами расскажите для чего вам это, что там тают. какой курс. какие цели курса , ну и т.д.

не сочтите за труд.