Jump to content

JohnLM

Members
 View Profile  See their activity

  • Content Count

    350

  • Joined

  • Last visited

Everything posted by JohnLM

  1. JohnLM
    Hi, I take many photos with my Android phone. And now I need a way to Add some search text to the image so that I can find the photos. With a custom image viewer app I will create in conjunction with the metadata reader/writer, my search method would be to open the phone's Gallary (I don't know how to do this yet) and then enter a search word and only photos that match will show, like the way they do when you are in the Gallary app. I searched around and see references for ccr-exif but it is for Delphi VCL, not FMX/Android. Is there a Delphi unit that provides this or someplace where I can download a working project to accomplish this ? TIA.
  2. JohnLM
    I'm building a front-end gui to a dos console app. And I am utilizing the TIniFile to read/write to a settings.ini file. I need help with ideas of typical methods or algorithms for creating a rolling or recent folder location list, of say, the last 5 folder locations for a 'dos console app' that I call. The location can be the hdd, flash drive, or another laptop/tablet. The folder locations will be obtained through the FileOpenDialog, so flash drives, mem sticks, etc., could change in a given scenario. I currently have a small settings.ini file that holds just a few things at the moment, thus.. [app settings:] app path=H:\D11\VCL\Misc\enc_gui\v01\Win32\Debug\ last video src path:=J:\Tools\portable\ last video dst path:=F:\dst\ But I would like to add a recent list of last folder locations for this ini file for where the 'dos console app' will be pickd and stored so that I can extract that from the ini file and load it into a listbox and have a quick pick-list to choose from when I move from one device or folder location. I sometimes jump from my laptop to my tablet, or throw in a flash/mem drive, and having this quick picklist would work well in my work-flow. TIA.
  3. JohnLM
    @Remy Lebeau - thank you.
  4. JohnLM
    Thanks to dummzeuch for the hint he made: '..read all entries in the section [mru].' I googled and found that there is a function, ReadSectionValue() that I can call and read the values into a list. But continuing after that point I ran into some roadblocks. I need to check for duplicates and exclude them from being added back into the ini file. I eventually figured that portion out using a TStringList: { setting .sorted:=true } and { setting .duplicates:=dupIgnore }. I don't want the final list sorted, so I will have to maintain another list to keep the original unsorted list for the updated ini file. @ Remy I will look into your suggestion(s) for the remaining parts. Thanks. I will post the finished portions of how I managed it when I figure the rest out.
  5. JohnLM
    I have never worked with ini files in Delphi, so this is the first time for me to dive into it, add to that, I want to incorporate a rolling list feature that I have to control with some logic (algo).
  6. JohnLM

    Delphi 12 entry in start menu

    JohnLM replied to dummzeuch's topic in Delphi IDE and APIs

    I mainly use Windows 7, and if I launch Delphi enough times, it will show up, like it is now, for Delphi 11 on my main win7 laptop that I use daily, 24-7. My maximum app count is 15. If I start using another app a given number of times, the entry for 'Delphi 11' (it is the last one showing on the bottom of the start menu) will get bumped off and replaced with the latest commonly used app in its place.
  7. JohnLM

    Delphi 12 entry in start menu

    JohnLM replied to dummzeuch's topic in Delphi IDE and APIs

    Okay, here is the solution. . . Windows 7 -- but not sure how-to in win10 1. right-click start menu 2. select [Start Menu] 3. [ ] uncheck 'Store and display recently opened programs in the start menu' 4. done
  8. JohnLM

    Delphi 12 entry in start menu

    JohnLM replied to dummzeuch's topic in Delphi IDE and APIs

    This is not an answer solution to your issue, but I have noticed that this is typical Windows trying to help you by putting commonly used apps that the user launches, eventually go to the start menu. I do not know what the app's launch count is that will trigger adding it to the start menu. But I am sure there is a setting somewhere to turn that feature off.
  9. JohnLM

    Removing String

    JohnLM replied to robertjohns's topic in VCL

    Here is my version of a (string) removal for this practice: function StrRemove(s: string; StrToRemove:string): string; begin while pos(strToRemove,s,1) <> 0 do begin // recursive if pos(strToRemove, s,1) > 0 then delete(s,pos(strToRemove,s,1),length(strToRemove)); end; result := s; end; // call with var s: string; begin s := 'This is (string) which (string) need to (remove).'; s := StrRemove(s,'(string)'); s := StrRemove(s,'(remove)'); end;
  10. JohnLM

    Removing String

    JohnLM replied to robertjohns's topic in VCL

    Serge_G's routine works, including when multiples of, i.e., (string) .. (string) But it does not remove the extra spaces. And Trim() does not remove the spaces in-between char/strings unless the original string includes spaces at the first and last position, i.e., Trim(' This is (string) which (string) need to (remove) ') --- works Trim('This is (string) which (string) need to (remove)') --- fails So, the routine would require more work/additional code.
  11. JohnLM

    Removing String

    JohnLM replied to robertjohns's topic in VCL

    ..or here.
  12. JohnLM
    After receiving my windows activation key for my new tablet, and after it "upgraded" my windows 10, to "Windows 10 2022 Update | Version 22H2" I was no longer able to access the windows sytem settings app. It sometimes pops up as a blank blue dialogbox with the familiar gear in the center, and then closes. For instance, when I right-click the desktop, and select 'Display settings' I get this error message (after the blue dialog box with the gear pops up and closes). "This file does not have an app associated with it for performing this action. Please install an app or, if one is already installed, create an association in the Default Apps Settings page." Or, when I try to open the Settings app directly, or Windows key+I, or from any place or method of activating Settings, I get this (below) and then it closes in a second or two. The following are things I have tried, I believe are all that I have tried so far: 1. open cmd and enter - sfc /scannow 2. open cmd and enter - Dism /Online /Cleanup-Image /CheckHealth 3. open cmd and enter - Dism /Online /Cleanup-Image /ScanHealth 4. open cmd and enter - Dism /Online /Cleanup-Image /RestoreHealth 5. open powershell and enter - * PowerShell -ExecutionPolicy Unrestricted -Command "& {$manifest = (Get-AppxPackage *immersivecontrolpanel*).InstallLocation + '\AppxManifest.xml' ; Add-AppxPackage -DisableDevelopmentMode -Register $manifest}" 6. open powershell and enter - * Get-AppXPackage -AllUsers -Name windows.immersivecontrolpanel | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register “$($_.InstallLocation)\AppXManifest.xml” -Verbose} 7. open powershell and enter - * Get-AppXPackage -AllUsers | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register "$($_.InstallLocation)\AppXManifest.xml" -verbose} I've also tried a few of the registry hacks but they did not help. So now I am wondering what else can I do. Something in the 22H2 messed up the Settings's app's association. And I can't run a Settings Repair because I have to be in Settings to do that. Does anyone else have suggestions for me to try. I can create a system restore point and then try your suggestion(s). TIA
  13. JohnLM
    Update. . . re windows boot up problems is now resolved. All is back to normal. I managed to get a system Restore point from a dos prompt and am now back to the previous windows 10 22H2 state prior to my removing most of the updates. Oh well. At least I'm back up and running. I'm glad I made the choice to create a Restore point after all since I could not get Macrium to restore an image. I will have to figure that one out.
  14. JohnLM
    Update. . . on removing Windows updates via Powershell Using the following PS command to do the following: 1. wmic qfe list brief/format:table -- will show a table format view of all Updates in KBnnnnnnn, ie, KB5032005 2. wusa /uninstall /kb:5032005 -- will remove an update -- note: I follow this with a restart, but some KB's will inform you to restart I managed to remove the following KB's: (5032005, 5031988, 5011048 and (5015684=security update)) there were two more but they were not removed yet: (5031539 and 5032392) -- these were not removed due to an endless loop of restarting from the KB5015684 removal) So after performing most of the above KB's, I am now stuck (after the initial system Restart) in an endless loop of: 1. Preparing Automatic Repair startup screen 2. Diagnosing your pc 3. Blue Screen Automatic Repair -> Your PC did not start correctly -> [Restart] or [Advanced options]* * to try other options to repair your pc. So at this stage, my Chuwi Hi10 X tablet is unusable--it will not boot up into windows.
  15. JohnLM
    @ Nigel, I forgot all about that, thanks !
  16. JohnLM
    No, not yet, but I will be looking into that next after I image and create a restore point. Thanks for the link.
  17. JohnLM
    Thanks for that link. I tried almost all the selections (once created as a folder control applet on the desktop) and they work the same as in the Control Panel. And the ones that do not work in the Control Panel are the same ones that call the Settings app and close immediately. For what it is worth mentioning. . . { For quick testing of this issue, I use the step mentioned in my first post where I right-click on the desktop area and select 'Display settings'. The win+key command to bring up the change screen resolution is win+R+'ms-settings:display'. without the quotes... thus, win+R and enter ms-settings:display. (I'm sure there is a way to call those commands in a cmd dos window but I don't know the proper syntax for it. Then I would make a .bat file and easily call it during testing/debug.) 1. works in windows 10 home on my HP laptop 2. edit: does not work in windows 7 home premium on my Dell laptop -- win7 did not have this ms-xxx:xxx syntax option for bringing up windows applets. 3. does not work in windows 10 Enterprse on my Chuwi tablet }
  18. JohnLM
    It had occurred to me that I could also take out my Windows 10 Home HP laptop (model stream 14" with D11.2 and no Settings issue) and run some comparison tests while debugging the issues with the Chuwi tablet. The settings dialog box on your left is what used to come up on the tablet under win10 before the upgrade/update I performed on 11/16/23. The control panel on the right (in your image) is the one that always comes up if I use the start menu or win+r+'control panel' on HP laptop, both* come up. * Settings is what Control Panel was but enhanced, but people still call it control panel, I guess.
  19. JohnLM
    Fail... @ FPiette - in win10, the Control Panel is on the desktop. The way I determine two distinct folder locations (and file/app kind/type/etc) is to bring up the app's Properties and select [open folder location]. From there I can look at the file size, date, and so on. 1. using your suggestion to use the old 'control panel' is to press Win+R, enter 'control' and it opens the Control Panel 2. When I right-click on its icon in the Taskbar and then right-click on the menu item 'Control Panel' to pull up the Properties, the Target location points to the Desktop. 3. I get the same results when I select/click on [open file location] it opens Explorer to the desktop and points to 'Control Panel'. Note, I've also tried win+R and enter 'control.exe' and received the same results. So it appears the there is only one control panel version in win10 enterprise.
  20. JohnLM
    update... i've also tried adding a new user account. . . 1. create a restore point 2. add a new user account via CMD prompt(s): net user user2 password_xxxxx /add net localgroup administrators user2 /add 3. restart 4. log into new user2 account 5. access the Settings app, failed! I have the same situation as posted above, the Settings dialog box with the gear pops up and closes.
  21. JohnLM
    I was going to ask, how do I undo an update, but it requires the Settings app. Arh!! Settings just closes. Is there any other way to undo an Update?
  22. JohnLM
    Still researching this issue... I booted Windows into safe mode, and Settings still not loading.
  23. JohnLM
    @ fpiette - the following are the specs: Windows 10 Enterprise [10.0.19045.3693 as of 11/16/2023] Chuwi Hi10 X 10.1" / 128GB SSD / 6GB Ram / 1920x1200 pixels tablet Intel Celeron N4120 (Gemini Lake) 1.10GHz 4-cores cpu with UDH Graphics 600 BIOS: UEFI * I purchased the tablet Sept/2023, but did not open and use it until 11/11/2023. Windows ver was at 10.01.19045.3570 and during that time right up to 11/15. * Then, I activated Windows on 11/16. * And then it proceeded to upgrade to 22H2, which I believe is the final version for win10. * Shortly after that, is when I discovered that I could no longer launch the Settings app.
  24. JohnLM
    In my searches to date, I have read that this same issue is also in Windows 11 and users are suffering from this same issue. And, considering that I was affected by this on this tablet, there is a good chance that I will continue to have this issue in win11.
  25. JohnLM
    For some time I was wondering how I could create a nice output from data I have. One day I was looking at some learning video or website--I can't remember. And I saw how some easily create an output that included text and images. If I recall, he used HTML at the time, but I'm not sure since it was a long time ago. Then, today, I was looking at some items in the GetIt portion of the welcome screen. Then, moments later I decided to click on the 'getit package manager' and that's when it hit me, again, the idea of creating a custom output view similar to that. So, I was wondering if I could create something similar in Delphi with the built-in components I already have--be it HTML code (howto) or a combination of components already in Delphi, for VCL and FMX/Mobile. * This D12 getit pkg mgr snippet taking from my tablet and down-resized 1920x1200, 50% * notice the output on the right side pane area, that is the design output I am seeking to create Does anyone have any suggestions on how I can proceed in this endeavor? What are your methods? TIA
×