paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

ValEdit, fix strange focus swapping reported by bart

Browse Source 
git-svn-id: trunk@40358 -
This commit is contained in:
jesus 2013-02-20 09:28:58 +00:00
parent c8f3aa7628
commit d79e1a4d79
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/valedit.pas
View File

@ -150,7 +150,7 @@ type
procedure DefineCellsProperty(Filer: TFiler); override;
function GetEditText(ACol, ARow: Integer): string; override;
function GetCells(ACol, ARow: Integer): string; override;
procedure SelectEditor; override;
function GetDefaultEditor(Column: Integer): TWinControl; override;
procedure SetCells(ACol, ARow: Integer; const AValue: string); override;
procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
procedure TitlesChanged(Sender: TObject);
@ -950,25 +950,27 @@ begin
end;
end;
procedure TValueListEditor.SelectEditor;
function TValueListEditor.GetDefaultEditor(Column: Integer): TWinControl;
var
ItemProp: TItemProp;
begin
inherited SelectEditor;
if Col <> 1 then Exit; // Only for the Value column
ItemProp := nil;
//debugln('**** A Col=',dbgs(col),' Row=',dbgs(row),' (',dbgs(itemprop),')');
ItemProp := Strings.GetItemProp(Row-FixedRows);
if Assigned(ItemProp) then
case ItemProp.EditStyle of
esSimple: Editor := EditorByStyle(cbsAuto);
esEllipsis: Editor := EditorByStyle(cbsEllipsis);
esPickList: begin
Editor := EditorByStyle(cbsPickList);
(Editor as TCustomComboBox).Items.Assign(ItemProp.PickList);
//Style := csDropDown, default = csDropDownList;
Result:=inherited GetDefaultEditor(Column);
if Column=1 then
begin
ItemProp := nil;
//debugln('**** A Col=',dbgs(col),' Row=',dbgs(row),' (',dbgs(itemprop),')');
ItemProp := Strings.GetItemProp(Row-FixedRows);
if Assigned(ItemProp) then
case ItemProp.EditStyle of
esSimple: result := EditorByStyle(cbsAuto);
esEllipsis: result := EditorByStyle(cbsEllipsis);
esPickList: begin
result := EditorByStyle(cbsPickList);
(result as TCustomComboBox).Items.Assign(ItemProp.PickList);
//Style := csDropDown, default = csDropDownList;
end;
end;
end;
end;
end;
procedure TValueListEditor.SetCells(ACol, ARow: Integer; const AValue: string);