We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
15-
14
29 Comments
OTTOMH
If each image is the same size, then create an image that has all of the images in one strip.
Place a TImageLIst on your form and set the height and width property that each individual
image is. For example, if you have a strip that is 64 x 16 and each image
is 16 x 16, the strip contains 4 images, each of which is 16 wide and 16
tall, so set the imagelist height and width to 16.
Next include the resource file in the appropriate unit, i.e. {$R
MYIMGS.RES}
Then, in your code, Load the images in the imagelist as follows.
MyImageList.ResourceLoad(r
if MyImageList.Count=0 then
MessageDlg('Could not load My Image List',mtError,[mbOK],0);
Note: clBlue is the background color to be used for transparency purposes .
Now you have a TImageList with your images,
You can step through the imageList and display the images 1 at a time
step through the images int he list, and display them in a TImage component
for I:= 0 to ImageList.Count-1 do
begin
MyImageList.GetBitmap(I, MyImage.Picture.Bitmap)
//maybe add somedelay here using TTimer, thread, or even just the Sleep function
end;
Shane
Shane
If each image is the same size, then create an image that has all of the images in one strip.
Place a TImageLIst on your form and set the height and width property that each individual
image is. For example, if you have a strip that is 64 x 16 and each image
is 16 x 16, the strip contains 4 images, each of which is 16 wide and 16
tall, so set the imagelist height and width to 16.
Next include the resource file in the appropriate unit, i.e. {$R
MYIMGS.RES}
Then, in your code, Load the images in the imagelist as follows.
MyImageList.ResourceLoad(r
if MyImageList.Count=0 then
MessageDlg('Could not load My Image List',mtError,[mbOK],0);
Note: clBlue is the background color to be used for transparency purposes .
Now you have a TImageList with your images,
You can step through the imageList and display the images 1 at a time
step through the images int he list, and display them in a TImage component
for I:= 0 to ImageList.Count-1 do
begin
MyImageList.GetBitmap(I, MyImage.Picture.Bitmap)
//maybe add somedelay here using TTimer, thread, or even just the Sleep function
end;
Shane
Shane
Well, you never said anything about a DLL....
Anyway, they are in a resource file compiled in the DLL right?
(You already of the code to load the DLL right? OR No
If so, you can use the same code.
change
MyImageList.ResourceLoad(r
to
MyImageListResInstLoad(<HA
CLASSIMAGES is an example name of what you called your images in the Resource file
You should have one image like i described above, called CLASSIMAGES or whatever you want to call it.
Shane
Anyway, they are in a resource file compiled in the DLL right?
(You already of the code to load the DLL right? OR No
If so, you can use the same code.
change
MyImageList.ResourceLoad(r
to
MyImageListResInstLoad(<HA
CLASSIMAGES is an example name of what you called your images in the Resource file
You should have one image like i described above, called CLASSIMAGES or whatever you want to call it.
Shane
i have 33 images(bitmap) and still i cant understand u.
i do this code but no response:-
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder');
imagelist2.ResInstLoad(myd
i do this code but no response:-
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder');
imagelist2.ResInstLoad(myd
Ahhh, thats a good size image. They only way you can load the TIMageList with a ResInstLoad, is if you combine all the images into one image (in this case the size would then be 4125 X 125). IN your case, you would name it '1' and recompile the resource into your DLL.
Set your TImageList & TImage height & Widths to 125
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder')
else
imagelist2.ResInstLoad(myd
Shane
Set your TImageList & TImage height & Widths to 125
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder')
else
imagelist2.ResInstLoad(myd
Shane
WHen the ImageList loads the 1 image in using ResInstLoad, it will automatically split the picture up into its 125 X 125 parts.
Shane
Shane
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder');
imagelist2.ResInstLoad(myd
ImageList2.GetBitmap(0, Image1.Picture.Bitmap)
still no picture in image1
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder');
imagelist2.ResInstLoad(myd
ImageList2.GetBitmap(0, Image1.Picture.Bitmap)
still no picture in image1
try
var
bmp: TBitmap;
imagelist2.ResInstLoad(myd
bmp:= TBitmap.Create;
ImageList2.GetBitmap(0, bmp);
Image1.Picture.Bitmap.Assi
bmp.Free;
SHane
var
bmp: TBitmap;
imagelist2.ResInstLoad(myd
bmp:= TBitmap.Create;
ImageList2.GetBitmap(0, bmp);
Image1.Picture.Bitmap.Assi
bmp.Free;
SHane
first, make sure your imagelist is getting the image from the DLL
mydll := LoadLibrary('resdll.dll');
if mydll=0 then
raise Exception.Create('Cannont load resource library. Please check if RESONLY.DLL is in the application''s folder')
else
begin
imagelist2.ResInstLoad(myd
ShowMessage(IntToSTr(image
end;
SHane
GetInstRes loads a particular bmp from the resource file into the imagageList.
GetBitmap gets a particular bitmap from an index in the imagelist and places it in the variable
example - ImageList2.GetBitmap(0, bmp); gets the first image and assignes it to bmp
Shane
GetBitmap gets a particular bitmap from an index in the imagelist and places it in the variable
example - ImageList2.GetBitmap(0, bmp); gets the first image and assignes it to bmp
Shane
ok, if your using
imagelist2.ResInstLoad(myd
that means you have a resource file with an image in there called '1'.
Not with an ID of 1, a name called '1' (a string name)
Is this correct?
Shane
imagelist2.ResInstLoad(myd
that means you have a resource file with an image in there called '1'.
Not with an ID of 1, a name called '1' (a string name)
Is this correct?
Shane
if your app is not huge, i would entertain the thought of you zipping it up and mailing it to me and i would take a look at it for you.
you would also have to include the image and the DLL source
Shane (cladview@yahoo.com)
you would also have to include the image and the DLL source
Shane (cladview@yahoo.com)
dll source is:-
{$O+,D-,L-,M-,Y-,R-,Q-,U-}
library resDLL;
{$R myclock.res}
end.
//************************
and resourse sicript is:-
1 BITMAP 1.bmp
2 BITMAP 2.bmp
3 BITMAP 3.bmp
4 BITMAP 4.bmp
5 BITMAP 5.bmp
6 BITMAP 6.bmp
7 BITMAP 7.bmp
8 BITMAP 8.bmp
9 BITMAP 9.bmp
10 BITMAP 10.bmp
11 BITMAP 11.bmp
12 BITMAP 12.bmp
13 BITMAP 13.bmp
14 BITMAP 14.bmp
15 BITMAP 15.bmp
16 BITMAP 16.bmp
17 BITMAP 17.bmp
18 BITMAP 18.bmp
19 BITMAP 19.bmp
20 BITMAP 20.bmp
21 BITMAP 21.bmp
22 BITMAP 22.bmp
23 BITMAP 23.bmp
24 BITMAP 24.bmp
25 BITMAP 25.bmp
26 BITMAP 26.bmp
27 BITMAP 27.bmp
28 BITMAP 28.bmp
29 BITMAP 29.bmp
30 BITMAP 30.bmp
31 BITMAP 31.bmp
32 BITMAP 32.bmp
33 BITMAP 33.bmp
{$O+,D-,L-,M-,Y-,R-,Q-,U-}
library resDLL;
{$R myclock.res}
end.
//************************
and resourse sicript is:-
1 BITMAP 1.bmp
2 BITMAP 2.bmp
3 BITMAP 3.bmp
4 BITMAP 4.bmp
5 BITMAP 5.bmp
6 BITMAP 6.bmp
7 BITMAP 7.bmp
8 BITMAP 8.bmp
9 BITMAP 9.bmp
10 BITMAP 10.bmp
11 BITMAP 11.bmp
12 BITMAP 12.bmp
13 BITMAP 13.bmp
14 BITMAP 14.bmp
15 BITMAP 15.bmp
16 BITMAP 16.bmp
17 BITMAP 17.bmp
18 BITMAP 18.bmp
19 BITMAP 19.bmp
20 BITMAP 20.bmp
21 BITMAP 21.bmp
22 BITMAP 22.bmp
23 BITMAP 23.bmp
24 BITMAP 24.bmp
25 BITMAP 25.bmp
26 BITMAP 26.bmp
27 BITMAP 27.bmp
28 BITMAP 28.bmp
29 BITMAP 29.bmp
30 BITMAP 30.bmp
31 BITMAP 31.bmp
32 BITMAP 32.bmp
33 BITMAP 33.bmp
ah, check your email, i've been emailing you stuff regularly, but you haven't been responding.
SHane
SHane
Never mind, here it is:
******* MAIN CODE HERE **************
unit UntMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DLLHandle: THandle;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender
begin
DLLHandle:= LOadLibrary('AnimateImages
Image1.Picture.Bitmap.Hand
Randomize;
end;
procedure TForm1.Timer1Timer(Sender:
var
I: String;
begin
I:= intToStr(Random(4) + 1);
DLLHandle:= LOadLibrary('AnimateImages
Image1.Picture.Bitmap.Hand
end;
end.
******* DLL CODE HERE **************
library AnimateImages;
uses
SysUtils,
Classes;
{$R *.res}
{$R IMAGES.res}
begin
end.
******* MAIN CODE HERE **************
unit UntMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DLLHandle: THandle;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender
begin
DLLHandle:= LOadLibrary('AnimateImages
Image1.Picture.Bitmap.Hand
Randomize;
end;
procedure TForm1.Timer1Timer(Sender:
var
I: String;
begin
I:= intToStr(Random(4) + 1);
DLLHandle:= LOadLibrary('AnimateImages
Image1.Picture.Bitmap.Hand
end;
end.
******* DLL CODE HERE **************
library AnimateImages;
uses
SysUtils,
Classes;
{$R *.res}
{$R IMAGES.res}
begin
end.
Featured Post
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
The uses clause is one of those things that just tends to grow and grow.
Most of the time this is in the main form, as it's from this form that all others are called.
If you have a big application (including many forms),
the uses clause in the in…
Introduction
I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need.
This article will address some of the concepts when dealing with a multithreaded delphi database…
In this video, viewers will be given step by step instructions on adjusting mouse, pointer and cursor visibility in Microsoft Windows 10. The video seeks to educate those who are struggling with the new Windows 10 Graphical User Interface.
Change Cu…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month3 days, 21 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
630 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.