~ubuntu-branches/ubuntu/utopic/castle-game-engine/utopic

« back to all changes in this revision

Viewing changes to src/ui/opengl/castleonscreenmenuimages.pas

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2013-04-27 18:06:40 UTC
  • Revision ID: package-import@ubuntu.com-20130427180640-eink4nmwzuivez1c
Tags: upstream-4.0.1
ImportĀ upstreamĀ versionĀ 4.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
{ -*- buffer-read-only: t -*- }
 
2
 
 
3
{ Unit automatically generated by image_to_pas tool,
 
4
  to embed images in Pascal source code.
 
5
  @exclude (Exclude this unit from PasDoc documentation.) }
 
6
unit CastleOnScreenMenuImages;
 
7
 
 
8
interface
 
9
 
 
10
uses CastleImages;
 
11
 
 
12
var
 
13
  Slider_base: TRGBImage;
 
14
 
 
15
var
 
16
  Slider_position: TRGBImage;
 
17
 
 
18
implementation
 
19
 
 
20
uses SysUtils;
 
21
 
 
22
{ Actual image data is included from another file, with a deliberately
 
23
  non-Pascal file extension ".image_data". This way ohloh.net will
 
24
  not recognize this source code as (uncommented) Pascal source code. }
 
25
{$I onscreenmenuimages.image_data}
 
26
 
 
27
initialization
 
28
  Slider_base := TRGBImage.Create(Slider_baseWidth, Slider_baseHeight);
 
29
  Move(Slider_basePixels, Slider_base.RawPixels^, SizeOf(Slider_basePixels));
 
30
  Slider_position := TRGBImage.Create(Slider_positionWidth, Slider_positionHeight);
 
31
  Move(Slider_positionPixels, Slider_position.RawPixels^, SizeOf(Slider_positionPixels));
 
32
finalization
 
33
  FreeAndNil(Slider_base);
 
34
  FreeAndNil(Slider_position);
 
35
end.
 
 
b'\\ No newline at end of file'