1
{ -*- buffer-read-only: t -*- }
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;
13
Slider_base: TRGBImage;
16
Slider_position: TRGBImage;
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}
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));
33
FreeAndNil(Slider_base);
34
FreeAndNil(Slider_position);
b'\\ No newline at end of file'