Serge_G

Une autre petite piste dans ce blog, étudier les sources du dépot git indiqué n'est pas une mauvaise idée. Idem, j'ai pas mal déblatéré dans ce forum As I don't know if this forum is not an English only forum : Another little tip in this blog, studying the sources of the indicated git repository is not a bad idea. Ditto, I've rambled quite a bit in this forum

I wrote some tutorials in french (3 part but only 2 published) you can find here Part1 Part2 last part (a RadioCombobox) still in progress

One solution is to use DynamicAppearance and add an image. I explained this (in french) here and there The only job to add is to rework the bitmap to have RoundedCorners in this part procedure TForm1.ListView1UpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); var AListItemBitmap : TListItemImage; AListItemText : TListItemText; AColor : TAlphaColor; begin AListItemBitmap:=AItem.Objects.FindObjectT<TListItemImage>('Image2'); AListItemText:=AItem.Objects.FindObjectT<TListItemText>('Text1'); if assigned(AListItemBitmap) then begin AListItemBitmap.Bitmap:=TBitmap.Create(40,40); try AColor:=StringToAlphaColor(AListItemText.Text) except AColor:=TAlphaColorRec.Null; end; AListItemBitmap.Bitmap.Clear(AColor); end; end; Still some work to do but a first result

You don't gave us the SGBD used. Code can be reduced, without an FDQuery using FDConnection var x:=FDConnection1.ExecSQLScalar('SELECT 1 FROM WeighingCows WHERE Cownumber = :C', Drivers.DBEdit1.Text); if varisnull(x) then begin MessageDlg('This number exist', mtError, [mbOK], 0); FDTable1.Cancel;<<<<<<<<<<< if execute then OK end;

For me it's the FDConnection that was active. When you activate the Query, the FdConnection was enabled also I always change the ConnectedStoredUsage properties of FDConnection to false to avoid this problem.

I have no response to that, all my "pro" FMX applications (using at least 2 styles) are D10.3 with few chance to update to newer versions. Retiring at the end of the year, I don't think I should face the problem

Sorry for that, I saw that form2 was created once. I am not adept of that, preferring a modalform.Create and modalform.release in my apps Yes, but it's a lot perturbing for me To answer this usage of old style usage retrieve my mind's ticket is here (Patrick Premartin is the reporter because I was lazy to do it ) french discussion here @XylemFlow procedure TForm1.CheckBox1Change(Sender: TObject); begin if CheckBox1.IsChecked then StyleBook:=StyleBookDark else Stylebook:=StyleBookLight; UpdateStyleBook; end; procedure TForm1.MenuItem4Click(Sender: TObject); begin // Apply current style to modalform Form2.StyleBook:=Stylebook; Form2.Showmodal end; tested with polardark_win and polarlight_win styles

Hi, I think there are more than one coding errors 🙄 i.e. ChildForm is not released, StyleBookLight don't contain data .... I worked a similar project last year, you can find here I had some similar problem using an old 10.2 style (don't remember circumstance)

But why did you use ODBC when you can use the Firedac Driver ?

Yes that was what I suggest more or less Not so, but database structure is not very pro.

Is FB not too much for a program that seems to be mono-user and with a screenshot more Android (so Firebird is not easy to install ) than windows OS

For me, you complicate your life If you use livebindings and synchronize your datasource to the listview you don't have to add a query. I made some tests. Not so evident, I think the best way is to create a new method for livebindings (I explore this in this tutorial). For now, I just use a database (Firebird one) trick to get linebreak value and use CustomFormat:=%s+dataset.BR.text+dataset.stringrediants1.value+dataset.BR.text+dataset.stringrediants2.value+ ... Can you attach your database and I will write a quick program as demo ? Attached a quick sample Ok, I don't create UI to add some coktails, just respond to first question "show only the records based on the item i click in a listbox." (listview) Cocktails.zip

My desktop FMX apps are 32/64 bits windows and Linux, my firebirds install are 64 bits (default FB3 on port 3050, FB4 on 3054) And I don't have any problem with that. Even if I can also read server FB Database on Android, I tried to have full a Firebird embedded on Android without success. This code is extracted from a procedure in my Datamodule Yes No

Hum, now I am looking the table structure IMHO the database structure is not a valid one. I think about a : Beverage table, Ingredient table, and Composition table instead of the "monolithic" table you seem to use (according livebinding screenshot

I am not a Refresh fan

Well, you can write all LiveBindings at runtime also 😉. I agree Visual LiveBindings is not a perfect tool 😲

1) Drop a FDConnection and set properties first one should be FBDriver short response long response eventually, you can change connection properties at runtime . As sample here what I use to connect my database With ConnexionBase.Params as TFDPhysFBConnectionDefParams do begin UserName:=parametres.utilisateur; Password:=parametres.motdepasse; Server:=IP; // Ip addresse Database:=Parametres.nombase; SQLDialect:=3; end; try ConnexionBase.Connected:=True; result:=true; except result:=false; end; 2) Don't use " " except if you need case-sensitive column names. Avoid * in your SQL. (If you use Flamerobin it's easy to generate SQL text) your SQL should be SELECT Index2,French,FrenchUTF,FrenchMod,English,Latin,Greek,Spanish,German,Chinese,Arabic,Russian,Italian,Pasigraphie,PasiImage,Notes FROM dictionary WHERE Index2 = :INDEX2 Note if you have this FDQuery you can code this FDQuery1.open('',[valueof parameter]); instead of FDQUery1.Close; // no need to change SQL Text every time FDquery1.ParamByName('Index2').asInteger:=xxx // value of parameter fdquery1.Open; A tip : set FdConnection.ConnectedStrorageUsage.auRuntime to false

Hi, First, all my tutorials are Here For your need, you can use CustomFormat property of the link (should something like %s+' '+dataset.stringrediants1.value+....) I never test newline constant in an expression 🙄 something I should test soon 😄 I'm curious. but I suggest you to treat the problem at the datasource and concatenate the fields in your query (advantage 1 - readonly field, advantage 2 - speed)

First question : Is this supposed to be a FMX or a VCL program ? If FMX you can write this app with "no code" (except itemclick to change from list to view and reverse) using Livebindings Here a french tuturial I wrote (2018)

Yes, you have to change port in firebird conf for one of your Firebird version Here my w10 workstation with default FB3 and FB4 possibility. Very easy with FDBatchmove, but take care of the capacities of Firebird and optimize your table structure

No, no demo project, it's very easy to reproduce with only the picture as guideline. The connections and query parameters are too depending of your needs

Why don't you use a TListView with dynamic appearance and Livebindings ?

Hi, The simplest way (without checking errors) procedure loadbitmapfromblob(abitmap : TBitmap; aBlob : TField); var aStream : TMemoryStream; begin aStream:=TMemoryStream.Create; try TBlobField(aBlob).SaveToStream(aStream); // aStream.Position:=0; aBitmap.LoadFromStream(aStream); finally aStream.Free; end; end; usage loadbitmapfromblob(Image1.Bitmap,datamodule2.InsertImg.FieldByName('camarapic')); But can I suggest this ? (FMX program) or even using Livebindings for "no code" procedure loadImagefromblob(aImage: TImage; aBlob: TField); begin var aStream: TMemoryStream; begin if aBlob.IsNull then aImage.Visible := False else begin aStream := TMemoryStream.Create; try TBlobField(aBlob).SaveToStream(aStream); try aImage.Bitmap.LoadFromStream(aStream); aImage.Visible:=true; except aImage.Visible := False; end; finally aStream.Free; end; end; end; end; for VCL use this procedure, not forgetting to declare units Vcl.Imaging.jpeg and Vcl.Imaging.pngimage procedure TFormVCL.loadImage(aImage: Timage; aField: TField); var aStream : TmemoryStream; begin if aField.IsNull then aImage.Visible:=false else begin aStream:=TmemoryStream.Create; try TBlobField(aField).SaveToStream(aStream); aStream.Position:=0; AImage.Picture.LoadFromStream(aStream); aImage.Visible:=true; finally aStream.Free; end; end; end;

Sorry, I found file fishfacts.cds in <RadStudioDemos-Main> \Object Pascal\LiveBindings\common demo found here on GitHub

It's Livebindings. On your form you certainly have a TClientDataset (database name is now C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples\Data\biolife.cds) a TBindingList and a TBindSourceDB