TBitmap

[mihali4]

А вы эти свойства, я надеюсь, вашему Image1 присваиваете?
А Image1.Height:=Image1.Picture.Bitma p.Height после загрузки из потока? И то же - для ширины?
А перерисовку Image1.Repaint делаете?

[odi_noki]

Сообщение от mihali4

А вы эти свойства, я надеюсь, вашему Image1 присваиваете?
А Image1.Height:=Image1.Picture.Bitma p.Height после загрузки из потока? И то же - для ширины?
А перерисовку Image1.Repaint делаете?

да, при нажатии на кнопку например пишу

Image1.Stretch :=true;
Image1.AutoSize:=true;
Image1.Repaint;

так верно? или нужно после загрузки картинки это делать?

[odi_noki]

Сообщение от mihali4

А Image1.Height:=Image1.Picture.Bitma p.Height после загрузки из потока? И то же - для ширины?

и так уже подгоняла после работы потока.. все по-прежнему

[mihali4]

Так. Становится все запутаннее.
Итак - вы используете TImage? Статический или вы его создаете?
Приведите целиком обработчик нажатия кнопки (если я правильно понял, именно по нажатию кнопки вы загружаете из потока картинку?).

[odi_noki]

procedure TForm1.Button3Click(Sender: TObject);
begin
TThread3.Create(false);
end;

procedure TThread3.Execute;
begin
with Form1.Image1.Canvas do
begin
if not FileExists(ExtractFilePath(Applicat ion.ExeName)+'1.bmp') then
begin
ShowMessage('The bitmap was not found!');
Exit;
end;
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(ExtractFilePath(Ap plication.ExeName)+'1.bmp');
Lock;
Draw(10, 10, Bmp);
Unlock;
finally
Bmp.Free;
end;
end;
self.Synchronize(Img);
end;

procedure TThread3.Img;
begin
Form1.Image1.Stretch :=true;
Form1.Image1.AutoSize:=true;
Form1.Image1.Height:= bmp.Height;
Form1.Image1.Width:= bmp.Width;
Form1.Image1.Repaint;
end;

компонент TImage лежит на форме, по нажатии кнопки создается поток, исполняет метод Execute, затем с помощью метода Synchronize передаю метод потока(в котором меняю свойства имэджа) основному потоку, и если в потоке TThread менять свойства (что вроде нельзя делать), не помогает.

[mihali4]

procedure TThread3.Execute;
var tmp: string;
begin
tmp:=ExtractFilePath(Application.ExeName)+'1 .bmp';
if not FileExists(tmp) then
begin
ShowMessage('The bitmap was not found!');
Exit;
end;
Image1.Picture.Bitmap.LoadFromFile(tmp);
{или Image1.Picture.Bitmap.LoadFromStream(...}
Image1.Left:=10;
Image1.Top:=10;
end;

[odi_noki]

mihali4,
так по размеру подгоняется хорошо, но вот между потоками конфликты возникают.. ну ладно, разберусь с этим сама. Огромное спасибо за помощь.

[mutabor]

TImage устроен так, что его можно настроить как угодно. Image по размеру изображения (что вам и нужно), подогнать изображение под размер Image, подогнать пропорционально, отцентровать изображение посередине имиджа и т.д. Читайте описание его свойств в справке Дельфи.