Code: Alles auswählen
Bmp := TBitmap.Create;
try
Bmp.LoadFromResourceName(hInstance, bmSortAsc);
FSortIndicators := TImageList.CreateSize(Bmp.Width, Bmp.Height);
FSortIndicators.RegisterResolutions([10, 12, 16]);
Idx := FSortIndicators.AddMasked(Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortAsc+'12');
FSortIndicators.InsertMasked(Idx, Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortAsc+'16');
FSortIndicators.InsertMasked(Idx, Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortDesc);
Idx := FSortIndicators.AddMasked(Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortDesc+'12');
FSortIndicators.InsertMasked(Idx, Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortDesc+'16');
FSortIndicators.InsertMasked(Idx, Bmp, clFuchsia);
finally
Bmp.Free;
end;
FSortIndicators.BkColor := FixedColor;
Code: Alles auswählen
Bmp := TBitmap.Create;
try
Bmp.LoadFromResourceName(hInstance, bmSortAsc);
FSortIndicators := TImageList.CreateSize(Bmp.Width, Bmp.Height);
FSortIndicators.RegisterResolutions([10, 12, 16]);
Idx := FSortIndicators.AddMasked(Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortAsc+'12');
FSortIndicators.Replace(Idx, Bmp, nil, False);
Bmp.LoadFromResourceName(hInstance, bmSortAsc+'16');
FSortIndicators.Replace(Idx, Bmp, nil, False);
Bmp.LoadFromResourceName(hInstance, bmSortDesc);
Idx := FSortIndicators.AddMasked(Bmp, clFuchsia);
Bmp.LoadFromResourceName(hInstance, bmSortDesc+'12');
FSortIndicators.Replace(Idx, Bmp, nil, False);
Bmp.LoadFromResourceName(hInstance, bmSortDesc+'16');
FSortIndicators.Replace(Idx, Bmp, nil, False);
finally
Bmp.Free;
end;
FSortIndicators.BkColor := FixedColor;
Code: Alles auswählen
var ImgRes: TScaledImageListResolution;
//...
with FSortIndicators do
ImgRes := ResolutionForPPI[Width, Font.PixelsPerInch, GetCanvasScaleFactor];
//...
ImgRes.Draw(Canvas, Pt.X, Pt.Y, Integer(not FSortAsc));