А есть ли картинка?

[mutabor]

Но проблема в том что я могу загружать картинку автоматически- нажимаю на as.bmp открыть с помощью и выбираю свою программу

Что значит автоматически? В любом случае ты обрабатываешь параметр командной строки в программе и загружаешь картинку из файла. Если это не сделать твоя программа просто запустится и никакой файл не откроет.

[Alex21]

bill, выкинь каку, она же только для БМП.

Вот способ получше:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Picture.Bitmap:=TBitmap.Create;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
   if image1.Picture.Graphic.Empty then showmessage('картинки нет')
      else showmessage('картинка есть');
end;
procedure TForm1.FormClick(Sender: TObject);
begin
   image1.Picture.LoadFromFile('h:\aa_img.jpg');
end;

[bill]

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

Что значит автоматически? В любом случае ты обрабатываешь параметр командной строки в программе и загружаешь картинку из файла. Если это не сделать твоя программа просто запустится и никакой файл не откроет.

1. Я хотел описать словами такую процедуру действий- есть некий файл as.bmp ,я нажимаю на него правой кнопкой мыши, нахожу открыть с помощью и выбираю свою прогу ,которая при нажатии естес-но запускается и ,запустившись ,уже имеет загруженную картинку в image.
2. с командной строкой я еще не работал и поэтому не могу ничем похвастаться. Это все таки не image1.picture.loadfromfile('as.bmp '); Там все сложнее.

[mutabor]

1. Я хотел описать словами такую процедуру действий- есть некий файл as.bmp ,я нажимаю на него правой кнопкой мыши, нахожу открыть с помощью и выбираю свою прогу ,которая при нажатии естес-но запускается и ,запустившись ,уже имеет загруженную картинку в image.

То есть ты ее при дизайне туда загрузил?
Если да, при создании запиши в ту самую bool переменную true или так объяви
var loaded: boolean = true;
Сама картинка в Image не полезет, тебе ее туда нужно загрузить. А раз это делаешь ты, следовательно вполне хватает однобайтового boolean, вместо лишнего битмапа.

[bill]

1.

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

То есть ты ее при дизайне туда загрузил?

А что значит при дизайне загрузил? К тому же так называемый процесс я еще пока не разрабатывал. Этим займусь позже, обновляя версию проги. Сейчас просто нет времени этим заниматься. Пока надо еще найти картинку в image.
2. мне одно не понятно - создаем image1.picture.bitmap:=tbitmap.crea te;
почему вообще создаем именно bitmap а не обьект graphic типа tgraphic?
мы ведь потом имеено через него узнаем есть ли картинка - if image1.picture.graphic.empty ......

[mutabor]

Есть такие понятия в визуальном программировании design time и runtime. Первое означает использование Object Inspector (окошко слева в Дельфи) для изменения свойств компонентов. Второе означает изменения свойств уже во время выполнения программы. Image.Picture это кстати тоже свойство.

Поехали дальше. Объясняю на пальцах. Допустим ты положил в ящик стола 100 рублей, а через минуту ломаешь голову над тем как узнать есть там 100 рублей или нет. То же самое ты делаешь в своей программе. Загружаешь картинку а потом пытаешься определить или она там есть. Она там будет только если ты ее туда загрузил.

Свойство Graphic.Empty удобно использовать, но раз уж оно недоступно, достаточно просто создать свою переменную выполняющую те же функции.

з.ы. Кстати после первой же загрузки картинки можно смело использовать свойство Image.Picture.Graphic.Empty. Ошибки уже не будет.

[Alex21]

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

Допустим ты положил в ящик стола 100 рублей, а через минуту ломаешь голову над тем как узнать есть там 100 рублей или нет. То же самое ты делаешь в своей программе. Загружаешь картинку а потом пытаешься определить или она там есть. Она там будет только если ты ее туда загрузил.

Свойство Graphic.Empty удобно использовать, но раз уж оно недоступно, достаточно просто создать свою переменную выполняющую те же функции.

з.ы. Кстати после первой же загрузки картинки можно смело использовать свойство Image.Picture.Graphic.Empty. Ошибки уже не будет.

Оригинальная трактовка парадокса Шредингера.
По сути .create - выступает в роли ящика (в роли создания ящика)

[bill]

mutabor, оригинально придумал про 100 рублей. )
1.Про дизайнтайм и рантайм я знал просто не понял что ты имел ввиду вначале.
Картинку я загружаю при рантайме обычно(с помощью диалога). Сэтим проблем не будет.
1. а. Но все таки как я же писал- если я ее хочу загрузить(не знаю как выразится точнее- может определить на загрузку?) еще до выполнения проги - нахожу некий as.bmp выбираю првой кнопкой мыши открыть с помощью и свою прогу. Она запускается и запустившись уже имеет картинку.
Я не пойму как мне описать подобное действие- по идее я должен так загружать картинку процедуре в form1.create своей проги если я сделал эти вышеперечисленные действия. Но как спросить сделал ли я их и как тогда узнать имя картинки над которой провел эти действия(безобразия )))?
Да самое главное- загр=ю не при дизайнтайме!
P.s получается я перефрозировал последней пост mutabor-а - но т.е главный вопрос как это сделать?
2. Из любопытства- кто такой Шредингер? И что за пародокс?

[Alex21]

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

2. Из любопытства- кто такой Шредингер? И что за пародокс?

Кот Шредингера

[mutabor]

Слов больше нет, перехожу на код

Открыть с помощью.
На форме один имидж и одна кнопка.

var
  Form1: TForm1;
  empty: boolean = true; //да, это она :)

procedure TForm1.FormCreate(Sender: TObject);
const
  Ext: array[0..3] of string = ('.bmp','.jpg','.jpeg','.ico'); //*
var
  fn,fe: string; //filename, fileext
  i: integer;
begin
if ParamCount > 0 then
  begin 
  fn:=ParamStr(1);
  fe:=ExtractFileExt(fn);
  for i:=0 to length(Ext)-1 do
    if AnsiLowerCase(fe) = Ext[i] then
      begin
      Image1.Picture.LoadFromFile(fn);
      empty:=false;
      Break;
      end;
  if empty then ShowMessage('Не суйте в меня всякую гадость');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if empty then ShowMessage('Empty') else
ShowMessage('Not Empty');
end;

* массив Ext заполнять обязательно маленькими буквами