Событие OnMouseMove, Компонент Image Опции

[volvo]

Нет, как раз GetCurrentDir вернет текущую папку (странно правда?) и программа будет работать ровно до того момента, как она захочет воспользоваться функциями, которые в качестве эффекта (основного или побочного) эту папку меняют.

А может и с самого начала не сработать (если проект был открыт в IDE, но до его запуска средствами Windows или самой системой было произведено действие, которое меняет текущую папку).

Добавлено через 2 мин.

Тогда что мне делать?

Я тебе написал, что делать... Ориентироваться на каталог, в котором расположен EXE, а не на какую-то мифическую "текущую директорию". Ты ответы-то читай, а то больше ответов может и не быть совсем. Кому на фиг интересно отвечать, когда то, что пишешь уходит "в пустоту"?

[Cheburashka]

Причем тут вообще изменение текущей папки?

[Client]

указывай полный путь к файлам и все.
P.S. спасибо, volvo

Сообщение отредактировано: Client - 6.06.2010 14:43

[Cheburashka]

  pics:array[1..2] of string=('D:\Pr\1.jpeg', 'D:\Pr\2.jpg');

Как-то странно, одну картинку запрашивает с *.jpeg, а другую *.jpg
Но полный путь писать не обзяательно...
Теперь все работает. Спасибо.

Сообщение отредактировано: Сергей Меркурьев - 6.06.2010 14:59

[TarasBer]

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[1]);
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[2]);
end;

А зачем каждый раз винт теребить?

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  image1.Picture := Buf1.Picture;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  image1.Picture := Buf2.Picture;
end;

Buf1 и Buf2 - невидимые компоненты типа TImage с заранее загруженными картинками.

[Client]

хм, у автора темы вроде как нету этих обработчиков... да еще если картинок много, то что, придется форму TImage'ами заполянять и скрывать?

Сообщение отредактировано: Client - 7.06.2010 18:39

[TarasBer]

> да еще если картинок много, то что

Ну тогда создавать их при старте программы, и там же и грузить картинки. Только один раз, при старте.

[Cheburashka]

Unconneсted, Вы писали следующее:

var
  Form1: TForm1;
  pics:array[1..piccount] of string=('pictures\1.jpg','pictures\2.jpg');

implementation

{$R *.dfm}

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[1]);
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[2]);
end;

end.

я делаю в принципе тоже самое:

  NameS[1] := 'Pictures/1.bmp';
  NameS[2] := 'Pictures/2.bmp';
  NameS[3] := 'Pictures/3.bmp';
  Sprite.LoadFromFile(NameS[1]); 

Изображения находятся в папке Pictures вместе с проектом. Выполняю на лазарусе, и выдает ошибку External: SIGSEGV. Помогите пожалуйста (срочно) как это исправить?
Загружаю формат *.bmp

Сообщение отредактировано: Сергей Меркурьев - 2.10.2010 12:52

[volvo]

NameS как описано? Sprite - это что? Если Timage - значит, нужно

Sprite.Picture.LoadFromFile(NameS[1]);

(это работает, только что проверил в Лазарусе)

[Cheburashka]

Sprite - TBitMap
NameS : array [1..3] of string;
Вот с ним у меня и проблемы возникают) Загружать Picture не получается

Сообщение отредактировано: Сергей Меркурьев - 2.10.2010 18:25

[volvo]

Sprite - TBitMap

Стоп. Тогда вопрос - в другом. TBitmap не присутствует на палитре компонентов. Его надо создавать вручную. Ты это делаешь? Как именно? Дальше, а собственно ГДЕ именно (вот меня интересует, при каком событии) ты делаешь подгрузку изображения в TBitmap (тот самый LoadFromFile)? У TBitmap-а НЕТ событий OnMouseEnter/OnMouseLeave. Создал? Как именно? Так что ты либо показывай проект как положено, либо обращайся к гадалкам. Больше на подобные вопросы я отвечать не буду. Никто не должен из тебя клещами вытягивать информацию. Это нужно ТОЛЬКО тебе, описать проблему так, чтобы не надо было переспрашивать.

P.S. (Показать/Скрыть)

Все такие умные, если что-то не работает - это сразу либо ОС кривая, либо компилятор плохой, либо еще что, главное - что ошибка ДРУГИХ. Радиус кривизны СВОИХ рук измерять не пробовали?

[Cheburashka]

Извините, что сразу не дал полную процедуру... Просто я сначала создал проект... написал тут... в итоге мне тот проект стал не нужен я его удалил. Но вопрос всё равно остается в силе. Сейчас постараюсь воспроизвести:
Я создаю вручную битовую матрицу:
Sprite := TBitMap.Create;
Вызываю я процедуру OnClick кнопки, после чего происходит загрузка всех изображений. Что-то еще я сказать не могу. Далее я просто забиваю массив именами, и пытаюсь загрузить одну из БМ. Ошибка как раз таки выдается на строке загрузки изображения из файла (папка со всеми изображениями присутствовала).