Board index » delphi » bmp files for TImageList

2005-11-01 03:25:37 PM
delphi89
Hi,
I need some number bmp files for Timagelist, image should be '1' to '9' or
better 'F1', 'F2', ..., any place to find those? thanks.
FrankW
 

In article <43671884$XXXX@XXXXX.COM>, FrankW writes:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
I: Integer;
procedure RenderText(const S: String; aLeft: Integer);
var
R: TRect;
begin
R:= Rect(aLeft, 0, aLeft+24, 24);
DrawText(bmp.Canvas.Handle, Pchar(S), Length(S),
R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;
begin
bmp:= TBitmap.Create;
try
bmp.Height := 24;
bmp.Width := 24 * 12;
with bmp.Canvas do begin
Brush.Color := clCream;
Brush.Style := bsSolid;
FillRect(Cliprect);
Font.Name := 'Arial';
Font.Style := [fsBold];
Font.Height := -14;
Font.Color := clBlack;
Brush.Style := bsClear;
end;
for I := 0 to 11 do
RenderText(Format('F%d',[I+1]), I*24);
Image1.Picture.Bitmap := bmp;
bmp.Savetofile('C:\temp\FKeys.bmp');
finally
bmp.Free;
end;
end;
Peter Below (TeamB)
Use the newsgroup archives :
www.mers.com/searchsite.html
www.tamaracka.com/search.htm
groups.google.com
www.prolix.be