Leaderboard

I've found it to be helpful as well in many situations. Just this morning, I was updating an old Delphi XE program that needed to get a list of available drives and forgot what the procedure was called. Sure, I could've looked it up but Claude reminded me of GetLogicalDriveStrings much quicker. Earlier this week, I wanted to try out Claude Code on my Windows machine. I learned it required Linux and didn't work on my currently installed WSL version 1. (The web-based) Claude helped me figure out which version of WSL I had, install WSL 2, then even though it was installed, WSL 1 was still the default so it helped me change that. Then, I had to go through a similar process with nodejs and npm. I learned several new "wsl" commands and got it up and running. It would've taken me many hours hunting down forums and blog posts to put all those pieces together--I probably would've given up. It's not great at writing whole programs or untangling a huge library of code but it can sure save time in many instances.

Claude a. I. Recently I've had three opportunities to use Claude in my D12 Fmx development. 1. Needed to know how to scroll to a TListboxitem that was not visible. I had three different solutions off the net - none of which worked. Claude provided me with three different solutions, suggesting that #2 would be best for android. It worked a treat! I've been wrestling this one for a while... 2. I have about 50 color themes for this app. I needed help naming them. My wife just rolled her eyes. I uploaded a text list in the form: Theme Name 1: #Hexcolor1 #Hexcolor2 #Hexcolor3 #Hexcolor4 Theme Name 2: #Hexcolor1 #Hexcolor2 #Hexcolor3 #Hexcolor4 Claude provide a list of names almost instantly - and they were 90% spot on. (i.e. Wedgewood became Limestone Quarry) 3. I have a certain unique store/shopping type to represent, and was trying to layout a table structure for the store. I described the store and what it selling and what I needed to Claude. I got back a very long and detailed description, including the field structure and types. Anyway it saved me a lot of time.

That depends on the definition of correct.

As I never use any dark theme myself I am thankfully not affected. Nevertheless, I would rather question the decision to make clBtnFace and clWindow looking quite similar in the dark theme, while they give a perfect contrast in the light theme.

TStyleManager.ActiveStyle will never return nil. If there is no style assigned then it returns the TStyleManager.SystemStyle (the Vcl.Themes.TUxThemeStyle class). TUxThemeStyle.Enabled returns True if the Win32 uxtheme.dll is successfully loaded and your app is manifested for ComCtrl32 v6. So, this is likely why your 'else' is never triggered. TUxThemeStyle.DoGetStyleColor(scWindow) returns clBtnFace, not clWindow as you are expecting. The style colors which return clWindow are: scComboBox scComboBoxDisabled scEdit scEditDisabled scGrid scListBox scListBoxDisabled scListView scTreeView TUxThemeStyle.DoGetStyleFontColor(sfWindowTextNormal) does return clWindowText, as expected. In any case, is your Label not simply set to Transparent=True or ParentColor=True?

They are probably too busy Getting Real Help For Free With Code Reviews, Pull Requests, And Git Commits. 🤡

See here: Update: You can see what colors are returned here: function TUxThemeStyle.DoGetStyleColor(Color: TStyleColor): TColor; begin case Color of scBorder: Result := clWindowFrame; scButtonDisabled: Result := clBtnFace; scButtonFocused: Result := clBtnFace; scButtonHot: Result := clBtnFace; scButtonNormal: Result := clBtnFace; scButtonPressed: Result := clBtnFace; scCategoryButtons: Result := clBtnFace; scCategoryButtonsGradientBase: Result := $C0C0C0; scCategoryButtonsGradientEnd: Result := $F0F0F0; scCategoryPanelGroup: Result := clMedGray; scComboBox: Result := clWindow; scComboBoxDisabled: Result := clWindow; scEdit: Result := clWindow; scEditDisabled: Result := clWindow; scGrid: Result := clWindow; scGenericBackground: Result := clBtnFace; scGenericGradientEnd: Result := $C0C0C0; scGenericGradientBase: Result := $F0F0F0; scHintGradientBase: Result := clInfoBk; scHintGradientEnd: Result := clInfoBk; scListBox: Result := clWindow; scListBoxDisabled: Result := clWindow; scListView: Result := clWindow; scPanel: Result := clBtnFace; scPanelDisabled: Result := clBtnFace; scSplitter: Result := clWhite; scToolBarGradientBase: Result := $C0C0C0; scToolBarGradientEnd: Result := $F0F0F0; scTreeView: Result := clWindow; scWindow: Result := clBtnFace; else Result := clNone; end; end;