Как получить системные изображения Windows

При помощи функции LoadBitmap мы можем захватывать рисунки, которые Windows использует для кнопок полос прокрутки, переключатели и т.д. Здесь мы имеем функцию, которая назначает TImage один из точечных рисунков.

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
procedure AssignWindowsBMP(Destino:TImage;Cual:integer);
 
  {
  системные константы Windows:
  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;

—

02.09.2016

coder

Как получить системные изображения Windows

Комментарии