Jun 16

Ресурсы в проекте

Я всегда думал, что для того, чтобы подключить ресурсы (текст, картинки и т.д.) к проекту, надо их скомпилить (brcc32.exe) и подключить ({$R}). А вот сегодня один хороший человек (Alexeis, спасибо), подсказал, что это совсем не обязательно. Надо просто подключить к проекту (Add to Project) .rc файл, а скомпилиться и прилинкуется он сам. Проверил в D7, D2006. Вот так вот...


  1. VICTAR
     Add karma Subtract karma  +1
    Цитировать.

    Спасибо, не знал.
    Приму к сведению)

    1
  2. naum
     Add karma Subtract karma  --1
    Цитировать.

    Как подобное сделать директивами препроцессора? Раньше мне всегда казалось, что трюк с {$R ResFile.res ResFile.rc} работает, на последнем проекте (D7) оказалось что нет. Встречал также информацию, что у кого-то срабатывает.

    2
  3. Isaev
     Add karma Subtract karma  +0
    Цитировать.

    спасибо за инфу!

    3
  4. юрий
     Add karma Subtract karma  +0
    Цитировать.

    пробовал не получается
    вот код ,при запуске пишет “файл BAR не найден”
    {$R *.res}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    try
    back:= TBitmap.Create;
    back.LoadFromResourceName(HInstance,’BAR’);
    //Change size Form1
    Form1.ClientWidth:= back.Width;
    Form1.ClientHeight:= back.Height;
    ……
    end;
    procedure TForm1.FormPaint(Sender: TObject);
    begin
    Canvas.Draw(0,0,back);

    end;

    4

Поделитесь вашими мыслями



Ссылки в комментариях будут свободны от nofollow.

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong> 

Ссылки в комментариях будут свободны от nofollow.

Виртуальный сервер в Швейцарии, swiss vps стабильные сервера www.swiss-vps.ru.
-->