Title: Get Windows bitmaps
Question: Get Windows standars bitmaps
Answer:
By means of LoadBitmap, we can capture the bitmaps that Windows uses for the buttons of the scrollbars, the checkboxes, etc...
Here you have a function that assigns to a TImage one of these bitmaps:
procedure TForm1.Button1Click(Sender: TObject);
procedure AssignWindowsBMP(Destino:TImage;Cual:integer);
{
Kinds of Windows bitmaps:
OBM_BTNCORNERS
OBM_BTSIZE
OBM_CHECK
OBM_CHECKBOXES
OBM_CLOSE
OBM_COMBO
OBM_DNARROW
OBM_DNARROWD
OBM_DNARROWI
OBM_LFARROW
OBM_LFARROWD
OBM_LFARROWI
OBM_MNARROW
OBM_REDUCE
OBM_REDUCED
OBM_RESTORE
OBM_RESTORED
OBM_RGARROW
OBM_RGARROWD
OBM_RGARROWI
OBM_SIZE
OBM_UPARROW
OBM_UPARROWD
OBM_UPARROWI
OBM_ZOOM
OBM_ZOOMD
}
var
tmpBMP : TBitmap;
begin
tmpBMP:=TBitmap.Create;
try
tmpBMP.Handle:=LoadBitmap( 0,
makeintresource(Cual) );
Destino.Picture.Assign(tmpBMP);
DeleteObject(tmpBMP.Handle);
finally
tmpBMP.Free;
end;
end;
begin
AssignWindowsBMP(Image1,OBM_DNARROW);
end;