Jump to content

Pat Foley

Members
  • Content Count

    437
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Pat Foley

  1. This shows way mentioned to extend for..loop functionality. procedure TForm19.Button1Click(Sender: TObject); var needsProcessed, startProcess: integer; LList: TList<integer>; s,r: string; begin LList := TList<integer>.Create; try LList.AddRange([0,1,2,3,4,5]); needsProcessed := LList.Count; //process everything first time. Repeat startProcess := LList.Count - Needsprocessed; needsProcessed := 0; for var ii := startProcess to pred(LList.count) do begin // ^ LList.Last would increase here! if ((LList.List[ii] mod 2) = 0) then begin inc(needsProcessed); r := ' even '; with LList do add(Last + 1); end else r := ' odd '; s := s + LList.List[ii].ToString + r + #13#10; end; until (LList.count > 150) or (needsProcessed = 0); showMessage(s); finally LList.Free; end; end;
  2. Most people consider this a feature. Append list elsewhere; Keep track of List count and start count at a lastProcessed count to reduce processing.
  3. So on Cobol window only the edit fields can be focused? That is using the tab key to move to each control in window allowing editing in edit field or a key press with enter key. What event is called when pop up calendar Date is set? How is the initial Date set in pop up when opened. You could let the user save the popup position in a inifile. This inifile could load a button for each cobol field update event. It could save the last date(s) entered to set calendar date if needed.
  4. I have switched to reading the header line of the data table coming in. So if data table has five fields the reads five fields. A data table with six fields reads the six 'names' through iteration. Controls are named and labeled with these 'names'. Hard coding enums for each column required rework as extra data table fields are added. How does your report handle datetime and time period if I may ask?
  5. Try overloading to extend your codebase. Or explore it in this case //existing procedure SaveProjectNames(aProjNames: TProjectNames); overload; begin xProjectNames := aProjNames; end; //add procedure SaveProjectNames(aitems: TStrings); overload; begin ... for switches in Atems SaveProjectNames(switches[0],switches[1], False); end; // this overload wants three args need to set the extra args to False in existing procedure SaveProjectNames(abMain, abXXX, abCountry: Strings); overload; begin If abMain = 'C' do stuff If ... //If abCountry end; force the compiler to use new procedures with fixed number of Args ie comment out original to find the aberrant code or missing switches. You would add an overloaded procedure when argument count needs change. (* procedure SaveProjectNames(aProjNames: TProjectNames); overload; begin xProjectNames := aProjNames; end; *)
  6. Pat Foley

    Need suggestion on developing a custom component

    I would use Vcl.Samples.Gauges for a start. Set some of these in a form setting TGaugeKind = (.. gkHorizontalBar Use the form mouse down events to resize the gauges by dragging. Then convert the form into a component by editing the forms dfm file. Be sure to add/set the parent. This scheme allows the control to load its controls in runtime but not in the IDE.
  7. Pat Foley

    Caching oddity

    I suspect it might be OLE for files at work! In short leaving everything on disk, reading only what's needed. How to share the "loaded" or streamed file is a good question. https://en.wikipedia.org/wiki/COM_Structured_Storage
  8. Pat Foley

    Binary size, how-to make it smaller?

    That can save 400K For big savings remove Classes 1.5 M and SysUtils .2 M from the uses clause for a smaller lib.
  9. Pat Foley

    Two Lists synchronised movement

    How about using buffer items in second--These would be blank or ad space :)--but stay at 30 for height unless there is a way to insert a 15 height buffer first to center second items displays. TWinStatus = (WSallin,WSsecondround..WSoverallwinner) TTeam = record name: string; Lastwin: TwinStatus end; Teams, Opposers, Winners: Tlist; end; Teams: tlist; //build the controls.items at runtime // round := WSallin; //add half height dummy to second list if possible with Teams do begin if TTteam(items[ii]).Lastwin := round then add to listbox1.items if TTteam(items[ii]).Lastwin := TwinStatus(round + 1) then begin add to listbox2.items add dummy to listbox2.items end; end;
  10. type TJobflag = (jfstart, jfAdd, jfLoaded, jfDone); Tcompareflag = (cfCaps, cfDupes); Jobs = set of TJobflag; Compares = set of Tcompareflag; function AddItems2(const aArray: array of string; var aList: TStrings; aCompareSet: Compares) : TJobflag; var jobSpecification: Tcompareflag; S: string; RC: Boolean; begin result := jfDone; RC := False; for S in aArray do begin for jobSpecification in aCompareSet do begin RC := (jobSpecification = cfCaps) // and // compare S for Caps; RC := RC or (jobSpecification = cfDupes) //and dupes found If RC then begin if not assigned(aList) then aList := TStringList.create aList.add(S); end; end; result := jfLoaded; end; end; try if AddItems2(['Hello', 'World'],lst, [cfCaps]) = jfLoaded then Writeln('True') else Writeln('False'); if lst <> nil then Writeln(lst.Text); finally { uncommenting this will raise an invalid pointer exception later } // lst.Free; end; Or procedure loadLists aList := TStringList.create result := jfDone; for S in aArray do begin for jobSpecification in aCompareSet do begin RC := (jobSpecification = cfCaps // and // compare S for Caps; RC := RC or (jobSpecification = cfDupes) //and dupes found If RC then aList.add(S); If RC then jobStatus := jfLoaded; end; end; end; // future Procedure processLists Abover my spin on it use enums to determine status testing for list = nil does not tell if list need was ever tested.
  11. Pat Foley

    Fail faster than calling Connected := True?

    Here's a book to read for 10.4 If Marco took the time to write it. We should take to time read it or at least read the stuff about connection and event and wrapping connect with try..finally. Also I would look for Cary Jensen He has books and videos about client data sets that may help your app.
  12. Pat Foley

    10.4.2 IDE crashes on start

    I find that loading extra copy of 10.4 prevents the disappearing act. It prevents recompiling packages though. My vcl custom components when installed show only the non-visual components on the palette when making fmx application. But after making a fmx app switching to vcl app then a message box may appear stating that my components refer to Teechartxxx. Here's output of a component that runs in IDE as well as runtime. Using this in an app with timer.interval at 10 shows more stuff. // win32 works // in create of custom component if (csDesigning in ComponentState) then ticker.Enabled := true; //Tip by Delphian | 2014-08-13 at 17:05 function GetTitleOfActiveWindow: string; var AHandle: THandle; ATitle: string; ALen: Integer; begin Result := ''; AHandle := GetForegroundWindow; if AHandle <> 0 then begin ALen := GetWindowTextLength(AHandle) + 1; SetLength(ATitle, ALen); GetWindowText(AHandle, PChar(ATitle), ALen); result := Trim(ATitle); end; end; procedure TForm1.Timer1Timer(Sender: TObject); var awn: HWND; buf: array[0..1024] of Char; lng: longint; WinInstance: Thandle; WinModuleName: string; begin SetLength(WinModuleName,251); WinInstance := GetWindowLong(GetForegroundWindow(), GWL_hInstance); if WinInstance <> 0 then begin lng := GetModuleFileName(WinInstance, PChar(WinModuleName), Length(WinModuleName)); SetLength(WinModuleName, lng); end; awn := GetForegroundWindow; if awn <> 0 then begin GetClassName(awn, @buf, Length(buf)); if buf <> cacheAwn then begin Edit3.Text := buf; cacheAwn := buf; memo1.Lines.Add(cacheAwn); end; end else Edit3.Text := ''; Edit2.Text := GetTitleOfActiveWindow + ' ' + WinModuleName; end;
  13. Pat Foley

    FMX TListView with dynamicappearance. Create progress bar as bitmap.

    Runs OK! Good example of separation of units and runtime building. It may be easier to edit DFM file than drilling into Object Inspector. ItemAppearance.ItemHeight = 45 ItemAppearanceObjects.ItemObjects.ObjectsCollection = < item AppearanceObjectName = 'INDEX' AppearanceClassName = 'TTextObjectAppearance' Appearance.Width = 100.000000000000000000 Appearance.Height = 22.000000000000000000 Appearance.Align = Trailing end item AppearanceObjectName = 'VALUE' AppearanceClassName = 'TTextObjectAppearance' Appearance.Width = 100.000000000000000000 Appearance.Height = 22.000000000000000000 end item AppearanceObjectName = 'IMAGE' AppearanceClassName = 'TImageObjectAppearance' Appearance.ScalingMode = Original Appearance.Width = 200.000000000000000000 Appearance.Height = 5.000000000000000000 Appearance.PlaceOffset.Y = 32.000000000000000000 end>
  14. Pat Foley

    FMX TListView with dynamicappearance. Create progress bar as bitmap.

    Can't read RARs today. procedure TForm1.Button1Click(Sender: TObject); var I: integer; colorRect: TroundRect; begin for I := 1 to 100 do begin colorRect := TRoundRect.Create(self); with colorRect do begin Setbounds(0,10 * I, 34,34); //need to set size only parent := FlowLayout1; fill.color := Talphacolors.Gold; show; end; end; You could change the roundRect to other shapes as needed. the self in TRoundRect.Create(self) puts the object created in the forms list of Controls and/or Components for destruction later
  15. Pat Foley

    FMX TListView with dynamicappearance. Create progress bar as bitmap.

    1. Use FlowLayout and set properties of children controls. 2. Put a Progress bar over another.
  16. Pat Foley

    JCL installation problems in D10.4.2

    Mixing vcl components into a fmx project group definely causes trouble. // CodeGear C++Builder // Copyright (c) 1995, 2021 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) 'dclPat.dpk' rev: 34.00 (Windows) #ifndef DclpatHPP #define DclpatHPP #pragma delphiheader begin #pragma option push #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member #pragma pack(push,8) #include <System.hpp> // (rtl) #include <SysInit.hpp> #include <pfControllerB.hpp> #include <pattimerEX.hpp> ... #include <System.Messaging.hpp> // (rtl) #include <System.Actions.hpp> // (rtl) #include <Vcl.ActnList.hpp> // (vcl) #include <System.HelpIntfs.hpp> // (rtl) #include <System.SyncObjs.hpp> // (rtl) #include <Winapi.UxTheme.hpp> // (rtl) #include <Vcl.GraphUtil.hpp> // (vcl) #include <Vcl.StdCtrls.hpp> // (vcl) #include <Winapi.ShellAPI.hpp> // (rtl) #include <Vcl.Printers.hpp> // (vcl) #include <Vcl.Clipbrd.hpp> // (vcl) #include <Vcl.ComCtrls.hpp> // (vcl) #include <Vcl.Dialogs.hpp> // (vcl) #include <Vcl.ExtCtrls.hpp> // (vcl) #include <Vcl.Themes.hpp> // (vcl) #include <System.AnsiStrings.hpp> // (rtl) #include <System.Win.ComObj.hpp> // (rtl) #include <Winapi.FlatSB.hpp> // (rtl) #include <Vcl.Forms.hpp> // (vcl) #include <Vcl.Menus.hpp> // (vcl) #include <Winapi.MsCTF.hpp> // (rtl) #include <Vcl.Controls.hpp> // (vcl) #include <Vcl.Buttons.hpp> // (vcl) #include <VCLTee.TeeHtml.hpp> #include <VCLTee.TeeConst.hpp> #include <VCLTee.TeCanvas.hpp> #include <VCLTee.TeeFilters.hpp> #include <VCLTee.TeeProcs.hpp> #include <VCLTee.TeEngine.hpp> #include <VCLTee.Chart.hpp> #include <VCLTee.TeeSpline.hpp> #include <Consts_Gen.hpp> #include <pfTrackBar.hpp> #include <pfArrowButton.hpp> #include <sparkline.hpp> #include <VCLTee.Series.hpp> // SO_SFX: 270 // PRG_EXT: .bpl // BPI_DIR: C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp // OBJ_DIR: C:\Users\Public\Documents\Embarcadero\Studio\21.0\Dcp // OBJ_EXT: .obj //-- user supplied ----------------------------------------------------------- namespace Dclpat { //-- forward type declarations ----------------------------------------------- //-- type declarations ------------------------------------------------------- //-- var, const, procedure --------------------------------------------------- } /* namespace Dclpat */ #if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_DCLPAT) using namespace Dclpat; #endif #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // DclpatHPP Multi-device application chokes on the Tchart package in here. Short answer is don't mix vcl and fmx. I only have DX pro how's it making C++
  17. Pat Foley

    Help on Access Violation

    If its not elevation In the past I seen Error code 5 after the machine is awakened from sleep mode.
  18. Pat Foley

    Help on Access Violation

    Drilling into SysUtils shows SAccessDenied which is 'File access denied' so lost of elevation?
  19. Pat Foley

    Problem with Logging on to my.embarcadero.com

    I suspect flooding in Texas. This map shows some outages down there. In Feb 2021 polar vortex may have caused similar issue.
  20. Also your article on LIBSUFFIX https://www.finalbuilder.com/resources/blogs/advice-for-delphi-library-authors must be how the BDSs can find their vintage BPLs. My get by is putting shortcuts in the Desktop to select when using add Design Package.
  21. Pat Foley

    Strange message from Seattle

    When I mentioned register I should have said install package. Open install packages under the Component menu. Use add to add Startpageidennn.bpl by clicking on it. Here's a table of version numbers. above didn't work. Delphi conditional VER<nnn> Product Product Version Package Version CompilerVersion VER340 Delphi 10.4 Sydney / C++Builder 10.4 Sydney 27 270 34.0 VER330 Delphi 10.3 Rio / C++Builder 10.3 Rio 26 260 33.0 VER320 Delphi 10.2 Tokyo / C++Builder 10.2 Tokyo 25 250 32.0 VER310 Delphi 10.1 Berlin / C++Builder 10.1 Berlin 24 240 31.0 VER300 Delphi 10 Seattle / C++Builder 10 Seattle 23 230 30.0
  22. Pat Foley

    Strange message from Seattle

    Main Menu on 10.3,10.4.2 Tabs has Welcome Page. 10.2 has a Toolbar for the code Browser. Selecting a dropdown brings up menu button for Welcome page.(It's tab is named Browser). 10.2 is where I got on. I wonder if you to register Startpageide260.bpl !!!! That's the version number for 20 or 10.3 You having older version 10.0 should be a smaller number.
  23. Pat Foley

    Strange message from Seattle

    Select Welcome Page menu item in view menu. Tested in !0.3 and 10.4
  24. Pat Foley

    Scanning and printing projects.

    What about using Model View as a start and save each UML Class Diagram. In the past I put start up data in non visual components at design time and years later spent a little time trying to determine how the program was able to start... Looking at the DFM component's event assignments is another part of how the program works. Here's a program for cad files. https://www.iseekcorp.com//copy-of-cadseek-adviser
  25. Try streaming Tpanel with child objects in it object Panel1: TPanel Left = 536 Top = 24 Width = 251 Height = 106 Caption = 'Panel1' ParentBackground = False TabOrder = 0 object Button2: TButton Left = 24 Top = 16 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Edit1: TEdit Left = 112 Top = 72 Width = 121 Height = 21 TabOrder = 1 Text = 'Edit1' end end Simply copy paste these into a form in design window. then follow delphi - How to save and restore a form? - Stack Overflow
×