Jump to content

Ian Branch

Members
  • Content Count

    778
  • Joined

  • Last visited

  • Days Won

    2

Ian Branch last won the day on September 25 2021

Ian Branch had the most liked content!

Community Reputation

78 Excellent

Technical Information

  • Delphi-Version
    Delphi 11 Alexandria

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Ian Branch

    Version check error???

    Just an update. Turned out the culprit was RVMedia v 9. One brownie point for Dave. ;-) The product itself is fine. When it starts up it does a version check to 'home'. This hiccups from time to time. Sergey is looking into it. In the mean time this check on start up can be turned off by right click any RVMedia component at design time and choose “Check for RVMedia update”. In the version check dialog, uncheck “Check on start” checkbox. As I said, there is nothing wrong with the product itself during design & run time, just the hiccup at Delphi start. HTH somebody else. Ian
  2. Ian Branch

    Delphi 11.1 Stuck While Opening Project

    I echo Peter's words but in Win 11.
  3. Ian Branch

    Array within an array??

    Because I wasn't seeing it and getting more and more confused so I decided to take the easy way out. I put it down, had a coffee, and came back to it. I now have it.. type TForm26 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } type TLabelRecord = record iValue: Integer; iColor: Integer; end; type TLabelMatrix = array[1..12, 1..7] of TLabelRecord; public { Public declarations } end; var Form26: TForm26; implementation {$R *.dfm} procedure TForm26.Button1Click(Sender: TObject); var LabelRecord1, LabelRecord2: TLabelRecord; LabelMatrix: TLabelMatrix; begin LabelRecord1.iValue:= 123; LabelRecord1.iColor := 234; LabelMatrix[1,1] := LabelRecord1; // LabelRecord2 := LabelMatrix[1,1]; ShowMessage('Value = '+LabelRecord2.iValue.ToString); ShowMessage('Color = '+LabelRecord2.iColor.ToString); // end; Thank you for your patience & guidance. Ian
  4. Ian Branch

    Array within an array??

    I surrender. I have gone to two arrays.. LabelValue: array of array of Integer; LabelColor: array of array of Integer; Thank you for your suggestions/advice. Ian
  5. Ian Branch

    Array within an array??

    Hi David, OK. I think I understand. So now I have.. type TForm26 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } type TLabelRecord = record iValue: Integer; iColor: Integer; end; type TLabelMatrix = array[1..12, 1..7] of TLabelRecord; public { Public declarations } end; var Form26: TForm26; implementation {$R *.dfm} procedure TForm26.Button1Click(Sender: TObject); var rRec: TLabelRecord; mLabelMatrix: TLabelMatrix; begin end; But how do I address one element of rRec within one element of mLabelMatrix?
  6. Ian Branch

    Array within an array??

    Hi David, I figured it was going to be a multidimensional array of record. So I tried the following.. type TForm26 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } type TLabelRecord = record iValue: Integer; iColor: Integer; end; LabelMatrix = array of array of TLabelRecord; public { Public declarations } end; var Form26: TForm26; implementation {$R *.dfm} procedure TForm26.Button1Click(Sender: TObject); begin SetLength(LabelMatrix, 11, 6); end; Delphi tells me the SetLength code in the Button Click is wrong, object (LabelMatrix) cannot be passed as a parameter, but I don't know why. 😞 I don't care if it starts at 0 or 1, whatever the default is. I don't know what to do from here.. 😞
  7. Ian Branch

    Array within an array??

    Hi Team, Need some help/guidance. I have an array of labels 12 x 7. These I can address by something like 'Matrix[0,1] to Matrix[12,7]'. Each label will have an integer value, and colour integer associated with it. e.g. [124, 255] the 124 in this case to be converted to string for the label's caption. How do I define an array, possible an array within a matrix, to accommodate this? Having defined the array how do I address an individual item in one of the label's array? Regards & TIA, Ian
  8. Ian Branch

    Freeing Show v ShowModal??

    Noted. Tks.
  9. Ian Branch

    Freeing Show v ShowModal??

    Thank you David & Attila, I just want to be sure. :-) The CloseDataSets was valid in the original code where only one sub-form was open at a time, however it isn't appropriate where multiple forms are going to be open. The relevant dataset is closed in the sub-form before the actual Close. Regards & Tks again, Ian
  10. Ian Branch

    Freeing Show v ShowModal??

    Hi Team, D11.1.1. I have used the following construct in the calling/main form extensively.. // ChangesLogForm := TChangesLogForm.Create(self); // try ChangesLogForm.ShowModal; finally DBC1.CloseDataSets; FreeAndNil(ChangesLogForm); end; // for showing Modal forms. I now need to show several forms at the same time so I moved to this construct.. // ChangesLogForm := TChangesLogForm.Create(self); // ChangesLogForm.Show; // and added 'Action := caFree;' in the OnClose of the forms. Is this safe/correct/acceptable? Are there any -ve consequences? Regards & TIA, Ian
  11. Ian Branch

    Detect Windows shutdown?

    Hi Mahris, Yes, since I started this I discovered and no use OnCloseQuery. Thank you for the follow up. Ian
  12. Ian Branch

    Version check error???

    So, I shut my modem/router down for a couple of minutes and I still got the intermittent error. First time it errored, the second it didn't. That suggests something else is afoot... I really would prefer it to be consistent, i.e. happen all the time, then I have a better chance of isolating it.
  13. Ian Branch

    Version check error???

    Hi Dave, No I didn't. It didn't occur to me that component packages would be doing what was possibly an online version check. This would be problematic if you weren't online. Actually the whole version check, if done online would be problematic if not online. Ian
  14. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    @Daniel Whither goest WUPPDI for D11??
×