Fudley

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.

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.

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?

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

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

Thanks all! A wealth of knowledge here.

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?

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!

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.

Any way to assign a TSkAnimatedImage the animation in another TSkAnimatedImage? I want to switch the animation based on different conditions.

Thank you

Checked the source. Its: [TSkAnimatedImage] .Source.assign([ other TSkAnimatedImage ].source); What a wonderful set of components the Skia set are. Very well done to the author!

I made the mistake of trying to use adaptive icons. Could not get it to work. I could never find where the "Artwork Generator" put the XML files. I'm not even sure it created them. And without the XML files, no adaptive icons. However, now I can't turn off "Use adaptive icon". I can uncheck it, but it will not save as there are still (errant) entries in the Foreground, Background and Monochrome entries, and I cannot delete the entries. I would just like to go back to the legacy launcher and get rid of these adaptive entries. Can I edit some file manually to get rid of them? Please advise.

I've ignored the History Manager so far (not on purpose, just time constraints), but I think its time I took a weekend to learn the IDE better. Say do I remember you from the Clipper days?

Had to use Astrogrep to search for all instances of "adaptive" and edit them manually, taking out the ones pointing to an XML resource. Some helpful pages: From an SVG file this will create a Vector Drawable (run from chrome) https://shapeshifter.design/ This had some good info on using Android Studio to create new vector assets https://shorturl.at/QYuVs Some really good information here reagding deployment, and information on manually creating the various " ic_*.xml files, and also how to manually add the path of an SVG file directly to the XML file. https://shorturl.at/6XaOp Another place to convert a vector into a drawable: https://svg2vector.com/ This converts between DP aand pixels: http://labs.rampinteractive.co.uk/android_dp_px_calculator/ Hope this helps.

Got it figured out but man, that's convoluted.

Delphi 12. Project was working earlier today. Don't know what changed, but now, for instance, if I put a button on a form it doesn't show up. If I put a showmessage at various points like formactivate - nothing happened. Did a system restore (windows 11) to yesterday - same problem. Any ideas?

That's a good point. I need to look at the DFM.

Is there any way to make a TListViewItem wordwrap? (Delphi 11, FMX, Android)