Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

Получаем системные изображения Windows

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;

 

Добавить комментарий


Защитный код
Обновить