Skip to content

Instantly share code, notes, and snippets.

@michaliskambi

michaliskambi/testing_img.lpr

Created February 19, 2018 09:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaliskambi/8019874cf96bee5daeded159b6df6095 to your computer and use it in GitHub Desktop.
Save michaliskambi/8019874cf96bee5daeded159b6df6095 to your computer and use it in GitHub Desktop.
Download ZIP
Test TCastleImageControl
Raw
testing_img.lpr
uses CastleControls, CastleWindow, CastleFilesUtils, CastleColors;
var
Window: TCastleWindowCustom;
Bg: TCastleSimpleBackground;
Image: TCastleImageControl;
begin
Window := TCastleWindowCustom.Create(Application);
Window.Open;
Bg := TCastleSimpleBackground.Create(Application);
Bg.Color := Yellow;
Window.Controls.InsertFront(Bg);
Image := TCastleImageControl.Create(Application);
Image.URL := ApplicationData('Input.png');
Window.Controls.InsertFront(Image);
Application.Run;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment