diff options
Diffstat (limited to 'examples/gui')
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpi | 51 | ||||
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpr | 178 |
2 files changed, 229 insertions, 0 deletions
diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi new file mode 100644 index 00000000..8e8f6e62 --- /dev/null +++ b/examples/gui/listviewtest/listviewtest.lpi @@ -0,0 +1,51 @@ +<?xml version="1.0"?> +<CONFIG> + <ProjectOptions> + <PathDelim Value="/"/> + <Version Value="5"/> + <General> + <SessionStorage Value="InProjectDir"/> + <MainUnit Value="0"/> + <IconPath Value="./"/> + <TargetFileExt Value=""/> + </General> + <VersionInfo> + <ProjectVersion Value=""/> + </VersionInfo> + <PublishOptions> + <Version Value="2"/> + <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> + <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> + </local> + </RunParams> + <RequiredPackages Count="2"> + <Item1> + <PackageName Value="fpgui_package"/> + </Item1> + <Item2> + <PackageName Value="fpgfx_package"/> + </Item2> + </RequiredPackages> + <Units Count="1"> + <Unit0> + <Filename Value="listviewtest.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="listviewtest"/> + </Unit0> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="5"/> + <CodeGeneration> + <Generate Value="Faster"/> + </CodeGeneration> + <Other> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> +</CONFIG> diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr new file mode 100644 index 00000000..9d503590 --- /dev/null +++ b/examples/gui/listviewtest/listviewtest.lpr @@ -0,0 +1,178 @@ +program listviewtest; + +{$mode objfpc}{$H+} + +uses + Classes, fpgui_package, fpgfx_package, fpgfx, sysutils , + gui_listview, gui_form, gui_button, gui_edit, gfxbase, gui_checkbox; + +type + + { TMainForm } + + TMainForm = class(TfpgForm) + private + FEdit: TfpgEdit; + FAddButton: TfpgButton; + FListView: TfpgListView; + FQuitButton: TfpgButton; + FCheck: TfpgCheckBox; + + procedure CloseBttn(Sender: TObject); + procedure AddBttn(Sender: TObject); + procedure ShowHeadersChange(Sender: TObject); + procedure PaintItem(ListView: TfpgListView; ACanvas: TfpgCanvas; Item: TfpgLVItem; + Area:TRect; var PaintPart: TfpgLVItemPaintPart); + + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +{ TMainForm } + +procedure TMainForm.CloseBttn(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.AddBttn(Sender: TObject); +var + Item: TfpgLVItem; +begin + FListView.BeginUpdate; + Item := FListView.ItemAdd; + Item.Caption :=FEdit.Text+IntToStr(FListView.Items.Count); + Item.SubItems.Add('0'); + Item.SubItems.Add('1'); + Item.SubItems.Add('2'); + Item.SubItems.Add('3'); + Item.SubItems.Add('4'); + FListView.EndUpdate; + +end; + +procedure TMainForm.ShowHeadersChange(Sender: TObject); +begin + FListView.ShowHeaders := TfpgCheckBox(Sender).Checked; +end; + +procedure TMainForm.PaintItem(ListView: TfpgListView; ACanvas: TfpgCanvas; + Item: TfpgLVItem; Area: TRect; var PaintPart: TfpgLVItemPaintPart); +begin + if ListView.Items.IndexOf(Item) mod 2 = 0 then ACanvas.TextColor := clRed;; +end; + +constructor TMainForm.Create(AOwner: TComponent); +var + LVColumn: TfpgLVColumn; + TmpListView : TfpgListView; +begin + inherited Create(AOwner); + + WindowTitle := 'ListView Test'; + SetPosition(200, 200, 610, 455); + + FListView := TfpgListView.Create(Self); + with FListView do begin + Parent := Self; + Top := 10; + Left := 10; + Width := 320; + Height := 400; + OnPaintItem := @PaintItem; + MultiSelect := True; + end; + + TmpListView := TfpgListView.Create(Self); + with TmpListView do begin + Parent := Self; + Top := 10; + Left := 335; + Width := 270; + Height := 400; + //OnPaintItem := @PaintItem; + Items := FListView.Items; + end; + + + LVColumn := TfpgLVColumn.Create(FListView.Columns); + LVColumn.Caption := 'Column 1'; + LVColumn.Width := 150; + LVColumn.Height := 50; + FListView.Columns.Add(LVColumn); + TmpListView.Columns.Add(LVColumn); + + LVColumn := TfpgLVColumn.Create(FListView.Columns); + LVColumn.Caption := 'Column 2'; + LVColumn.Width := 100; + LVColumn.Height := 50; + //LVColumn.Visible := False; + FListView.Columns.Add(LVColumn); + //TmpListView.Columns.Add(LVColumn); + + LVColumn := TfpgLVColumn.Create(FListView.Columns); + LVColumn.Caption := 'Column 3'; + LVColumn.Width := 200; + LVColumn.Height := 50; + //LVColumn.Visible := False; + FListView.Columns.Add(LVColumn); + TmpListView.Columns.Add(LVColumn); + LVColumn.ColumnIndex := 2; + + + FEdit := TfpgEdit.Create(Self); + with FEdit do begin + Parent := Self; + Top := 420; + Left := 10; + Width := 100; + end; + + FAddButton := TfpgButton.Create(Self); + with FAddButton do begin + Parent := Self; + Top := 420; + Left := 120; + Width := 80; + Text := 'Add'; + OnClick := @AddBttn; + end; + + FQuitButton := TfpgButton.Create(Self); + with FQuitButton do begin + Parent := Self; + Top := 420; + Left := 210; + Width := 80; + Text := 'Quit'; + OnClick := @CloseBttn; + end; + + FCheck := TfpgCheckBox.Create(Self); + with FCheck do begin + Parent := Self; + Top := 420; + Left := 290; + Width := 110; + Checked := True; + Text := 'ShowHeaders'; + OnChange := @ShowHeadersChange; + end; + +end; + +destructor TMainForm.Destroy; +begin + inherited Destroy; +end; + +begin + fpgApplication.Initialize; + with TMainForm.Create(nil) do begin + Show; + fpgApplication.Run; + Free; + end; +end. + |