ubilleder.pas(91,23) Error: No member is provided to access property
procedure TForm1.DBGrid1CellClick(Column: TColumn);var tal: extended; largeur, hauteur: integer;begin if not(DBGrid1.DataSource.DataSet.Fields[1].Value = NULL) then Image1.Picture.LoadFromFile(DBGrid1.DataSource.DataSet.Fields[1].Value); If Image1.Picture.Width > Image1.Picture.Height then tal:= Image1.Picture.Width/Image1.Width else tal:= Image1.Picture.Height/Image1.Width; largeur := Round (Image1.Picture.Width * tal); hauteur:= Round (Image1.Picture.Height * tal); Image1.Picture.Width:= largeur; Image1.Picture.Height:= hauteur;end;
If Image1.Proportional = false then Image1.Proportional := True;
Image1.Align:= alnone;Image1.AutoSize= false;Image1.Center = false;Image1.Stretch = false;