-
Content Count
18 -
Joined
-
Last visited
Community Reputation
3 Neutral-
Thanks for your suggestion, but the behaviour remains the same - the grid updates correctly, but not the data source. Is there a 'conventional' way to add a combobox to a grid (that's connected to a data source)?
- 4 replies
-
- tstringgrid
- fmx
-
(and 4 more)
Tagged with:
-
Type THelpModel = Class(TGridModel); procedure TViewPart.ChangeStringGridComboBoxCurrency(Sender: TObject); begin with TComboBox(Sender), StringGridPartDet do begin THelpModel(StringGridPartDet.Columns[2].Model).DoSetValue(Col,Row, TValue.From<String>(Items[ItemIndex]) ); StringGridPartDet.Columns[2].UpdateCell(Row); end; end; procedure TViewPart.StringGridPartDetCreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin if Column = StringGridPartDet.Columns[2] then begin Control := TComboBox.Create(Self); TComboBox(Control).Items.AddStrings(['GBP', 'EUR']); With StringGridPartDet, TComboBox(Control) do ItemIndex := Items.IndexOf(THelpModel(StringGridPartDet.Columns[2].Model).DoGetValue(Col,Row).AsString); TComboBox(Control).OnChange:= ChangeStringGridComboBoxCurrency; end; end; I have a StringGrid (StringGridPartDet) connected to a DataSet, I have used the attached code to update the currency column with a value from a ComboBox, the value appears correctly in the StringGrid, but does not update the DataSet. AmI missing a step?
- 4 replies
-
- tstringgrid
- fmx
-
(and 4 more)
Tagged with:
-
You're right, the default Windows firewall is on.
-
Thank for your suggestions Patrick. Somehow it is working again now. Interestingly Test Connection worked, but the deployment hung. No PAServer messages in verbose mode. I'm working with a Mac Laptop running Parallels, plugged into my iMac for the larger screen. The only unusual thing I did recently was to change the network Service Order 'Wi-Fi' followed by 'Thunderbolt Bridge' to get Fiddler to work properly. This morning, amongst other things, I changed the Parallels networking type, then changed it back to Shared Network (Recommended) - turned it on and off several times and it's working, but I'm not sure why. No Firewalls active on Mac or Windows. Thanks again
-
My project has been working and deploying correctly to Windows and macOS, release / debug, 32/64 Windows and 64/ARM 64 Mac Today deploying to any macOS version hangs, no error message, need to go into task manager to shutdown Delphi. I haven't changed or upgraded Delphi, Windows, or macOS. Is there a way to invoke a default deployment configuration?
-
Delphi 11.2 FormClose apparently not firing on OSX Version
TrevorS replied to TrevorS's topic in Cross-platform
Interestingly, I've just created the same simple project in 10.4 and FormClose is being called. (RAD Studio 10.4 Version 27.0.38860.1461 ) -
I am getting different behaviour with a FireMonkey project between Windows 32-bit and macOS 64-bit In the windows version the message shows when I close the form, but not in OSX. I may be being a bad person once again with my form handling, but it all worked a treat in 10.4 with no signs of memory leaks 🤪 procedure TForm1.Button1Click(Sender: TObject); var f : TForm2; begin f := TForm2.Create(nil); try f.ShowModal; finally f.Free; end; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin showmessage('Form2 FormClose'); end;
-
Firemonkey RESTRequest.Execute error on Windows but not OSX
TrevorS replied to TrevorS's topic in Network, Cloud and Web
This fixes the problem RESTRequest.Client.FallbackCharsetEncoding := 'raw'; -
Firemonkey RESTRequest.Execute error on Windows but not OSX
TrevorS replied to TrevorS's topic in Network, Cloud and Web
Embarcadero® RAD Studio 10.4 Version 27.0.38860.1461 Delphi 10.4 and C++ Builder 10.4 Update 1 -
Firemonkey RESTRequest.Execute error on Windows but not OSX
TrevorS posted a topic in Network, Cloud and Web
I have created an API in Node.JS serving data and PDFs to my Angular front end - all works perfectly. I've also added the PDF bit onto an existing Delphi App that my company uses. There are 5 difference classes of PDF document. The Delphi app works 100% of the time, for all PDF types when I compile it for Mac OSX, however, when I run the Windows version, I get problems with 2 document types - 3 work perfectly (I can also use Postman to get the PDFs without any errors on all types) I create the PDFs on the fly in the server, and the problem PDFs are created from the same bits of server code as the ones that fail. Error: No mapping for the Unicode character exists in the target multi-byte code page I've tried changing the headers sent from the server, and also varied the request headers: I've tried different Content-Types and specified the charset=utf-8. The simple Delphi code bellow, works for all PDF types on the Mac, but only works for a subset of the document types on Windows. (It's the RESTRequest.Execute bit that fails) RESTClient.BaseURL := 'https://api.mysite.com/pdf/' + url; RESTREquest.Method := rmGet; RESTRequest.Params.AddItem; RESTRequest.Params[0].Kind := pkHTTPHEADER; RESTRequest.Params[0].ContentType := ctTEXT_PLAIN; RESTRequest.Params[0].Options := [ poDoNotEncode ]; RESTRequest.Params[0].name := 'authorization'; RESTRequest.Params[0].value := 'Bearer ' + Token; RESTRequest.Execute; if RESTResponse.StatusCode = 200 then begin RespBytes := RESTResponse.RawBytes; -
WSDL Importer has done a great job, however, the request needs one more change ...
TrevorS replied to TrevorS's topic in Network, Cloud and Web
I found the answer in this post https://en.delphipraxis.net/topic/2258-need-help-adding-namespaces-to-soap/ InvRegistry.RegisterMethodInfo(TypeInfo(NAV_ExportCustomerItemPriceV1Soap), 'NAV_CustomerItemPriceV1', 'ReadMultiple', '[ReturnName="NAV_CustomerItemPriceV1Result"]', IS_OPTN); Params are: TypeInfo, InternalName, ExternalName, ReturnName, XMLOptions Setting ExternalName appears to have fixed it -
WSDL Importer has done a great job, however, the request needs one more change ...
TrevorS posted a topic in Network, Cloud and Web
The Delphi WSDL Importer has done an impressive job of taking a (local) WSDL file and generating some very useful code (that almost works!) To debug, I have looked at the outgoing request with Fiddler, and based on this, I've been able to alter the WSDL file to effect a required change in the request header. However, the problem remains that Delphi is generating a tag with "NAV_CustomerItemPriceV1" but the server needs "ReadMultiple" - ( which seems sensible of Delphi as the resource that it uses is called NAV_CustomerItemPriceV1) Despite further manual changes to the WSDL and to the code generated by Delphi, I can't force a change in this tag. I have seen posts where people have suggested intercepting the XML, but I'm not sure how to do this (or how to access the events on THTTPRIO) TIA Incorrect: <NAV_CustomerItemPriceV1 xmlns="http://tempuri.org/"> <customerNo>account_no</customerNo> <apiKey>api_key</apiKey> <itemList> <Item No="T14727IO" xmlns="urn:microsoft-dynamics-nav/xmlports/NAV_CustomerItemPriceV1" /> <Item No="ZT62062-T1E0100Z" xmlns="urn:microsoft-dynamics-nav/xmlports/NAV_CustomerItemPriceV1" /> </itemList> </NAV_CustomerItemPriceV1> Correct: <ReadMultiple xmlns="http://tempuri.org/"> <customerNo>account_no</customerNo> <apiKey>api_key</apiKey> <itemList> <Item No="T14727IO" xmlns="urn:microsoft-dynamics-nav/xmlports/NAV_CustomerItemPriceV1" /> <Item No="ZT62062-T1E0100Z" xmlns="urn:microsoft-dynamics-nav/xmlports/NAV_CustomerItemPriceV1" /> </itemList> </ReadMultiple> -
TrevorS changed their profile photo
-
I have made the changes you suggested - I moved the SaveFormPos to the OnClose event of each form. I did spot an extra call to SaveFormPos in one of the branches ... so that's gone. Thank you very much for your help, it is most appreciated
-
I have a project that runs in OSX only, Just moving it to Delphi 10.4.1 (I've seen the occasional memory exception when I close [Order Detail] - but I can't recreate it) Is the nil/freeandnil the best way to deal with nested modal forms in a Firemonkey/OSX? All of the [forms] are modal and are created / freed in the same way. TIA Trevor | [Customer Search] -- [Add Customer] -- [Postcode Search] (for account record) | Main -- [Order]-| [Postcode Search] (for del address) | | | | [Part Search]-- [Add Part] | [Order Detail] | | [Add Part] var f: TModalForm begin f := TModalForm.Create(nil); f.var := 100; try SetFormPos( f ); if f.ShowModal = mrOk then begin // do stuff ; // callingForm.var := f.var end; finally SaveFormPos( f ); FreeAndNil(f); end; end;
-
Fantastic, that seems to have fixed it. Thank you for your help 🙂