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

[killen]

Всем привет!

В общем нуждаюсь в помощи гуру делфи, т.к. возникли некоторые сложности с программой которая написана на 7 делфи.
В общем проблемы заключаются в следующем:
1) Изменения кнопок после наведения и нажатия. Как сделать в программе меняющиеся кнопки, на данный момент они просто немного вдавливаются, а нужно что бы при наведении была одна картинка, при нажатии другая, и когда не наведено и не нажато - третья.
2) При запуске программы одна из кнопок (настройки) залита серым цветом, а после того как программа запуститься (произойдет соединение с сервером), о картинка становится нормальной. Как это исправить?

Ко всему этому прикладываю исходник программы и вариант который нужно получить (скомпилированный).

Помогите пожалуйста решить эти проблему, буду искренне благодарен.

[mihali4]

Насчет второго вопроса - уберите с Image1 дублирующую надпись и исправьте:

procedure GFilesThread.LockFMain;
begin
  Fmain.ImgBtn1.Visible:=False;
  Fmain.ImgBtn2.Visible:=False;
  Fmain.ImgBtn5.Visible:=False;
end;

procedure GFilesThread.UNLockFMain;
begin
  Fmain.ImgBtn1.Visible:=True;
  Fmain.ImgBtn2.Visible:=True;
  Fmain.ImgBtn5.Visible:=True;
end;

Насчет первого вопроса - я уже это рассказывал, правда, найти ссылку не могу - поздно, баиньки пора...
Завтра разберемся.

[killen]

Я очень благодарен, что вы решили мне помочь.
Сделал как вы сказали, всё получилось, но заметил что все кнопки, при запуске, залиты серым цветом, сложно это заметить, но всё равно заметно, и немного не красиво, может быть знаете как это исправить?
И ещё, как убрать обводку, ту, что штрихами появляется вокруг кнопок, когда на них нажимаешь.

[mihali4]

как убрать обводку

Простой заменой всех TBitBtn на TSpeedButton...
Теперь подбираемся к смене глифов.
Сначала Enable/Disable. Просто загрузкой соответствующей картинки из файла (потом сами закинете все картинки в ресурсы и будете брать оттуда - это все неоднократно рассматривалось).
На примере ImgBtn1:

procedure GFilesThread.LockFMain;
begin
  //Fmain.ImgBtn1.Visible:=False;
  //Fmain.ImgBtn2.Visible:=False;
  //Fmain.ImgBtn5.Visible:=False;
  Fmain.ImgBtn1.Glyph.LoadFromFile(extractfilepath(paramstr(0))+'images\SDisabled.bmp');
  UnitMain.lock:=True;
end;

procedure GFilesThread.UNLockFMain;
begin
  //Fmain.ImgBtn1.Visible:=True;
  //Fmain.ImgBtn2.Visible:=True;
  //Fmain.ImgBtn5.Visible:=True;
  Fmain.ImgBtn1.Glyph.LoadFromFile(extractfilepath(paramstr(0))+'images\SEnabled.bmp');
  UnitMain.lock:=False;
end;

procedure TFMain.ImgBtn1Click(Sender: TObject);
begin
if lock then
exit;
  RunApp(USettings[0]+Usettings[7]);
  FMain.Close;
end;

[killen]

Простой заменой всех TBitBtn на TSpeedButton..

Заменил, но после этого появилась ошибка:

Error reading ImgBtn1.TabOrder: Property TabOrder does not exist.

Если проигнорировать ошибку, то вроде всё нормально, работает как надо, но хотелось бы узнать насколько опасна ошибка?

Теперь насчет глифов, написал я как Вы и сказали, но когда доходит дело до компиляции появляется ошибка:

[Error] GetFilesThr.pas(108): Undeclared identifier: 'lock'
[Warning] GetFilesThr.pas(262): Combining signed and unsigned types - widened both operands
[Fatal Error] UnitMain.pas(61): Could not compile used unit 'GetFilesThr.pas'

Дело в идентификаторе lock, я не сильно разбираюсь, но может его надо зарегистрировать сразу?

mihali4, огромное Вам челоческое спасибо, я очень благодарен что Вы помогаете мне.

[mihali4]

Да это просто флажок:

var
  FMain: TFMain;
  USettings : TStrings;
  lock: boolean;

А где возникает ошибка Error reading ImgBtn1.TabOrder ?
Я поменял ImgBtn1 на TSpeedButton и никакой ошибки не вижу...

[killen]

Блин, всё у меня криво, как не у человека, добавил то, что Вы сказали, появилась другая ошибка:

function GFilesThread.HTTPGetFile(const fileURL, FileName: string; sh_progress: boolean): boolean;

[Error] GetFilesThr.pas(112): Statement expected but 'FUNCTION' found

Вот как менял ImgBtn на TSpeedButton:
В файле UnitMain.dfm

object ImgBtn1: TSpeedButton

В файле UnitMain.pas

ImgBtn1: TSpeedButton;

[mihali4]

Не-е-е-т, так не пойдет...
Кидаем на форму SpeedButton1, удаляем ImgBtn1, переименовываем
SpeedButton1 в ImgBtn1 и пробиваем ему нужные события (они уже есть, их нужно просто переназначить).
Так... Вот ваша главная юнита со всеми корректировками на примере только ImgBtn1:
mainunit.rar

Дальше.
Вас не смущает вес файла формы ? У вас UnitMain.dfm весит больше трех мегабайт !
Обязательно переделывайте все BMP на JPG.

Загрузка изображений из ресурсов будет примерно такой:

ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('SONMOUSE'));
вместо
ImgBtn1.Glyph.LoadFromFile(extractfilepath(paramstr(0))+'images\SOnMouse.bmp');

[killen]

Эврика, у меня получилось, mihali4, огромное вам спасибо, вы меня очень выручили.
Осталось последняя вещь, как сделать что бы после нажатия на кнопку она не вдавливалась?

Насчет размера, в принципе это не так важно, но я попробовал сделать как вы написали, но появилась ошибка:

[Error] UnitMain.pas(329): Undeclared identifier: 'Canvas'
[Error] UnitMain.pas(329): Undeclared identifier: 'LoadJpegRes'

Ещё раз большое спасибо, я Вам очень благодарен.

[mihali4]

В uses добавьте jpeg. Тогда жипеги будут адекватно восприниматься.
Вот это не понял:

как сделать что бы после нажатия на кнопку она не вдавливалась

То есть, вы не хотите, чтобы кнопка (как ей и полагается) сдвигалась на пару пикселей вверх и вправо ?
Тогда вообще не используйте кнопки...
Вместо них - простые TImage.
Я рассказывал в
http://www.programmersforum.ru/showthread.php?t=17054