Timage.autosize

Hi,
I have a very simple application with a Timage and 3 checkboxes:

procedure TForm1.CBAutosizeClick(Sender: TObject);
begin
if CBAutosize.Checked then
Image1.AutoSize:=true else
Image1.AutoSize:=False;
Image1.Repaint;
end;

procedure TForm1.CBStretchClick(Sender: TObject);
begin
if CBStretch.Checked then
Image1.Stretch:=true else
Image1.Stretch:=False;
Image1.Repaint;
end;

procedure TForm1.CBPropClick(Sender: TObject);
begin
if CBProp.Checked then
Image1.Proportional:=true else
Image1.Proportional:=False;
Image1.Repaint;
end;

Once the image has been "Autosized", it's impossible to stretch or to make
proportional..
What i am doing wrong?


.

Relevant Pages

  • Re: Timage.autosize
    ... > I have a very simple application with a Timage and 3 checkboxes: ... > procedure TForm1.CBAutosizeClick(Sender: TObject); ... > Once the image has been "Autosized", it's impossible to stretch or to make ... It is my understanding that if AutoSize is true, ...
    (alt.comp.lang.borland-delphi)
  • Delphi help ... changing form and Timage sizes
    ... 320x200 you will get a smaller 320x200 yellow TImage. ... procedure N320x2001Click(Sender: TObject); ... ScreenMode: TScreen_Mode; ... ClientHeight:= 200; ...
    (alt.comp.lang.borland-delphi)
  • Delphi help ... changing form and Timage sizes
    ... 320x200 you will get a smaller 320x200 yellow TImage. ... procedure N320x2001Click(Sender: TObject); ... ScreenMode: TScreen_Mode; ... ClientHeight:= 200; ...
    (alt.comp.lang.borland-delphi)
  • Images and Names
    ... I have 24 thumbnails on screen, each in a TImage. ... program so there won't be any way of loading them later on. ... procedure TViewThumbnails.Image1Click(Sender: TObject); ... ViewThumbnails.Position:= poDeskTopCenter; ...
    (alt.comp.lang.borland-delphi)
  • dynamic creating Timage, win98 vs xp problem
    ... cbs2: array of Timage; ... procedure TForm1.Button1Click(Sender: TObject); ...
    (alt.comp.lang.borland-delphi)