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 递归遍历 treeview树节点

Delphi windows 根据进程名结束进程的代码

Delphi获取星期函数

Delphi 不重复运行外部程序exe

Delphi 使电脑睡眠代码

Delphi tdirectory.getdirectories获取子目录及文件

Delphi 2009 indy10 idhttp get 中文出现乱码的问题

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

monthoftheyear：取得一个tdatetime变量的月份在年度中的索引

Delphi adoquery filter使用

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

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