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

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

Аватара для Rikill

Старожил


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

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


insombia, ну это же чисто справка ну или гномовский сайтец
Код: Выделить весь код
 
 var 
 MyImage: TBitmapImage; 
  
 procedure InitializeWizard; 
 begin 
 ExtractTemporaryFile('myimage.bmp'); 
 MyImage := TBitmapImage.Create(WizardForm); 
 With MyImage do 
 begin 
   Top:=100; // сколько пикселей от правого края
   Left:=330; // сколько пикселей от левого края
   Width:=100; // ширина и 
   Height:=30; // высота рисунка 
   Parent:=WizardForm.SelectDirPage; // требуемая страничка 
   Bitmap.LoadFromFile(ExpandConstant('{tmp}\myimage.bmp')); 
 end; 
 end;
полосы это bevel'ы

-------
"Око за око приведёт к слепоте мира"- Ганди

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:41, 03-10-2011 | #3354