TImage, как программно изменить значение в инспекторе объектов

← →
Lionzi (2003-09-29 11:32) [0]

Уважаемые Мастера, помогите пожалуста новичку. Может я не совсем корректно задаю вопрос, но мне надо, чтобы во время работы программы, к примеру, у объекта Timage(Image1) изменилось значение параметра Stretch с false на true, т.е. картинка уменьшилась до размера рабочего окна.

Заранее благодарен, Lionzi.

← →
Skier (2003-09-29 11:39) [1]

Обрати взоры на Инспектор Объектов (Object Inspector)

← →
Lionzi (2003-09-29 11:44) [2]

Спасибо, Но мне надо, чтобы во время исполнения програмы сначало изображение выводилось в натуральную величину, а по необходимости, при нажатии на кнопку на понели, уменьшалось до размера рабочего окна. В инспекторе за это отвечает Stretch, но как его изменить програмно?

← →
Skier (2003-09-29 11:46) [3]

Image1.Stretch := True;
или
Image1.Stretch := False;

← →
Lionzi (2003-09-29 11:56) [4]

Ругаеться: Graf.pas(73) Undeclared identifier: Image1
Grafik.dpr(7)Could not used unit "Graf.pas"

← →
Skier (2003-09-29 11:58) [5]

Код полностью !

← →
Lionzi (2003-09-29 12:01) [6]

unit Graf;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtDlgs, Menus, ExtCtrls, StdActns, ActnList;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
WindowMenu: TMenuItem;
N5: TMenuItem;
ActionList1: TActionList;
WindowClose1: TWindowClose;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowTileVertical1: TWindowTileVertical;
WindowMinimizeAll1: TWindowMinimizeAll;
WindowArrange1: TWindowArrange;
MinimizeAll1: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N6: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses Graf2, AboutUnit;

{$R *.DFM}

procedure TMainForm.N2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then // если файл выбран, то выполнять следующее
begin
ChildForm := TChildForm.Create(Self);
ChildForm.Image1.Picture.loadFromFile(OpenPictureDialog1.FileName);
ChildForm.Caption := OpenPictureDialog1.FileName;
end;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
Close;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
About.ShowModal;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
Image1.Stretch := True;
end;

end.

← →
Nikolay M. (2003-09-29 12:02) [7]

> ChildForm.Image1.Stretch := True;

;))))))))

← →
Skier (2003-09-29 12:03) [8]

← →
Lionzi (2003-09-29 12:07) [9]

Спасибо! Nikolay M. действительно дал правильное решение.

← →
Nikolay M. (2003-09-29 12:12) [10]

← →
Lionzi (2003-09-29 12:18) [11]

Уже воспользовался! Насамом деле как увидел решение, сразу схватился за голову, дурак дураком (я про себя) вроде и так пробывал, и так, но всеравно не выходит...

TImage, как программно изменить значение в инспекторе объектов Найти похожие ветки