b211118a1a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
88 lines
2.3 KiB
ObjectPascal
88 lines
2.3 KiB
ObjectPascal
unit main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, BufDataset, DB, Forms, Controls, Graphics, Dialogs,
|
|
DBGrids, JvDBLookup, ExtCtrls, DBCtrls;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Cities: TBufDataset;
|
|
DBEdit1: TDBEdit;
|
|
DBGrid1: TDBGrid;
|
|
DSCities: TDataSource;
|
|
DSSomeData: TDataSource;
|
|
ImageList1: TImageList;
|
|
JvDBLookupCombo1: TJvDBLookupCombo;
|
|
JvDBLookupList1: TJvDBLookupList;
|
|
Panel1: TPanel;
|
|
SomeData: TBufDataset;
|
|
Splitter1: TSplitter;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure JvDBLookupList1GetImageIndex(Sender: TObject; IsEmpty: Boolean;
|
|
var ImageIndex: Integer; var TextMargin: Integer);
|
|
private
|
|
|
|
public
|
|
Image: TImage;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
const
|
|
ICON_DE = 0;
|
|
ICON_UK = 1;
|
|
ICON_ES = 2;
|
|
ICON_FR = 3;
|
|
ICON_IT = 4;
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormShow(Sender: TObject);
|
|
begin
|
|
SomeData.CreateDataset;
|
|
SomeData.Open;
|
|
Cities.CreateDataset;
|
|
Cities.Open;
|
|
Cities.AppendRecord([ 1, 'Paris', 'France', ICON_FR]);
|
|
Cities.AppendRecord([ 2, 'Marseilles', 'France', ICON_FR]);
|
|
Cities.AppendRecord([ 3, 'London', 'United Kingdom', ICON_UK]);
|
|
Cities.AppendRecord([ 4, 'Oxford', 'United Kingdom', ICON_UK]);
|
|
Cities.AppendRecord([ 5, 'Lyon', 'France', ICON_FR]);
|
|
Cities.AppendRecord([ 6, 'Berlin', 'Germany', ICON_DE]);
|
|
Cities.AppendRecord([ 7, 'Hamburg', 'Germany', ICON_DE]);
|
|
Cities.AppendRecord([ 8, 'Munich', 'Germany', ICON_DE]);
|
|
Cities.AppendRecord([ 9, 'Frankfurt', 'Germany', ICON_DE]);
|
|
Cities.AppendRecord([10, 'Rome', 'Italy', ICON_IT]);
|
|
Cities.AppendRecord([11, 'Venice', 'Italy', ICON_IT]);
|
|
Cities.AppendRecord([12, 'Madrid', 'Spain', ICON_ES]);
|
|
Cities.AppendRecord([13, 'Barcelona', 'Spain', ICON_ES]);
|
|
Cities.FieldByName('NAME').DisplayWidth := 10;
|
|
Cities.FieldByName('COUNTRY').DisplayWidth := 10;
|
|
SomeData.Append;
|
|
end;
|
|
|
|
procedure TForm1.JvDBLookupList1GetImageIndex(Sender: TObject;
|
|
IsEmpty: Boolean; var ImageIndex: Integer; var TextMargin: Integer);
|
|
begin
|
|
if IsEmpty then
|
|
ImageIndex := 5
|
|
else
|
|
ImageIndex := Cities.FieldByName('FLAG').AsInteger;
|
|
TextMargin := ImageList1.Width + 2;
|
|
end;
|
|
|
|
end.
|
|
|