You've already forked lazarus-ccr
fpspreadsheet: Add dataset example
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8097 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -0,0 +1,83 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="DatasetDemo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="laz_fpspreadsheet_dataset"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="DatasetDemo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="DatasetDemo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,25 @@
|
|||||||
|
program DatasetDemo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
Binary file not shown.
@ -0,0 +1,451 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 285
|
||||||
|
Height = 542
|
||||||
|
Top = 131
|
||||||
|
Width = 1068
|
||||||
|
Caption = 'fpsWorksheet Demo: Filtering, Searching, Sorting, Bookmarks'
|
||||||
|
ClientHeight = 542
|
||||||
|
ClientWidth = 1068
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object DBGrid: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Height = 482
|
||||||
|
Top = 60
|
||||||
|
Width = 1068
|
||||||
|
Align = alClient
|
||||||
|
AlternateColor = clBtnFace
|
||||||
|
Color = clWindow
|
||||||
|
Columns = <>
|
||||||
|
DataSource = DataSource
|
||||||
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAnyButtonCanSelect, dgTruncCellHints, dgThumbTracking]
|
||||||
|
PopupMenu = DBGridPopupMenu
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
TitleImageList = ImageList12
|
||||||
|
OnTitleClick = DBGridTitleClick
|
||||||
|
end
|
||||||
|
object ToolBar: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Height = 26
|
||||||
|
Top = 34
|
||||||
|
Width = 1068
|
||||||
|
Caption = 'ToolBar'
|
||||||
|
Images = ImageList16
|
||||||
|
TabOrder = 1
|
||||||
|
object DBNavigator1: TDBNavigator
|
||||||
|
Left = 1
|
||||||
|
Height = 22
|
||||||
|
Top = 2
|
||||||
|
Width = 241
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 100
|
||||||
|
ClientHeight = 22
|
||||||
|
ClientWidth = 241
|
||||||
|
DataSource = DataSource
|
||||||
|
Options = []
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 242
|
||||||
|
Height = 22
|
||||||
|
Top = 2
|
||||||
|
Width = 326
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ClientHeight = 22
|
||||||
|
ClientWidth = 326
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
AnchorSideLeft.Control = Panel2
|
||||||
|
AnchorSideTop.Control = Panel2
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 8
|
||||||
|
Height = 15
|
||||||
|
Top = 4
|
||||||
|
Width = 81
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
Caption = 'Filter countries:'
|
||||||
|
end
|
||||||
|
object cmbFilter: TComboBox
|
||||||
|
AnchorSideLeft.Control = Label1
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Panel2
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
AnchorSideRight.Control = Panel2
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 95
|
||||||
|
Height = 23
|
||||||
|
Top = 0
|
||||||
|
Width = 223
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoComplete = True
|
||||||
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
DropDownCount = 40
|
||||||
|
ItemHeight = 15
|
||||||
|
OnEditingDone = cmbFilterEditingDone
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 568
|
||||||
|
Top = 2
|
||||||
|
Action = acFilterByCountry
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 591
|
||||||
|
Top = 2
|
||||||
|
Action = acNoFilter
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 614
|
||||||
|
Height = 22
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton3'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 619
|
||||||
|
Top = 2
|
||||||
|
Action = acFindCity
|
||||||
|
end
|
||||||
|
object btnBookmark1: TToolButton
|
||||||
|
Tag = 1
|
||||||
|
Left = 647
|
||||||
|
Top = 2
|
||||||
|
Caption = 'btnBookmark1'
|
||||||
|
DropdownMenu = BookmarkDropdown
|
||||||
|
ImageIndex = 3
|
||||||
|
OnMouseMove = btnBookmark1MouseMove
|
||||||
|
Style = tbsButtonDrop
|
||||||
|
end
|
||||||
|
object ToolButton6: TToolButton
|
||||||
|
Left = 642
|
||||||
|
Height = 22
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton6'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object btnBookmark2: TToolButton
|
||||||
|
Tag = 2
|
||||||
|
Left = 680
|
||||||
|
Top = 2
|
||||||
|
Caption = 'btnBookmark2'
|
||||||
|
DropdownMenu = BookmarkDropdown
|
||||||
|
ImageIndex = 4
|
||||||
|
OnMouseMove = btnBookmark1MouseMove
|
||||||
|
Style = tbsButtonDrop
|
||||||
|
end
|
||||||
|
object btnBookmark3: TToolButton
|
||||||
|
Tag = 3
|
||||||
|
Left = 713
|
||||||
|
Top = 2
|
||||||
|
Caption = 'btnBookmark3'
|
||||||
|
DropdownMenu = BookmarkDropdown
|
||||||
|
ImageIndex = 5
|
||||||
|
OnMouseMove = btnBookmark1MouseMove
|
||||||
|
Style = tbsButtonDrop
|
||||||
|
end
|
||||||
|
object ToolButton5: TToolButton
|
||||||
|
Left = 746
|
||||||
|
Height = 22
|
||||||
|
Top = 2
|
||||||
|
Caption = 'ToolButton5'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object ToolButton7: TToolButton
|
||||||
|
Left = 751
|
||||||
|
Top = 2
|
||||||
|
Action = acSortAsc
|
||||||
|
end
|
||||||
|
object ToolButton8: TToolButton
|
||||||
|
Left = 774
|
||||||
|
Top = 2
|
||||||
|
Action = acSortDesc
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 34
|
||||||
|
Top = 0
|
||||||
|
Width = 1068
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Caption = 'Average Temperatures in European Cities'
|
||||||
|
Color = clWindowText
|
||||||
|
Font.Color = clWindow
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Dataset: TsWorksheetDataset
|
||||||
|
FieldDefs = <>
|
||||||
|
AfterOpen = DatasetAfterOpen
|
||||||
|
Left = 295
|
||||||
|
Top = 129
|
||||||
|
end
|
||||||
|
object DataSource: TDataSource
|
||||||
|
DataSet = Dataset
|
||||||
|
Left = 435
|
||||||
|
Top = 129
|
||||||
|
end
|
||||||
|
object DBGridPopupMenu: TPopupMenu
|
||||||
|
Images = ImageList16
|
||||||
|
OnPopup = DBGridPopupMenuPopup
|
||||||
|
Left = 296
|
||||||
|
Top = 208
|
||||||
|
object mnuSetBookmarkParent: TMenuItem
|
||||||
|
Caption = 'Set bookmarks'
|
||||||
|
object mnuSetBookmark1: TMenuItem
|
||||||
|
Tag = 1
|
||||||
|
Action = acSetBookmark
|
||||||
|
Caption = 'Bookmark 1'
|
||||||
|
ImageIndex = 3
|
||||||
|
ShortCut = 16433
|
||||||
|
end
|
||||||
|
object mnuSetBookmark2: TMenuItem
|
||||||
|
Tag = 2
|
||||||
|
Action = acSetBookmark
|
||||||
|
Caption = 'Bookmark 2'
|
||||||
|
ImageIndex = 4
|
||||||
|
ShortCut = 16434
|
||||||
|
end
|
||||||
|
object mnuSetBookmark3: TMenuItem
|
||||||
|
Tag = 3
|
||||||
|
Action = acSetBookmark
|
||||||
|
Caption = 'Bookmark 3'
|
||||||
|
ImageIndex = 5
|
||||||
|
ShortCut = 16435
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object mnuGotoBookmarkParent: TMenuItem
|
||||||
|
Caption = 'Go to bookmarks'
|
||||||
|
object mnuGotoBookmark1: TMenuItem
|
||||||
|
Tag = 1
|
||||||
|
Action = acGotoBookmark
|
||||||
|
Caption = 'Bookmark 1'
|
||||||
|
ImageIndex = 3
|
||||||
|
ShortCut = 24625
|
||||||
|
end
|
||||||
|
object mnuGotoBookmark2: TMenuItem
|
||||||
|
Tag = 2
|
||||||
|
Action = acGotoBookmark
|
||||||
|
Caption = 'Bookmark 2'
|
||||||
|
ImageIndex = 4
|
||||||
|
ShortCut = 24626
|
||||||
|
end
|
||||||
|
object mnuGotoBookmark3: TMenuItem
|
||||||
|
Tag = 3
|
||||||
|
Action = acGotoBookmark
|
||||||
|
Caption = 'Bookmark 3'
|
||||||
|
ImageIndex = 5
|
||||||
|
ShortCut = 24627
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object mnuClearBookmarkParent: TMenuItem
|
||||||
|
Caption = 'Clear bookmarks'
|
||||||
|
object mnuClearBookmark1: TMenuItem
|
||||||
|
Tag = 1
|
||||||
|
Action = acClearBookmark
|
||||||
|
Caption = 'Bookmark 1'
|
||||||
|
ImageIndex = 3
|
||||||
|
ShortCut = 49201
|
||||||
|
end
|
||||||
|
object mnuClearBookmark2: TMenuItem
|
||||||
|
Tag = 2
|
||||||
|
Action = acClearBookmark
|
||||||
|
Caption = 'Bookmark 2'
|
||||||
|
ImageIndex = 4
|
||||||
|
ShortCut = 49202
|
||||||
|
end
|
||||||
|
object mnuClearBookmark3: TMenuItem
|
||||||
|
Tag = 3
|
||||||
|
Action = acClearBookmark
|
||||||
|
Caption = 'Bookmark 3'
|
||||||
|
ImageIndex = 5
|
||||||
|
ShortCut = 49203
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem3: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object mnuSortASC: TMenuItem
|
||||||
|
Action = acSortAsc
|
||||||
|
Caption = 'Sort by clicked column (ascending)'
|
||||||
|
end
|
||||||
|
object mnuSortDESC: TMenuItem
|
||||||
|
Action = acSortDesc
|
||||||
|
Caption = 'Sort by clicked column (descending)'
|
||||||
|
end
|
||||||
|
object MenuItem1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object mnuFilterByCountry: TMenuItem
|
||||||
|
Caption = 'Filter by Country...'
|
||||||
|
ImageIndex = 0
|
||||||
|
object mnuNoFilter: TMenuItem
|
||||||
|
Action = acNoFilter
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem5: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object mnuFindCity: TMenuItem
|
||||||
|
Action = acFindCity
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ImageList12: TImageList
|
||||||
|
Height = 12
|
||||||
|
Width = 12
|
||||||
|
Left = 576
|
||||||
|
Top = 129
|
||||||
|
Bitmap = {
|
||||||
|
4C7A020000000C0000000C000000350100000000000078DA6360A03FD851E3EF
|
||||||
|
02C2C4A8DDDE10AC77A025E2E5BE96885720365E732BFC54F636863E7EBDA9ED
|
||||||
|
3F08EF6D0A7BB8BD2240019BDA6D959EA2BB1B43EEBD58DFFCFFC3F66E3006B1
|
||||||
|
773786DDDED1102A84AC7673832FD7EE86D04B4F56D6FD85A9856190D89EA6D0
|
||||||
|
73FB1B1C38406A5785863203CD3D706F69E54F74B5307C6F49C5CF3D0DA1BB1B
|
||||||
|
1A1A98B6D5F8776CAB0EF80574EB6B7C18A4666BA56F3BC328C00BB655FB4FDF
|
||||||
|
5113F0E3605BD40B7C18A4665B8DDFB4FF0C0C8CBB1A4236DE985FF215577C81
|
||||||
|
E4406A406AC171DC10CAB6B321F8C4FDA595BF30E2162806923B9396C68AE2AE
|
||||||
|
064FBEDD0DC1D79FAEAE87A721101B240692C3E6978D657E52C074F7F0E5FA96
|
||||||
|
FF20BCA731F401480C9FFF3797FBE8EF6D0A7FBAAF39FC09884D4C98EDACF273
|
||||||
|
25363F521B0000A4F50CFE
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object ImageList16: TImageList
|
||||||
|
Left = 576
|
||||||
|
Top = 208
|
||||||
|
Bitmap = {
|
||||||
|
4C7A080000001000000010000000E00600000000000078DAED98094CD3571CC7
|
||||||
|
EB96399365993AA5B8796D3AA756C0A9E089E074EA747821A253173C824EE744
|
||||||
|
C503115A659924F3C01B10A55A0F2446D129010F8478206D055B5A74DE533715
|
||||||
|
01158BB4A2FDEEFDFE50A5E5DFF2AF336633BCE49BB6EFFF3EFFF73BDF4B2A12
|
||||||
|
FD37C6C2AC6BF831ED1226EC2FC0B09D5AF826E4A2EB3A25DC6372F0D57A153C
|
||||||
|
63D5E8C1E6FAC8CFC3678706B6FCFCAC6BA6463926785F04C26F03690F81D38F
|
||||||
|
815DC5C0F23BC0F43F81219701777539FAEED49A6CF90559D783C71FB96EE8A2
|
||||||
|
3363F64D606F09A032547EAEBC0B6E6EC425337A275D30F828B4C17C3E4C49BF
|
||||||
|
9232F0F89DF2C9D7017911A029030E3E00D6DD03E6DF02BE49BD69ECADD0A6DA
|
||||||
|
8B41C889EB0DC71DB870D75FFD886388273FE20B81E0DC87E8253F7FBF6782BE
|
||||||
|
B1A3387EBF5FEF352C49FF447ACDC4F99F510AACBF6542CF2D79653DE3F37A09
|
||||||
|
C9C5F05D9A8CFEBB2F3C0F3BF91742326FA3CF76DDF3EE71791942733972A76E
|
||||||
|
ACEFBE2BA5190FCD48BC0FF44DBE54EA197B2E50283F74BBA6533F85EE516669
|
||||||
|
651CBD1234A59EF14A89503E20595FDF3721AFE2D80333B6DC33A3CB7A7545DB
|
||||||
|
B597DF77A61E7DE59ADB7B6E3EC18A2B4FD03536F7B6B3F5EC2BD71E89D11623
|
||||||
|
4C5D8C6E7179E9CEF27DB7E64659EABFEB467594E82D1D9D569D8533B2E52531
|
||||||
|
39C6069965B5F6BD24BB0CB4B6267FD6BFFDBA73659DCF57D8ED7BBF820AB86D
|
||||||
|
C8354856E78CE3F341B24619D371ABCE30E9AAB946DF8732DE6B7B81A1135B63
|
||||||
|
370832BCD3718D2ACBE7C00DA36DDF0FFFFD86C97D9DEA4C4072F2BB8EE2E8B6
|
||||||
|
FC6423B7B5AA3BD3CE16992D7DBF38B7D8ECB15679AFDD0A751321B990ACCCF1
|
||||||
|
B08D37CD894498C3B4CA7A357E650AE3CBA7A56F5FE60B2B9850F559CFFAB710
|
||||||
|
DEEA1D6A7B6C2D3CEDABAA625595BF9DE205EF5FB35E85FBCF3F30AFE65AEE1D
|
||||||
|
F35E773F7A757387458EE61CF1FE81013578DBB9D7C9B379293DF3F6EEF142D5
|
||||||
|
6DB6C8665E6AEB1FED6151F5DF7CCFF8E253C707F0C6BDBA84F2F6EAB28E0F10
|
||||||
|
DC8BFFC771266A789B53CB862932A57E8547970C456AD890C294F983157BE70E
|
||||||
|
6C531B9B1D357C5076D430E3E9A57EC8920EC5B1F06F91BA70205242072039A4
|
||||||
|
BF71D7AC7E831CED4B6CF6323F9C920D81461E8EE7154F41637F880FF6CCF2C6
|
||||||
|
8E19DEC66DD37BF3DA4136D3BEC4E6CB1773AC7EDF6A8EDF3BB327764DEF8EED
|
||||||
|
C15E489CEAA5E0E3C95FB23973C9608E2D60ECA1D9BD383E29B80B14533A2331
|
||||||
|
C8035B823A17F2F1142BF2F7E8A201480BF5E1D8FD333C397E47900489133B20
|
||||||
|
614207C48FEFC85B3714678AD5A1D07E3818D207FB18BB67AA07C7CBC7B743C2
|
||||||
|
D836880B6C83D8C02F78F74F5930584171DEC76245FE92CDB42F8D84319F216E
|
||||||
|
742B6CF46F898DA35BF3FA4FF9A51C519C29569CBFCC661A1C3BAA05368C6C6E
|
||||||
|
DC30B285DD3AA0FC528EB838B35891BF6433ED4BECFA11CD07D55643945FCA51
|
||||||
|
028B33C58AFC259B1DED5B37DEAEFED72996E0A9E121577B26C3039C8E0D75AA
|
||||||
|
FF89556F9AC5F5E1C99869303E7EE054FF6784F5477A550F67FE3619C6D212A7
|
||||||
|
FB3F759E0F2E1CDECCCE12138EAF0876AAFFC966C3FD5B28BCA842CAFC414EF7
|
||||||
|
FFD3720394DB9672FDCFB14EF63FDFA8EBFFBAFEAFEB7FE7EE7FCBD0A66C7CE5
|
||||||
|
FB3F2D6A1CCA4B8B9DEA7FF2F7687410D7FF87656350FEA8D8A9FE3FB1F667B6
|
||||||
|
6709673BB187A326D6F5FF1B1A6AD927ED559162A8A4AE9B5E8567EC2F4C8F99
|
||||||
|
4A4EC85A37B0FAC7E2C48C2092DD7F3944A27A8CBBC63487DEA18E740D78F12C
|
||||||
|
63A60499330D9CD8773EFE5C44536FC63DD3C8C42E2AA97837FB7E8863D3277E
|
||||||
|
604A9BA4674295F43457C376A9388E314626B52AD2E516FBAC50CA9ABA96A604
|
||||||
|
2632C14689D5D9CBB3DABE4F3E33C5AA22C4C19C22C5C5EA0897B996354549DF
|
||||||
|
81C467BB52E6328AAD7F9A13F6E9C736F6E45B7EFF2DFF1AA457CDED8DD81E20
|
||||||
|
F13FCD6B2812E9C0237FCB8A3F62DC41E2E7E9FF496DD74AE93C99944C574522
|
||||||
|
8D8B65457E745B906AB754B78AA988B15F5AE557D60C24C7AC3E8CB1E54CBD6B
|
||||||
|
9CF18B3E02C93E9B3F81F1CFAAFB6C754687BC07123F5B308071158C8F6131F8
|
||||||
|
FCA528AE95E3F84F2290ECEC2DE38F7F7EF89BEB7EDD4D9EFD65C279ADDBCB1A
|
||||||
|
D02731FE11938730FFADECF881C9C4F61E283CFE2F58BFAA3C04399FFF821E8C
|
||||||
|
353045F09E2F0EEB4FDF9671254CA9D6F9175AFF5473BCFDB75B58FFFDDBFEAF
|
||||||
|
8A91AC796376E614AA23C5F1B6CF849C3FECBC9B5E75861A4E2D68F261F5678E
|
||||||
|
CEBF6AF7C729A668A62265842B974321E72F8DDCF066AD1867564788DD9452F1
|
||||||
|
66F63DC399F35F1DE91241673E53329392E979B6CCB5B5D0FB87DD1917D9B99F
|
||||||
|
5E657FB432527C8FDE29E4FE53C95CBDE8DE3D2B73ED582D16AB982ED3BD585B
|
||||||
|
6EE9FED12E6AD9C8AA226592FA34E788FF07815B405B
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object ActionList: TActionList
|
||||||
|
Images = ImageList16
|
||||||
|
Left = 296
|
||||||
|
Top = 280
|
||||||
|
object acFindCity: TAction
|
||||||
|
Caption = 'Find city...'
|
||||||
|
Hint = 'Find a city'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = acFindCityExecute
|
||||||
|
end
|
||||||
|
object acFilterByCountry: TAction
|
||||||
|
Caption = 'Filter by country'
|
||||||
|
Hint = 'Filter records by country'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = acFilterByCountryExecute
|
||||||
|
end
|
||||||
|
object acNoFilter: TAction
|
||||||
|
Caption = 'All countries'
|
||||||
|
Hint = 'Remove filter'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = acNoFilterExecute
|
||||||
|
end
|
||||||
|
object acSetBookmark: TAction
|
||||||
|
Caption = 'Set bookmark'
|
||||||
|
OnExecute = acSetBookmarkExecute
|
||||||
|
end
|
||||||
|
object acGotoBookmark: TAction
|
||||||
|
Caption = 'Go to bookmark'
|
||||||
|
OnExecute = acGotoBookmarkExecute
|
||||||
|
end
|
||||||
|
object acClearBookmark: TAction
|
||||||
|
Caption = 'Clear bookmark'
|
||||||
|
OnExecute = acClearBookmarkExecute
|
||||||
|
end
|
||||||
|
object acSortAsc: TAction
|
||||||
|
Caption = 'Sort ascending'
|
||||||
|
Hint = 'Sort by this column in ascending oder'
|
||||||
|
ImageIndex = 6
|
||||||
|
OnExecute = acSortAscExecute
|
||||||
|
end
|
||||||
|
object acSortDesc: TAction
|
||||||
|
Caption = 'Sort descending'
|
||||||
|
Hint = 'Sort by this column in descending order'
|
||||||
|
ImageIndex = 7
|
||||||
|
OnExecute = acSortDescExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object BookmarkDropdown: TPopupMenu
|
||||||
|
Images = ImageList16
|
||||||
|
OnPopup = BookmarkDropdownPopup
|
||||||
|
Left = 435
|
||||||
|
Top = 208
|
||||||
|
object mnuSetBookmark: TMenuItem
|
||||||
|
Action = acSetBookmark
|
||||||
|
end
|
||||||
|
object mnuGotoBookmark: TMenuItem
|
||||||
|
Action = acGotoBookmark
|
||||||
|
end
|
||||||
|
object mnuClearBookmark: TMenuItem
|
||||||
|
Action = acClearBookmark
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,400 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, DB, Forms, Controls, Graphics, Dialogs, DBGrids, DBCtrls,
|
||||||
|
ExtCtrls, Menus, StdCtrls, Buttons, ActnList, ComCtrls, fpsDataset, Types;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
acFindCity: TAction;
|
||||||
|
acFilterByCountry: TAction;
|
||||||
|
acNoFilter: TAction;
|
||||||
|
acSetBookmark: TAction;
|
||||||
|
acGotoBookmark: TAction;
|
||||||
|
acClearBookmark: TAction;
|
||||||
|
acSortAsc: TAction;
|
||||||
|
acSortDesc: TAction;
|
||||||
|
ActionList: TActionList;
|
||||||
|
cmbFilter: TComboBox;
|
||||||
|
DataSource: TDataSource;
|
||||||
|
DBGrid: TDBGrid;
|
||||||
|
Dataset: TsWorksheetDataset;
|
||||||
|
DBNavigator1: TDBNavigator;
|
||||||
|
ImageList16: TImageList;
|
||||||
|
ImageList12: TImageList;
|
||||||
|
Label1: TLabel;
|
||||||
|
MenuItem1: TMenuItem;
|
||||||
|
mnuClearBookmarkParent: TMenuItem;
|
||||||
|
MenuItem5: TMenuItem;
|
||||||
|
mnuSetBookmark: TMenuItem;
|
||||||
|
mnuGotoBookmark: TMenuItem;
|
||||||
|
mnuClearBookmark: TMenuItem;
|
||||||
|
mnuFindCity: TMenuItem;
|
||||||
|
mnuClearBookmark1: TMenuItem;
|
||||||
|
mnuClearBookmark2: TMenuItem;
|
||||||
|
mnuClearBookmark3: TMenuItem;
|
||||||
|
mnuSetBookmark3: TMenuItem;
|
||||||
|
mnuSetBookmark2: TMenuItem;
|
||||||
|
mnuSetBookmark1: TMenuItem;
|
||||||
|
mnuGotoBookmark3: TMenuItem;
|
||||||
|
mnuGotoBookmark2: TMenuItem;
|
||||||
|
mnuGotoBookmark1: TMenuItem;
|
||||||
|
mnuSetBookmarkParent: TMenuItem;
|
||||||
|
MenuItem3: TMenuItem;
|
||||||
|
mnuGotoBookmarkParent: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
mnuNoFilter: TMenuItem;
|
||||||
|
mnuFilterByCountry: TMenuItem;
|
||||||
|
mnuSortASC: TMenuItem;
|
||||||
|
mnuSortDESC: TMenuItem;
|
||||||
|
DBGridPopupMenu: TPopupMenu;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Panel2: TPanel;
|
||||||
|
BookmarkDropdown: TPopupMenu;
|
||||||
|
ToolBar: TToolBar;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
btnBookmark1: TToolButton;
|
||||||
|
ToolButton5: TToolButton;
|
||||||
|
ToolButton6: TToolButton;
|
||||||
|
btnBookmark2: TToolButton;
|
||||||
|
btnBookmark3: TToolButton;
|
||||||
|
ToolButton7: TToolButton;
|
||||||
|
ToolButton8: TToolButton;
|
||||||
|
procedure acClearBookmarkExecute(Sender: TObject);
|
||||||
|
procedure acFilterByCountryExecute(Sender: TObject);
|
||||||
|
procedure acFindCityExecute(Sender: TObject);
|
||||||
|
procedure acGotoBookmarkExecute(Sender: TObject);
|
||||||
|
procedure acNoFilterExecute(Sender: TObject);
|
||||||
|
procedure acSetBookmarkExecute(Sender: TObject);
|
||||||
|
procedure acSortAscExecute(Sender: TObject);
|
||||||
|
procedure acSortDescExecute(Sender: TObject);
|
||||||
|
procedure BookmarkDropdownPopup(Sender: TObject);
|
||||||
|
procedure btnBookmark1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||||
|
Y: Integer);
|
||||||
|
procedure cmbFilterEditingDone(Sender: TObject);
|
||||||
|
procedure DatasetAfterOpen(ADataSet: TDataSet);
|
||||||
|
procedure DBGridTitleClick(Column: TColumn);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure DBGridPopupMenuPopup(Sender: TObject);
|
||||||
|
procedure mnuFindCityClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
FBookmarks: array[1..3] of TBookmark;
|
||||||
|
FSortColumn: TColumn;
|
||||||
|
procedure GetUniqueFieldValues(AField: TField; AList: TStrings);
|
||||||
|
procedure mnuFilterHandler(Sender: TObject);
|
||||||
|
procedure PrepareFilter;
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
StrUtils, fpsTypes;
|
||||||
|
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
procedure TMainForm.acFilterByCountryExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Dataset.Filtered := false;
|
||||||
|
if (cmbFilter.Text = '') or (cmbFilter.Text = 'all countries') then
|
||||||
|
cmbFilter.ItemIndex := 0
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Dataset.Filter := 'Country = "' + cmbFilter.Text + '"';
|
||||||
|
Dataset.Filtered := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acClearBookmarkExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
ac: TAction;
|
||||||
|
mnu: TComponent;
|
||||||
|
idx: Integer;
|
||||||
|
begin
|
||||||
|
if not (Sender is TAction) then
|
||||||
|
exit;
|
||||||
|
mnu := TAction(Sender).ActionComponent;
|
||||||
|
idx := mnu.Tag;
|
||||||
|
if idx <= 0 then
|
||||||
|
exit;
|
||||||
|
if Dataset.BookmarkValid(FBookmarks[idx]) then
|
||||||
|
begin
|
||||||
|
Dataset.FreeBookmark(FBookmarks[idx]);
|
||||||
|
FBookmarks[idx] := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acFindCityExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
s: String;
|
||||||
|
begin
|
||||||
|
s := InputBox('Find city', 'City', '');
|
||||||
|
if s <> '' then
|
||||||
|
begin
|
||||||
|
if not Dataset.Locate('City', s, [loCaseInsensitive, loPartialKey]) then
|
||||||
|
ShowMessage('Not found.');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acGotoBookmarkExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
ac: TAction;
|
||||||
|
mnu: TComponent;
|
||||||
|
idx: Integer;
|
||||||
|
begin
|
||||||
|
if not (Sender is TAction) then
|
||||||
|
exit;
|
||||||
|
mnu := TAction(Sender).ActionComponent;
|
||||||
|
idx := mnu.Tag;
|
||||||
|
if idx <= 0 then
|
||||||
|
exit;
|
||||||
|
if Dataset.BookmarkValid(FBookmarks[idx]) then
|
||||||
|
try
|
||||||
|
Dataset.GotoBookmark(FBookmarks[idx]);
|
||||||
|
except
|
||||||
|
MessageDlg('Bookmark not found (filtered?)', mtError, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acNoFilterExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cmbFilter.ItemIndex := 0;
|
||||||
|
|
||||||
|
Dataset.Filtered := false;
|
||||||
|
Dataset.Filter := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acSetBookmarkExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
ac: TAction;
|
||||||
|
mnu: TComponent;
|
||||||
|
idx: Integer;
|
||||||
|
begin
|
||||||
|
if not (Sender is TAction) then
|
||||||
|
exit;
|
||||||
|
mnu := TAction(Sender).ActionComponent;
|
||||||
|
idx := mnu.Tag;
|
||||||
|
if idx <= 0 then
|
||||||
|
exit;
|
||||||
|
FBookmarks[idx] := Dataset.Getbookmark;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acSortAscExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FSortColumn <> nil then FSortColumn.Title.ImageIndex := -1;
|
||||||
|
FSortColumn := DBGrid.SelectedColumn;
|
||||||
|
FSortColumn.Title.ImageIndex := 0;
|
||||||
|
Dataset.SortOnField(FSortColumn.FieldName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.acSortDescExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FSortColumn <> nil then FSortColumn.Title.ImageIndex := -1;
|
||||||
|
FSortColumn := DBGrid.SelectedColumn;
|
||||||
|
FSortColumn.Title.ImageIndex := 1;
|
||||||
|
Dataset.SortOnField(DBGrid.SelectedColumn.FieldName, [ssoDescending]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.BookmarkDropdownPopup(Sender: TObject);
|
||||||
|
var
|
||||||
|
idx: Integer;
|
||||||
|
dropdown: TPopupMenu;
|
||||||
|
btn: TToolButton;
|
||||||
|
begin
|
||||||
|
if not (Sender is TPopupMenu) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
dropdown := TPopupMenu(Sender);
|
||||||
|
idx := dropdown.Tag;
|
||||||
|
mnuSetBookmark.Tag := idx;
|
||||||
|
mnuGotoBookmark.Tag := idx;
|
||||||
|
mnuClearBookmark.Tag := idx;
|
||||||
|
|
||||||
|
acSetBookmark.Enabled := true;
|
||||||
|
acGotoBookmark.Enabled := Dataset.BookmarkValid(FBookmarks[idx]);
|
||||||
|
acClearBookmark.Enabled := Dataset.BookmarkValid(FBookmarks[idx]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnBookmark1MouseMove(Sender: TObject; Shift: TShiftState;
|
||||||
|
X, Y: Integer);
|
||||||
|
begin
|
||||||
|
with TToolButton(Sender) do
|
||||||
|
DropDownMenu.Tag := Tag;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbFilterEditingDone(Sender: TObject);
|
||||||
|
begin
|
||||||
|
acFilterByCountryExecute(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
// Open spreadsheet file as dataset
|
||||||
|
Dataset.FileName := 'Temperatures.xlsx';
|
||||||
|
Dataset.Open;
|
||||||
|
|
||||||
|
// Tailor the columns of the DBGrid
|
||||||
|
DBGrid.Columns[0].Width := 100;
|
||||||
|
DBGrid.Columns[1].Width := 100;
|
||||||
|
for i := 2 to DBGrid.Columns.Count-1 do
|
||||||
|
with DBGrid.Columns[i] do begin
|
||||||
|
Width := 64;
|
||||||
|
DisplayFormat := '0.0'; // Avoid too many decimal places in floating point fields.
|
||||||
|
Title.Alignment := taCenter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Prepare bookmarks
|
||||||
|
FBookmarks[1] := nil;
|
||||||
|
FBookmarks[2] := nil;
|
||||||
|
FBookmarks[3] := nil;
|
||||||
|
|
||||||
|
// Narrower input box
|
||||||
|
cInputQueryEditSizePercents := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DBGridPopupMenuPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
mnuGotoBookmark1.Enabled := Dataset.BookmarkValid(FBookmarks[1]);
|
||||||
|
mnuGotoBookmark2.Enabled := Dataset.BookmarkValid(FBookmarks[2]);
|
||||||
|
mnuGotoBookmark3.Enabled := Dataset.BookmarkValid(FBookmarks[3]);
|
||||||
|
|
||||||
|
mnuClearBookmark1.Enabled := Dataset.BookmarkValid(FBookmarks[1]);
|
||||||
|
mnuClearBookmark2.Enabled := Dataset.BookmarkValid(FBookmarks[2]);
|
||||||
|
mnuClearBookmark3.Enabled := Dataset.BookmarkValid(FBookmarks[3]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Sorts the grid (and worksheet) when a grid header is clicked. A sort indicator
|
||||||
|
image is displayed at the right of the column title. Requires an ImageList
|
||||||
|
assigned to the grid's TitleImageList having the image for ascending and
|
||||||
|
descending sorts at index 0 and 1, respectively. }
|
||||||
|
procedure TMainForm.DBGridTitleClick(Column: TColumn);
|
||||||
|
var
|
||||||
|
options: TsSortOptions;
|
||||||
|
begin
|
||||||
|
options := []; // [] --> ascending sort
|
||||||
|
|
||||||
|
if FSortColumn = Column then
|
||||||
|
// Previously selected sort column was clicked another time...
|
||||||
|
begin
|
||||||
|
// Toggle between ascending and descending sort images
|
||||||
|
FSortColumn.Title.ImageIndex := (FSortColumn.Title.ImageIndex + 1) mod 2;
|
||||||
|
if FSortColumn.Title.ImageIndex = 1 then
|
||||||
|
options := [ssoDescending];
|
||||||
|
end
|
||||||
|
else
|
||||||
|
// A previously unsorted column was clicked...
|
||||||
|
begin
|
||||||
|
// Remove sort image from old sort column
|
||||||
|
if FSortColumn <> nil then FSortColumn.Title.ImageIndex := -1;
|
||||||
|
// Store clicked column as new SortColumn
|
||||||
|
FSortColumn := Column;
|
||||||
|
// Set sort image index to "ascending sort"
|
||||||
|
FSortColumn.Title.ImageIndex := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Execute the sorting operation.
|
||||||
|
Dataset.SortOnField(FSortColumn.Field.FieldName, options);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.DatasetAfterOpen(ADataSet: TDataSet);
|
||||||
|
begin
|
||||||
|
PrepareFilter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.GetUniqueFieldValues(AField: TField; AList: TStrings);
|
||||||
|
var
|
||||||
|
bm: TBookmark;
|
||||||
|
L: TStringList;
|
||||||
|
begin
|
||||||
|
bm := Dataset.GetBookmark;
|
||||||
|
Dataset.DisableControls;
|
||||||
|
L := TStringList.Create;
|
||||||
|
try
|
||||||
|
L.Sorted := true;
|
||||||
|
L.Duplicates := dupIgnore;
|
||||||
|
Dataset.First;
|
||||||
|
while not Dataset.EOF do
|
||||||
|
begin
|
||||||
|
L.Add(AField.AsString);
|
||||||
|
Dataset.Next;
|
||||||
|
end;
|
||||||
|
AList.Assign(L);
|
||||||
|
finally
|
||||||
|
L.Free;
|
||||||
|
if Dataset.BookmarkValid(bm) then
|
||||||
|
begin
|
||||||
|
Dataset.GotoBookmark(bm);
|
||||||
|
Dataset.FreeBookmark(bm);
|
||||||
|
end;
|
||||||
|
Dataset.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.mnuFindCityClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
s: String;
|
||||||
|
begin
|
||||||
|
s := InputBox('Find city', 'City', '');
|
||||||
|
if s <> '' then
|
||||||
|
begin
|
||||||
|
if not Dataset.Locate('City', s, [loCaseInsensitive, loPartialKey]) then
|
||||||
|
ShowMessage('Not found.');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.mnuFilterHandler(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cmbFilter.Text := (Sender as TMenuItem).Caption;
|
||||||
|
|
||||||
|
Dataset.Filtered := false;
|
||||||
|
Dataset.Filter := 'Country = "' + (Sender as TMenuItem).Caption + '"';
|
||||||
|
Dataset.Filtered := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.PrepareFilter;
|
||||||
|
var
|
||||||
|
L: TStrings;
|
||||||
|
mnu: TMenuItem;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
L := TStringList.Create;
|
||||||
|
try
|
||||||
|
GetUniqueFieldValues(DBGrid.SelectedColumn.Field, L);
|
||||||
|
for i := 0 to L.Count-1 do begin
|
||||||
|
mnu := TMenuItem.Create(mnuFilterByCountry);
|
||||||
|
mnu.Caption := L[i];
|
||||||
|
mnu.OnClick := @mnuFilterHandler;
|
||||||
|
MnuFilterByCountry.Add(mnu);
|
||||||
|
end;
|
||||||
|
|
||||||
|
cmbFilter.Items.Assign(L);
|
||||||
|
cmbFilter.Items.Insert(0, 'all countries');
|
||||||
|
cmbFilter.ItemIndex := 0;
|
||||||
|
|
||||||
|
finally
|
||||||
|
L.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
components/fpspreadsheet/images/demos/sort_asc.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_asc.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 534 B |
BIN
components/fpspreadsheet/images/demos/sort_asc_150.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_asc_150.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 854 B |
BIN
components/fpspreadsheet/images/demos/sort_asc_200.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_asc_200.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 959 B |
BIN
components/fpspreadsheet/images/demos/sort_desc.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_desc.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 567 B |
BIN
components/fpspreadsheet/images/demos/sort_desc_150.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_desc_150.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 859 B |
BIN
components/fpspreadsheet/images/demos/sort_desc_200.png
Normal file
BIN
components/fpspreadsheet/images/demos/sort_desc_200.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1002 B |
Reference in New Issue
Block a user