Fudley

Update : it took an agressive uninstall and manual uninstall and reinstall of delphi, but I'm happy to report I'm back in the saddle. 🤠🏇

Tried the reinstall route. Ended up no longer registered to use Delphi! 😂. Can't make this stuff up... I bought a fairly pricey professional license bought about 6 months ago, but now can't run delphi at all (i try but am told "nope" by a harsh little screen) Maybe they have a support phone number i can call Monday. . Anyways, not your problem. Thanks so much for all the suggestions. This is a very helpful group.

I've attached a screenshot. I started up Delphi 12 and alI I get is a top bar 103 pixels tall. And nothing I do can restore it to its original size. I use GExperts, CnPack and MMX.

Dave - the inline method worked great thanks!

Thanks Dave, Remy! Here's my reproducible (at least for me) example: unit testlistboxerror1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.ListBox; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Tap(Sender: TObject; const Point: TPointF); procedure NoEventSetListBoxIndex (aListBox : TCustomListBox; aValue : integer); private public end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.NoEventSetListBoxIndex (aListBox : TCustomListBox; aValue : integer); var eItemClickEvent: TItemClickEvent ; // also tried TCustomListBox.TItemClickEvent, same {<--[DCC Error] testlistboxerror1.pas(31): E2003 Undeclared identifier: 'TItemClickEvent ' } eGestureEvent : TGestureEvent; eTapEvent : TTapEvent; begin eItemClickEvent := aListBox.OnClick ; eGestureEvent := aListBox.OnGesture; eTapEvent := aListBox.OnTap; aListBox.OnClick := nil; aListBox.OnGesture := nil; aListBox.OnTap := nil; aListBox.Itemindex := aValue; aListBox.OnClick := eItemClickEvent ; aListBox.OnGesture := eGestureEvent; aListBox.OnTap := eTapEvent; end; procedure TForm1.Button1Tap(Sender: TObject; const Point: TPointF); begin NoEventSetListBoxIndex(ListBox1, 5); end; end.

In this case, FMX.Listbox is definately in the uses clause

Thanks. But still undeclared identifier TCustomListBox.TItemClickEvent

Trying to reference the events for a TListBox in order to save and restore them. This is so I can make changes to the listbox without triggering the events, then restore the events. However I'm having trouble with FMX.ListBox.TCustomListBox.OnItemClick as Delphi suggests that TItemClickEvent is an undeclared identifier. Thoughts?

Thanks all! A wealth of knowledge here.

Is there any way to use the structure view to cause a tab on a ttabcontrol to become the active tab? Thank you

That's pretty much the question. Any way to show the user a list of fonts they have on the device, and apply it to something in your app?

Thanks for this! My issue was some confusion with the various functions expecting colors in the 0..1 range and I was using 0..360. All sorted now, but I'm going to go read that reference material.

Had that problem too - your solution worked

Yes that's the first part. But that just gives you the same color in hsl. I need to be able to then find the complementary and triadic colors of this color.

Are there functions in Delphi to return complementary or triadic colors from a Talphacolor? I'm not even concerned about the alpha, so functions for Tcolor would work. As always, thanks in advance!