Serge Girard

Member since: Thursday, 23 April 2015
Last login: 3 days ago
Profile viewed: 325 views

Your Rank: 93
Points: 1

Serge Girard replied to the topic 'TListView Footer Text Live Bindings' in the forum. 2 months ago

Hello,
As you, I don't see how to do such thing with livebindings, only for headers !
So i use some tricks( not academic but ....) to fill these footers

...
 private 
    i : Integer;
...
// using a dynamic appearence , 2 text in item 

procedure TForm13.LinkListControlToField1FilledList(Sender: TObject);
var Pied,Temp : TListViewItem;
    texte : String;
    Li : integer;
begin
    // moving footer up 
     for Li := 1 to Pred(ListView1.ItemCount) do
     begin
       if ListView1.Items[Li].Purpose=TListItemPurpose.Footer then
         begin
           Pied:=ListView1.Items[Li];
           Texte:=Pied.Text;
           ListView1.Items.Delete(Li);
           Temp:=ListView1.Items.Insert(Li-1);
           temp.Text := Texte;
           temp.Purpose := TListItemPurpose.Footer;
         end;
     end;
 // last "record" 
  with ListView1.Items.Add do
    begin
      Text := Format('Last footer %d',[i]);
      Purpose := TListItemPurpose.Footer;
    end;
end;

procedure TForm13.LinkListControlToField1FilledListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
var AnItem, FItem : TListViewItem;
begin
AnItem:=AEditor.CurrentObject as TListViewItem;
if (AnItem.Purpose=TListItemPurpose.Header) then
 begin
  if (AnItem.Index>1)  then
   begin
      with ListView1.Items.Add do
       begin
          Text := Format('bloc footer %d',[i]);
          Purpose := TListItemPurpose.Footer;
         // to be moved later
     end;
    end;
  i:=0;
 end
 else  i:=i+StrToInt(AnItem.Data['Text2'].AsString);
end;

Hope there is another way to do that sort of thing but this trick works

Read More...

Serge Girard has liked an Event 2 months ago
Serge Girard replied to the topic 'Delphi 7 Help on windows 10' in the forum. 4 months ago

Hi,
Perhaps running console as administrator ?

Read More...

Serge Girard replied to the topic 'Delphi 7 Help on windows 10' in the forum. 4 months ago

Upload this file
If your read French some explanations here, with another downloadlink inside
else
Udate Install.bat add these two lines (in red) :

Code batch :Sélectionner tout
123456789
@echo off
::
:: Settings
set MuiFileName=winhlp32.exe.muiset ExeFileName=winhlp32.exeset WindowsVersion=7goto :BypassVersionError

run this file as administrator.
Take care, every windows update can uninstall the helpviewer
Serge

Read More...

Serge Girard replied to the topic 'FMX Mobile App - Header/Footer, etc., Tokyo missin' in the forum. 6 months ago

Sorry I have only entreprise version (and a starter one to check)
It seems that version pro is like starter one for this feature ! Why ?

Read More...

Serge Girard replied to the topic 'FMX Mobile App - Header/Footer, etc., Tokyo missin' in the forum. 6 months ago

Hi,
Have a look at File/New/Other/Delphi projects/multi Device projects
Note : you can also personalize this New submenu thing

Read More...

Serge Girard replied to the topic 'REST/JSON (TRESTClient) copy to SQLite (TFDTable)' in the forum. 6 months ago

Hi Roger,
I agree, but did you see the video ? (taking apart the TMS Grid stuff)
I think it's great that without any of the batchmove things and a single FdMemTable (along with the REST components) you get the result so easily ! Ok, there are some limitations about how is the JSON structure but, i am a lazy programmer if i can use the trick i use it ;-)

Read More...

Serge Girard replied to the topic 'REST/JSON (TRESTClient) copy to SQLite (TFDTable)' in the forum. 6 months ago

Hello,
Use a FDMemTable instead. Have a look at this vidéo.
If you read french you can also view this trend , I (aka SergioMaster) gave some tricks and links to the requester

Read More...

Serge Girard replied to the topic 'Obtaining Firebird ODS information using FireDAC' in the forum. 6 months ago

Have a look at them, it's a mine of informations

Read More...

Serge Girard replied to the topic 'Obtaining Firebird ODS information using FireDAC' in the forum. 6 months ago

Hi,
You can use a QUery to have this information
SELECT MON$ODS_MAJOR, MON$ODS_MONOR FROM MON$DATABASE
MON$DATABASE Table contains many useful other infos on the connected database

Read More...

DavidI is friends with Serge Girard