pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

for all rx lookup controls - in PopUpForm add property SizePriority for better calc columns width

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2385 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-04-10 19:53:32 +00:00
parent 9cb94c0591
commit b5d538019f
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/rxpopupunit.pas
View File

@ -52,11 +52,9 @@ type
FLookupDisplayField:string;
procedure ClearFind;
procedure FindNextChar(var UTF8Key: TUTF8Char);
// procedure FindNextUTF8Char(UTF8Key: TUTF8Char);
procedure FindPriorChar;
procedure SetLookupDisplayIndex(const AValue: integer);
protected
// procedure KeyPress(var Key: char); override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
property LookupDisplayIndex:integer read FLookupDisplayIndex write SetLookupDisplayIndex;
@ -100,6 +98,7 @@ type
FFieldName: string;
FFont: TFont;
FImageList: TImageList;
FSizePriority: Integer;
FTitle: TPopUpColumnTitle;
FValueChecked: string;
FValueUnchecked: string;
@ -110,6 +109,7 @@ type
procedure SetFieldName(const AValue: string);
procedure SetFont(const AValue: TFont);
procedure SetImageList(const AValue: TImageList);
procedure SetSizePriority(AValue: Integer);
procedure SetTitle(const AValue: TPopUpColumnTitle);
procedure SetValueChecked(const AValue: string);
procedure SetValueUnchecked(const AValue: string);
@ -128,6 +128,7 @@ type
property ImageList:TImageList read FImageList write SetImageList;
property ValueChecked: string read FValueChecked write SetValueChecked;
property ValueUnchecked: string read FValueUnchecked write SetValueUnchecked;
property SizePriority: Integer read FSizePriority write SetSizePriority default 1;
property Title:TPopUpColumnTitle read FTitle write SetTitle;
property Width: Integer read FWidth write SetWidth;
end;
@ -416,6 +417,7 @@ var
i:integer;
Column:TPopUpColumn;
begin
FGrid.BeginUpdate;
for i:=0 to FPopUpFormOptions.Columns.Count - 1 do
begin
GK:=FGrid.Columns.Add as TRxColumn;
@ -426,6 +428,7 @@ begin
GK.DisplayFormat:=Column.DisplayFormat;
// GK.Font:=Column.Font;
GK.ImageList:=Column.ImageList;
GK.SizePriority:=Column.SizePriority;
GK.ValueChecked:=Column.ValueChecked;
GK.ValueUnchecked:=Column.ValueUnchecked;
@ -438,6 +441,7 @@ begin
GK.Title.Layout:=Column.Title.Layout;
GK.Title.Caption:=Column.Title.Caption;
end;
FGrid.EndUpdate;
end;
constructor TPopUpForm.CreatePopUp(AOwner: TComponent;
@ -738,6 +742,12 @@ begin
FImageList:=AValue;
end;
procedure TPopUpColumn.SetSizePriority(AValue: Integer);
begin
if FSizePriority=AValue then Exit;
FSizePriority:=AValue;
end;
procedure TPopUpColumn.SetTitle(const AValue: TPopUpColumnTitle);
begin
FTitle.Assign(AValue);
@ -779,6 +789,7 @@ begin
FTitle:=TPopUpColumnTitle.Create;
FColor:=clWindow;
FWidth:=65;
FSizePriority:=1;
end;
destructor TPopUpColumn.Destroy;