View Issue Details

IDProjectCategoryView StatusLast Update
0001532JEDI VCL00 JVCL Componentspublic2004-03-25 17:40
ReporterDierkAssigned Touser72 
PrioritynormalSeverityblockReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001532: Unit JvXPButtons strange images.draw command......
DescriptionWhat is this? Do I have the right source???
Is this differently in Delphi5 ?

Images.Draw(Canvas, (Width - Images.Width) div 2 + Integer(Shifted), (Height - Images.Height) div 2 +
        Integer(Shifted), ImageIndex, dsTransparent, itImage, Enabled);

The command I know is somthing like that:
TImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean=True);

Regards
Dierk
TagsNo tags attached.

Activities

user72

2004-03-25 17:40

  ~0003474

It should be:

Images.Draw(Canvas, (Width - Images.Width) div 2 + Integer(Shifted), (Height - Images.Height) div 2 +
        Integer(Shifted), ImageIndex, {$IFDEF COMPILER6_UP}dsTransparent, itImage, {$ENDIF} Enabled);

to work with Delphi 5.

Already fixed in CVS

Issue History

Date Modified Username Field Change
2004-03-25 01:26 Dierk New Issue
2004-03-25 17:40 user72 Status new => resolved
2004-03-25 17:40 user72 Resolution open => fixed
2004-03-25 17:40 user72 Assigned To => user72
2004-03-25 17:40 user72 Note Added: 0003474