Скачать: CL | DM;

Icon image is not valid   Найти похожие ветки 

← →
TriX ©   (2004-07-28 15:26) [0]

как убрать ошибку (Icon image is not valid) появляющуюся при сохранении рисунка компонента image .

---

← →
Sandman25 ©   (2004-07-28 15:28) [1]

Не писать
Image1.Picture.Icon.SaveToFile

---

← →
Iconka ©   (2004-07-28 15:32) [2]

Как вариант закоментарь строку на которой появляется ошибка.

А если хочешь нормального ответа - приведи код.

---

← →
trix ©   (2004-07-28 15:51) [3]

var
i, IconCount, negone: integer;
begin

ListBox1.Items.Clear;
negone := -1;

if OpenDialog1.Execute then

  begin
  StatusBar1.SimpleText := OpenDialog1.FileName;

  end;

IconCount := ExtractIcon(Form1.Handle,PChar(OpenDialog1.FileName),negone);

for i := 0 to IconCount-1 do
  begin
  ListBox1.Items.add( "ICON " +iNtToStr(i+1));
  end;

Label2.Caption := IntToStr(IconCount);

ListBox1.ItemIndex := 0;
ListBox1Click(Sender);
end;

procedure TForm1.SaveIcon1Click(Sender: TObject);
begin
       begin
if SaveDialog1.Execute then
  Image1.Picture.Icon.SaveToFile(SaveDialog1.FileName);
                         {**** И ВОТ ТУТ ОШИБКА ****}
        end;
end.

---

← →
Sandman25 ©   (2004-07-28 15:55) [4]

Image1.Picture.SaveToFile

---

← →
TriX ©   (2004-07-28 16:49) [5]

Как видите тут грузится иконка из файла ,но
не во всех файлах есть иконки .
Image1.Picture.SaveToFile
то ж не помогает .

Как мне не вызывая ошибки продолжить работу программы .
без сохранения 0вой иконки .

---

← →
Sandman25 ©   (2004-07-28 16:51) [6]

try except?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c