View Single Post
  #820  
Old 12-06-2024, 13:32
Fak Eid Fak Eid is offline
Registered User
 
Join Date: Jun 2023
Location: Mars
Posts: 147
Thanks: 97
Thanked 150 Times in 54 Posts
Fak Eid is on a distinguished road
Abilities of FColorButton / Completely new type of Button

Right now in order to create the image I have to do an alternate like:
SettingsBtn: array[1..4] of FRectangle;
SettingsBtnIcon: array[1..4] of FText;
SettingsBtnLabel: array[1..4] of FText;

Code:
  SettingsBtn[1].FCreate(SettingsRect[1].Handle);
  SettingsBtn[1].FillColor(HTMLColorStrToFMXColor('#3d434f'));
  SettingsBtn[1].SetBounds(0, 120, 190, 40);
  SettingsBtn[1].Opacity(0.8);
  SettingsBtn[1].OnMouseEnter(@CommonMouseEnter);
  SettingsBtn[1].OnMouseLeave(@CommonMouseLeave);
  SettingsBtn[1].OnClick(@CommonClick);

  SettingsBtnIcon[1].FCreate(SettingsBtn[1].Handle);
  SettingsBtnIcon[1].Text(#57793);
  SettingsBtnIcon[1].SetBounds(0, 0, 80, 40);
  SettingsBtnIcon[1].FontSetting('Segoe UI Symbol', 18, {#SelectedFontColor});
  SettingsBtnIcon[1].HitTest(False);

  SettingsBtnLabel[2].FCreate(SettingsBtn[1].Handle);
  SettingsBtnLabel[2].Text('Directory');
  SettingsBtnLabel[2].SetBounds(60, 0, 190, 40);
  SettingsBtnLabel[2].FontSetting('{#FontName}', 16, {#SelectedFontColor});
  SettingsBtnLabel[2].TextSetting(false, txLeading, txCenter);
  SettingsBtnLabel[2].HitTest(False);
I even did an alternative using a combo of FColorButton and FCombineText, but it is not working as FCombineText doesn't have HitTest method.

Can someone suggest me any other alternative to achieve this with simple and less code. Does anyone think it is a good feature to implement? If not, I'll continue with the same code combo I was using.
procedure SetLB1Position(const X, Y: Single);
procedure SetLB2Position(const X, Y: Single);

Issue with FLabel: No Event Listeners of FLabel is responding. Edit: Fixed with HitTest(True); Thanks to audiofeel
Issue with FCombineText: No Event Listeners (getObject1, getObject2) are responding.
Enhancement on FVideoPlayer: Support for .mp4 file extension
Enhancement on FDiskList: I'd still like to see the Blue Covering Box, when set BackVisible(False). In this scenario, I'm unable to see the selected Disk. Edit : Also add, GetLB1Text. If user makes directory update to FEdit, I need to select the disk, the user has input as text. Also, display Disk Name if it exist. If not, show 'Logical Disk'
Attached Images
File Type: jpg Screenshot 2024-06-13 015540__.jpg (7.8 KB, 90 views)
File Type: jpg Screenshot 2024-06-13 135518.jpg (10.4 KB, 82 views)

Last edited by Fak Eid; 20-06-2024 at 07:48.
Reply With Quote