mORMot and Open Source friends: Check-in [31215eec71]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	fix compilation about report generation
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	31215eec71cc707ac9c72504a9211f0da445eb8f
User & Date:	G018869 2012-07-11 12:24:41

Context

2012-07-12
15:32		updated documentation about ORM features of mORmot, when compared to other implementations check-in: 9675d194ab user: G018869 tags: trunk
2012-07-11
12:24		fix compilation about report generation check-in: 31215eec71 user: G018869 tags: trunk
12:23		SynDBExplorer history now handles UTF-8/Unicode content as expected SynDBExplorer will return up to 500 last commands in reverse order (latest first) SynDBExplorer will handle . chars within SQLite3 table names (useful for exports) check-in: 5fa255c1c1 user: G018869 tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SQLite3/Samples/MainDemo/FileClient.pas.

  sPictureN = '%s Picture';

procedure TFileRibbon.CreateReport(aTable: TSQLRecordClass; aID: integer; aReport: TGDIPages;
  AlreadyBegan: boolean=false);
var Rec: TSQLFile;
    Pic: TBitmap;
    s: string;
    PC: PChar;
    P: TSQLRibbonTab;
begin
  with aReport do begin
    // initialize report
    Clear;
    BeginDoc;
    Font.Size := 10;
................................................................................
    RestoreSavedLayout;
    // write global header at the beginning of the report
    DrawTitle(P.Table.CaptionName+' : '+Caption,true);
    NewHalfLine;
    AddColumns([6,40]);
    SetColumnBold(0);
    if Rec.SignatureTime<>0 then begin
      PC := Pointer(Format(sSignedN,[Rec.SignedBy,Iso2S(Rec.SignatureTime)]));
      DrawTextAcrossColsFromCSV(PC,$C0C0FF);
    end;
    if Rec.fCreated<>0 then
      DrawTextAcrossCols([sCreated,Iso2S(Rec.fCreated)]);
    if Rec.fModified<>0 then
      DrawTextAcrossCols([sModified,Iso2S(Rec.fModified)]);
    if Rec.fKeyWords='' then

  sPictureN = '%s Picture';

procedure TFileRibbon.CreateReport(aTable: TSQLRecordClass; aID: integer; aReport: TGDIPages;
  AlreadyBegan: boolean=false);
var Rec: TSQLFile;
    Pic: TBitmap;
    s: string;
    PC: PWideChar;
    P: TSQLRibbonTab;
begin
  with aReport do begin
    // initialize report
    Clear;
    BeginDoc;
    Font.Size := 10;
................................................................................
    RestoreSavedLayout;
    // write global header at the beginning of the report
    DrawTitle(P.Table.CaptionName+' : '+Caption,true);
    NewHalfLine;
    AddColumns([6,40]);
    SetColumnBold(0);
    if Rec.SignatureTime<>0 then begin
      PC := Pointer(StringToSynUnicode(Format(sSignedN,[Rec.SignedBy,Iso2S(Rec.SignatureTime)])));
      DrawTextAcrossColsFromCSV(PC,$C0C0FF);
    end;
    if Rec.fCreated<>0 then
      DrawTextAcrossCols([sCreated,Iso2S(Rec.fCreated)]);
    if Rec.fModified<>0 then
      DrawTextAcrossCols([sModified,Iso2S(Rec.fModified)]);
    if Rec.fKeyWords='' then