OpenGLApplication

Language: Oxygene, Platform: Cooper, Category: Android
https://github.com/remobjects/ElementsSamples/tree/master/Oxygene/Cooper/Android/OpenGLApplication

• org.me.openglapplication
  • References
    • android
  • Source Files
    • AboutActivity.pas
    • GLCube.pas
    • GLCubeRenderer.pas
    • GLHelp.pas
    • GLSquareRenderer.pas
    • MainActivity.pas
    • OpenGLActivity.pas
  • Other Files
    • res\values\strings.android-xml
    • res\layout\main.layout-xml
    • Properties\AndroidManifest.android-xml
    • res\drawable-hdpi\icon.png
    • res\drawable-mdpi\icon.png
    • res\drawable-ldpi\icon.png
    • res\drawable\eye.png
    • res\layout\about.layout-xml
    • res\layout\listitem_twolines.layout-xml
    • res\values\arrays.android-xml

AboutActivity.pas

namespace org.me.openglapplication;

interface

uses
  android.app,
  android.os,
  android.view,
  android.widget;

type
  AboutActivity = public class(Activity)
  public
    method onCreate(savedInstanceState: Bundle); override;
    method onTouchEvent(AnEvent: MotionEvent): Boolean; override;
  end;

implementation

method AboutActivity.onCreate(savedInstanceState: Bundle);
begin
  inherited;
  setContentView(R.layout.about);
  var Text := TextView(findViewById(R.id.aboutText));
  //Make the text respond to touch by calling the same code
  //that touching exposed parts of the activity triggers
  Text.OnTouchListener := (v, e) -> onTouchEvent(e)
end;

//If the user touches part of the activity, close this about box
method AboutActivity.onTouchEvent(AnEvent: MotionEvent): Boolean;
begin
  if AnEvent.Action = MotionEvent.ACTION_DOWN then begin
	  finish;
    exit true;
  end;
	exit false;
end;

end.