CUR ---> BMP
Falk0ner, вс, 06/07/2008 - 15:35.
procedure TForm1.Button1Click(Sender: TObject);
var
hCursor: LongInt;
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := 32;
Bitmap.Height := 32;
hCursor := LoadCursorFromFile('test.cur');
DrawIcon(Bitmap.Canvas.Handle, 0, 0, hCursor);
Bitmap.SaveToFile('test.bmp');
Bitmap.Free;
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
var
hCursor: LongInt;
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := 32;
Bitmap.Height := 32;
hCursor := LoadCursorFromFile('test.cur');
DrawIcon(Bitmap.Canvas.Handle, 0, 0, hCursor);
Bitmap.SaveToFile('test.bmp');
Bitmap.Free;
end;
Отправить комментарий