Skip to content

Commit

Permalink
Fixed hints
Browse files Browse the repository at this point in the history
  • Loading branch information
davidberneda committed Oct 27, 2023
1 parent 48fd512 commit 1d00f5c
Show file tree
Hide file tree
Showing 4 changed files with 990 additions and 1,048 deletions.
8 changes: 5 additions & 3 deletions demos/FireMonkey/TeeGridFeatures/Views/Exporting.fmx
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ object ExportingForm: TExportingForm
DesignerMasterStyle = 0
object TeeGrid1: TTeeGrid
Columns = <>
ReadOnly = False
CellFormat = <>
Align = Client
Size.Width = 640.000000000000000000
Size.Height = 140.000000000000000000
Expand Down Expand Up @@ -51,6 +51,7 @@ object ExportingForm: TExportingForm
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.FontColor = claWhite
TextSettings.Trimming = None
Text = 'Export To : '
TabOrder = 1
end
Expand All @@ -72,6 +73,7 @@ object ExportingForm: TExportingForm
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.FontColor = claWhite
TextSettings.HorzAlign = Center
TextSettings.Trimming = None
Text = 'Export'
TabOrder = 0
end
Expand All @@ -86,7 +88,7 @@ object ExportingForm: TExportingForm
Size.Height = 288.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Viewport.Width = 636.000000000000000000
Viewport.Height = 284.000000000000000000
Viewport.Width = 640.000000000000000000
Viewport.Height = 288.000000000000000000
end
end
4 changes: 2 additions & 2 deletions demos/FireMonkey/TeeGridFeatures/Views/Exporting.pas
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ interface
FMX.Controls.Presentation, FMX.StdCtrls, FMX.Colors, FMXTee.Control,
FMXTee.Grid,
Tee.Renders, Tee.Grid.Columns, Tee.Grid.Rows,
Tee.Grid.Bands, FMX.DateTimeCtrls, FMX.ScrollBox, FMX.Memo;
Tee.Grid.Bands, FMX.DateTimeCtrls, FMX.ScrollBox, FMX.Memo, FMX.Memo.Types;

type
TExportingForm = class(TForm)
Expand Down Expand Up @@ -84,7 +84,7 @@ procedure TExportingForm.BExportClick(Sender: TObject);
end;

procedure TExportingForm.FillData;
var tmp : TColumnTotals;
//var tmp : TColumnTotals;
begin
SetLength(MyData,10);
FillMyData(MyData);
Expand Down
Loading

0 comments on commit 1d00f5c

Please sign in to comment.