July 24, 2008 07:47pm pdt

1. ciuly 35,875
2. ziolko 24,597
3. SteveBay 12,400
4. rllibby 12,250
5. TheRealL... 11,100
6. dinilud 9,664
7. BdLm 9,125
8. ThievingSix 7,700
9. Geert_Gr... 7,685
10. rfwoolf 7,376
11. MerijnB 6,339
12. kretzsch... 4,332
13. Johnjces 3,550
13. CodedK 3,550
15. dMa 3,000

1. ciuly 50,275
2. dbrunton 44,853
3. ziolko 35,347
4. whatboy 26,710
5. For-Soft 22,903
6. mlmcc 21,036
7. VGR 20,669
8. scrapdog 18,098
9. rllibby 16,250
10. dinilud 15,539
11. MerijnB 14,999
12. Hypo 14,466
13. TheRealL... 13,980
14. mokule 12,975
15. BdLm 12,875

03.26.2008 at 05:51AM PDT, ID: 23270166

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.2

create TBitMap at Run Time

Zone: Pascal Programming Language

I made a very simple class with 2 TBitmaps I want to create, delete and modify at Run time.
Once I try to create the Bmps at run time I get a run time error, but I Think my proceeding is correct...

here is the main code, calling the functions of my class
type
TMainForm = class(TForm)
.....
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }

MyStaticBMP : StaticSSCBitmap;
end;

begin
.....
MyStaticBMP.Create;

MyStaticBMP.InitBitMap; >> here is the fail !!!

the code in the unit is in the attachment

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

           
           
             StaticSSCBitmap = object
                  CS               :  StaticSSCBitMapClientServerRecord;
                  BitMap           :  TBitMap;         { BitMap File }
                  tBitMap          :  TBitMap;         { BitMap File }
                  Status           :  String;   
                  constructor Create;
                  function Init( BMPFilename : String): Boolean;
                  procedure InitBitMap;
                  procedure SetNewViewPort(LL, UR: FPoint);
                  end;
 
 
 
{ StaticSSCBitmap }
 
procedure StaticSSCBitmap.InitBitMap ;
begin
 
  BitMap:= TBitMap.Create;
 
  tBitMap:= TBitMap.Create;
 
end;
 
function StaticSSCBitmap.Init(BMPFilename: String): Boolean;
begin
   {************
    *   Load the BITMAP
    ************}
 
   if Fileexists(BMPFilename)  then
                   begin
                   BitMap.LoadFromFile(BMPFilename);
                   end
                   else
                   begin
                   result:= false;
                   exit;
                   end;
 
 
end;
 
 
procedure  StaticSSCBitmap.SetNewViewPort( LL, UR  : FPoint);
begin
   
 
 
end;
 
constructor StaticSSCBitmap.Create;
begin
     inherited;
end;

           
         

Start your free trial to view this solution

Question Stats

Zone: Programming

Question Asked By: BdLm

Solution Provided By: SteveBay

Participating Experts: 2

Solution Grade: A

Translate:

Loading Advertisement...

20080236-EE-VQP-29 / EE_QW_2_20070628