Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.008 c
1-91366
Oleg1
2003-04-15 14:29
2003.04.28
Free Report 3.2


1-91336
sergio
2003-04-15 17:18
2003.04.28
общие вопросы


8-91409
stim24
2003-01-24 11:14
2003.04.28
Проблема или ГЛЮК DELPHIX


3-91160
Senator
2003-04-09 12:46
2003.04.28
запрос


1-91303
bpv
2003-04-17 15:03
2003.04.28
Создание класса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский