Плитка из картинокDelphi , Графика и Игры , ГрафикаПлитка из картинок
Оформил: DeeCo function TileImage(const FileName: TFileName; Sender: TObject): Boolean; var x, y: Integer; Bmp: TBitmap; begin if FileExists(FileName) then begin bmp := TBitmap.Create; try bmp.LoadFromFile(FileName); with (Sender as TImage) do begin for x := 0 to (Width div bmp.Width) do for y := 0 to (Height div bmp.Height) do Canvas.Draw(x * bmp.Width, y * bmp.Height, bmp); end; finally bmp.Free; end; Result := True; end else Result := False; end; procedure TForm1.Button1Click(Sender: TObject); begin if Opendialog1.Execute then TileImage(OpenDialog1.FileName, Image1); end; В статье описана функция в Delphi, позволяющая оформить изображение из картинки на панели в виде плитки, которая может быть использована для создания сложного дизайна на форме приложения. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |