Форум: "WinAPI";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
ВнизРесурсы Найти похожие ветки
← →
Diamond Cat (2003-02-28 03:45) [0]как загрузить рисунок из ресурса, програма на апи и хотелось бы на окно программы загрузить рисунок из ресурса.
← →
крот (2003-02-28 05:49) [1]LoadBitmap
← →
Diamond Cat (2003-02-28 15:41) [2]шутка в том, что не грузится он с помощью loadbitmap, возвращает 0, при том что иконка из этого ресурса очень даже грузится
var
WndClassEx: TWndClassEx;
f:hbitmap;
begin
.......................
WndClassEx.hIcon := LoadIcon (hInstance, MakeIntResource ("MAINICON")); работает
.........................
f:=CreateCompatibleBitmap(getdc(hwnd),50,50);
f:=loadbitmap(hinstance,MakeIntResource("Bitmap1")); не работает
if f=0 then exit;
а главное как этот рисунок потом установить на форму?
← →
MBo (2003-02-28 15:43) [3]f:=CreateCompatibleBitmap(getdc(hwnd),50,50);
этого не надо
← →
Diamond Cat (2003-02-28 15:47) [4]всеравно F получается нулевым
← →
Игорь Шевченко (2003-02-28 16:03) [5]Внимательно читаем про смысл слова MakeIntResource :-)))))
И видим, что в качестве параметра ему передается целое число :-)
← →
Игорь Шевченко (2003-02-28 16:16) [6]И не забываем после нулевого результата вызывать функцию GetLastError и смотреть ее результат.
← →
Diamond Cat (2003-02-28 16:24) [7]2 Игорь Шевченко
да, попробовал f:=loadbitmap(hinstance,"Bitmap1"); результат тотже
← →
STATIC (2003-02-28 16:37) [8]Попробуй сделать по такому принципу:
var WndClass: TWndClass;
begin
with WndClass do
begin
{......}
hbrBackground := HBRUSH(CreatePatternBrush(LoadBitmap(SysInit.HInstance,"IDB_BKGD")));
{......}
end;
RegisterClass(WndClass);
end;
← →
Игорь Шевченко (2003-02-28 16:41) [9]Пример для загрузки:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TfMain = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
FMyBitmap : TBitmap;
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
{$R *.DFM}
{$R MyBitmap.res}
procedure TfMain.FormCreate(Sender: TObject);
begin
FMyBitmap := TBitmap.Create();
FMyBitmap.Handle := LoadBitmap(hInstance, "BITMAP1");
if FMyBitmap.Handle = 0 then
RaiseLastWin32Error();
end;
procedure TfMain.FormPaint(Sender: TObject);
begin
BitBlt(Canvas.Handle, 1, 1, FMyBitmap.Width, FMyBitmap.Height,
FMyBitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;
end.
Содержимое mybitmap.rc
BITMAP1 BITMAP "smart.bmp"
← →
STATIC (2003-02-28 22:52) [10]Хотя, HBRUSH(ююю), конечно, лишнее и, разтся, приложиться надо
← →
Diamond Cat (2003-03-01 02:28) [11]народ всем спасибо, вобщем паниковал я зря, спрашивал как загрузить рисунок на форму только потому , что сначала не проверил грузиться ли он вообще, а он гад не грузился потому что в ХР, ImageEditor не коректно сохраняет имя ресурса, (спасибо MBo, что натолкнул на эту идею) что самое интересное, иконка-то грузится, после после того как перекомпилил ресурс с помощью brcc32 все заработало. А то я уж думал ,что совсем отупел.
Еще раз спасибо всем за активное участие
← →
STATIC (2003-03-01 06:04) [12]
> Игорь Шевченко © (28.02.03 16:16)
> И не забываем после нулевого результата...
← →
Evgeny (2003-03-01 07:20) [13]>Diamond Cat
Вообще то ImageEditor, поставляемый с Delphi, это не та программа, которой следует пользоваться. А другими словами пользоваться ею крайне противопоказано.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.04.28;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c