(Resolvido) Ajuda com OpenPictureDialog

[Pompeu]

Olá ...

Como eu disse na descrição do tópico, como eu faço pra saber se o usuário clicou no botão "cancelar" do OpenPictureDialog ?

Obrigado

[Jhonas]

Como eu disse na descrição do tópico, como eu faço pra saber se o usuário clicou no botão "cancelar" do OpenPictureDialog ?

Veja o proprio exemplo do delphi

procedure TForm1.Button1Click(Sender: TObject);

var 
Done: Boolean;
begin
  OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon);
  OpenPictureDialog1.FileName := GraphicFileMask(TIcon);
  OpenPictureDialog1.Filter := GraphicFilter(TIcon);
  OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir ];
  while not Done do
  begin
  if OpenPictureDialog1.Execute then
    begin
    if not (ofExtensionDifferent in OpenPictureDialog1.Options) then

      begin
      Application.Icon.LoadFromFile(OpenPictureDialog1.FileName);
      Done := True;
      end
    else
      OpenPictureDialog1.Options := OpenPictureDialog1.Options - ofExtensionDifferent;
    end
  else { Cancelado pelo Usuario}
    Done := True;
  end;
end;

abraço

[Pompeu]

Poderia me dizer em qual parte desse código ele retorna que o usuário clicou no botão cancelar ?

Obrigado por responder Jhonas ^^

[Jhonas]

Poderia me dizer em qual parte desse código ele retorna que o usuário clicou no botão cancelar ?

else { Cancelado pelo Usuario}
    Done := True;
  end;

abraço

[Pompeu]

Agora eu entendi ...

Quando se declara IF para executar o OpenPictureDialog ele entende que:

se você clicou no botão ok ele executa

Senão ele não executa entendendo que você clicou no botão cancelar

Obrigado pela ajuda

Resolvido

[Jhonas]

O código do delphi esta com erro... veja a modificação que fiz:

procedure TForm1.Button1Click(Sender: TObject);
var
Done: Boolean;
begin
  Done := false;
  OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon);
  OpenPictureDialog1.FileName := GraphicFileMask(TIcon);
  OpenPictureDialog1.Filter := GraphicFilter(TIcon);
  OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir ];
  while not Done do
  begin
  if OpenPictureDialog1.Execute then
    begin
    if not (ofExtensionDifferent in OpenPictureDialog1.Options) then

      begin
      Application.Icon.LoadFromFile(OpenPictureDialog1.FileName);
      Done := True;
      end
    else
      OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir, ofExtensionDifferent];
    end
  else { Cancelado pelo Usuario}
    if Done = False then
       begin
          showmessage('Cancelado pelo Usuário');
          Done := true;
       end;
  end;
end;

abraço