Корректировка программы и создание изменяющихся кнопок

[mihali4]

Вот как у меня, если через Image Editor
sshot-1.png

[killen]

Михалыч, мне конечно дико неудобно просить вас об этом, но не могли ли вы посмотреть что у меня не так с программой? Я её прикрепил к посту.
И если вам не сложно, посмотрите что у меня с программой, если формат картинки картинку (Image1) сменить с TBitmap на TJPEGImage, то она становиться невидимой.
Заранее вам спасибо.

[mihali4]

Нет, вы явно перетрудились...

procedure TFMain.ImgBtn4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('CLOSEPR'));
end;

procedure TFMain.ImgBtn4WindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
if im1<>0 then
begin
ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('CLOSE'));
im1:=0;
end;
end;
CM_MOUSEENTER:
begin
if lock then
exit;
if im1<>1 then
begin
ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('CLOSEOM'));
im1:=1;
end;
end;
end;
OldImgBtn1WindowProc(Msg);
end;

И так - во всех процедурах. Везде идут попытки замены картинки в ImgBtn1...
Еще - if im1<>1 then
Этот флажок должен быть персональным для каждой картинки. То есть im1 для ImgBtn1, im2 для ImgBtn2...
Он используется для того, чтобы избегать повторной подгрузки ресурса.
А чтобы избавиться от ошибки из 20-го поста, нужно просто очистить все картинки (свойство Picture в инспекторе объектов)...

З.Ы. И поменяйте фоновую картинку на back.jpg - вес формы сразу упадет с 3-х мегабайт до 184 кил...

если формат картинки картинку (Image1) сменить с TBitmap на TJPEGImage, то она становиться невидимой

Это у вас в процедуре создания формы - // Наводим красивость на форму
Вы там что-то перемудрили.
Я этот кусок вместе с регионами закомментировал - и все нормально видно.

[killen]

Михалыч, был бы вам очень признателен, если бы вы выложили уже исправленную программку, а то у меня опять ничего не выходит: картинки не грузятся, форма не меняется.
Простите уж вы меня за такую наглость, но очень надо добить это дело до конца. Спасибо за понимание.

[mihali4]

Вот ваша главная форма:
UnitMain.rar
Но с вашими "красивостями" я не разбирался, а просто закомментировал.

З.Ы. Мои замечания по поводу "im1 для ImgBtn1, im2 для ImgBtn2..." остаются в силе - я их не исправлял.
И в procedure TFMain.FormCreate(Sender: TObject); добавьте в самом начале:

im1:=2;
im2:=im1;
im3:=im1;
im4:=im1;
im5:=im1;

[killen]

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

[killen]

Добавил:

procedure TFMain.FormCreate(Sender: TObject);
var
  im1:=2;
  im2:=im1;
  im3:=im1;
  im4:=im1;
  im5:=im1;
  regn, tmpRegn, x, y: integer;
  nullClr: TColor;
  s_load: bool;
  Settings: TInifile;

Но появилась ошибка:

[Error] UnitMain.pas(172): ',' or ':' expected but ':=' found

А насчет im2... я сделал так:

  im1: integer;
  im2: integer;
  im3: integer;
  im4: integer;
  im5: integer;

И соответственно в процедурах в каждой кнопке заменю на соответствующий im это будит правильно?

[mihali4]

И соответственно в процедурах в каждой кнопке заменю на соответствующий im это будит правильно?

Да.

А зачем же

  im1:=2;
  im2:=im1;
  im3:=im1;
  im4:=im1;
  im5:=im1;

вы в объявление переменных засунули ?
Это же установка начальных значений... после первого бегина...

[killen]

Еврика, всё получилось, Михалыч, вы не представляете как я вам благодарен за помощь, огромное спасибо, вы очень мне помогли.