LAMW - How to change color (jsToolbar with jMenu)
lazarus / 43-Android

----------------------------------------------------------------------
Agmcz · 2022-04-01 01:34

Hello all

How to change list color from black to white 
attached screenshot for more clarification...

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {hint:
Pascal files location: ...\AppLAMWProject2\jni }unit unit1; {$mode
delphi} interface uses  {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads, 
{$ENDIF}{$ENDIF}  Classes, SysUtils, AndroidWidget, stoolbar, And_jni,
menu;  type   { TAndroidModule1 }   TAndroidModule1 = class(jForm)   
jMenu1: jMenu;    Toolbar1: jsToolbar;    procedure
AndroidModule1CreateOptionMenu(Sender: TObject; jObjMenu: jObject    
);  private    {private declarations}  public    {public
declarations}  end; var  AndroidModule1:
TAndroidModule1; implementation  {$R *.lfm}   { TAndroidModule1
} procedure TAndroidModule1.AndroidModule1CreateOptionMenu(Sender:
TObject;  jObjMenu: jObject);var  i: Integer;begin 
jMenu1.AddItem(jObjMenu, 101, 'Help', 'ic_help' , mitDefault,  
misIfRoom);  for i := 0 to jMenu1.Options.Count -1 do  begin   
jMenu1.AddItem(jObjMenu, i+102, jMenu1.Options[i],
jMenu1.IconIdentifiers[i] , mitDefault,   misNever);  end;end; end.

----------------------------------------------------------------------
Agmcz · 2022-04-01 12:07

I also tried without using jsToolbar,
But there is an overlap between icon and title
also event home onclick!!

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {hint:
Pascal files location: ...\AppLAMWProject2\jni }unit unit1; {$mode
delphi} interface uses  {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads, 
{$ENDIF}{$ENDIF}  Classes, SysUtils, AndroidWidget, And_jni, menu; 
type   { TAndroidModule1 }   TAndroidModule1 = class(jForm)    jMenu1:
jMenu;    procedure AndroidModule1CreateOptionMenu(Sender: TObject;
jObjMenu: jObject      );    procedure AndroidModule1JNIPrompt(Sender:
TObject);  private    {private declarations}  public    {public
declarations}  end; var  AndroidModule1:
TAndroidModule1; implementation  {$R *.lfm}   { TAndroidModule1
} procedure TAndroidModule1.AndroidModule1CreateOptionMenu(Sender:
TObject;  jObjMenu: jObject);var  i: Integer;begin 
jMenu1.AddItem(jObjMenu, 101, 'Help', 'ic_help' , mitDefault,  
misIfRoom);  for i := 0 to jMenu1.Options.Count -1 do  begin   
jMenu1.AddItem(jObjMenu, i+102, jMenu1.Options[i],
jMenu1.IconIdentifiers[i] , mitDefault,   misNever); 
end;end; procedure TAndroidModule1.AndroidModule1JNIPrompt(Sender:
TObject);begin  Self.SetIconActionBar('ic_menu'); 
Self.SetActionBarColor(colbrBlack);  SetTitleActionBar('Test App'); 
Self.SetTabNavigationModeActionBar;end; end.