Вопрос по image

[gusluk]

На форме находится image с Align=alClient, если сначала изменить размер формы, а потом вывести картинку на image, то она как и требуется рисуется а всю форму. Но если после этого опять изменить размер формы (увеличить), то картинка рисуется только того размера какого она рисовалась первый раз.
Так как выводить картинку на всю форму после изменения ее размера?

[Пепел Феникса]

не знаю что у вас не так.
у меня все отлично работает..
просто Имейдж на форме и картинка в нем(и выравнивание по всей области конечно)
при ресайзе все нормально(картинку ставил и bmp и jpg)

мож че с картинкой не так?

[gusluk]

Я не картинку рисовал, а сначала белый прямоугольник, а потом текст и линии. Та область на которой первый раз рисовал закрашивается белым и текст с линиями печатается, а та, что появилась после увеличения размера формы, остается серой.
Стоит Delphi 7.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.Brush.Color:=clwhite;
image1.canvas.fillrect(image1.canvas.cliprect);
form1.Image1.Canvas.Rectangle(0,0,form1.Image1.Width,form1.Image1.Height);

form1.Image1.Canvas.MoveTo(1,50);
form1.Image1.Canvas.LineTo(form1.Image1.Width-1,50);
form1.Image1.Canvas.TextOut(form1.Image1.Width-50,20,'Text');

end;

[gusluk]

Спасибо SERG1980, но не помогло.

[Stilet]

Предлагаю такую стратегию:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    PaintBox1: TPaintBox;
    procedure FormResize(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1 do begin
    Canvas.FillRect(ClientRect);
    Canvas.MoveTo(1,50);
    Canvas.LineTo(Width-1,50);
    Canvas.TextOut(Width-50,20,'Text');
 end;
end;

end.

Смысл ясен или пояснить?

[gusluk]

Repaint к image результатов не дает а переделывать программу под PaintBox не охота... но похоже придется. А у PaintBox-а таких проблем как у image нету.

[Stilet]

не охота... но похоже придется

Светлая мысль. Поверь мне.

[gusluk]

Спасибо что наставил на путь истинный!
Считаешь что использование PaintBox-ов более надежно чем image?

[Stilet]

Для рисования да. Иначе бы не предложил.