Delphi更改Android亮度

本文整理自网络，侵删。

 
屏幕变黑时，通常无法读取读取终端上显示的条形码的应用程序。
在这种情况下，执行增加应用侧装置的亮度的方法。

使用WindowManager.Layoutparams可以控制Delphi中的亮度。

样例代码
将一个按钮放在窗体上

按下按钮以最大化亮度。
再次按下以最小化亮度。
描述该过程。（已与Nexus 5（Android 5.1.1确认））
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  Androidapi.JNI.GraphicsContentViewText, FMX.Controls.Presentation,
  FMX.StdCtrls, Androidapi.Helpers, Androidapi.Jni, Androidapi.JNI.App
  ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private 宣言 }
    jp: JWindowManager_LayoutParams;  // WindowManager.LayoutParams
    sw: Boolean;  // ?g?にスイッチ
  public
    { public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if sw then begin
   //最小化亮度
    jp.screenBrightness := TJWindowManager_LayoutParams.JavaClass.BRIGHTNESS_OVERRIDE_OFF;
    sw := False;
  end else begin
    //最大亮度
    jp.screenBrightness := TJWindowManager_LayoutParams.JavaClass.BRIGHTNESS_OVERRIDE_FULL;
    sw := True;
  end;
  //设置反射亮度
  TAndroidHelper.Activity.getWindow.setAttributes(jp);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  jp := TAndroidHelper.Activity.getWindow.getAttributes; // ?F在の?x度の状?Bを取得
  sw :=True; //初始化开关
end;

end.

 

相关阅读 >>

Delphi android下拉刷新

Delphi 显示windows断开网络驱动器对话框

Delphi tbutton.onclick 匿名函数用法

Delphi xe3里判断网络是否连接成功

Delphi 把单张图片保存到access数据库

Delphi richedit接受消息的问题

Delphi 处理图片(剪切，压缩)

Delphi 连接 ssl tls 1.2

Delphi中生成控件的两种方法

Delphi cpu窗口的扩展学习

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi更改Android亮度