Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для ZVSRus

Старожил


Сообщения: 292
Благодарности: 90

Профиль | Отправить PM | Цитировать


Задаю вопрос 2 раз опытным пользователям.

Как в данном куске скрипта вместо .bmp картинки, прописать каратинки .gif или .png
botva2.iss, botva2.dll, b2p.dll в скрипте прикручены.
Если можно реальный пример.

Скрипт
Код: Выделить весь код
procedure LangClick(Sender: TObject);                                
 begin                                                               
  case TNewRadioButton(Sender) of                                    
   LangRus:                                                          
   begin                                                             
   FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\rus.bmp'));   
   FlagImage.Width := ScaleX(69);                                    
   FlagImage.Height := ScaleY(44);                                           
   FlagImage.Left := ScaleX(60);                                     
   FlagImage.Top := ScaleY(14);                                      
   end;                                                                          
   LangEng:                                                          
   begin                                                             
   FlagImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\eng.bmp'));           
   FlagImage.Width := ScaleX(69);                                    
   FlagImage.Height := ScaleY(44);                                   
   FlagImage.Left := ScaleX(60);                                     
   FlagImage.Top := ScaleY(14);                                      
  end;                                                               
 end;

Отправлено: 12:13, 11-01-2016 | #1221