Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.09;
Скачать: CL | DM;

Вниз

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]

>[6] Lionzi © (29.09.03 12:01)
У тебя нет на форме компонента TImage


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

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


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

Правильное решение дал
> Skier © (29.09.03 11:46) [3]

просто ты им не воспользовался.


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

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



Страницы: 1 вся ветка

Текущий архив: 2003.10.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
8-27620
adam
2003-06-11 07:07
2003.10.09
mp3.... Как???


3-27406
RDen
2003-09-18 12:17
2003.10.09
BDE выдаёт ошибку - At end of table


3-27321
noname666
2003-09-18 16:43
2003.10.09
StringGrid


14-27646
Настенька
2003-09-22 07:15
2003.10.09
файл с расширением *.dat


14-27714
Дмитрий
2003-09-23 10:16
2003.10.09
Новая видеокарта Sparkle GeforceFX 5600 или регресс в развитии





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский