paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 01:21:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: build modes: fixed type picklist

Browse Source 
git-svn-id: trunk@23362 -
This commit is contained in:
mattias 2010-01-03 16:18:11 +00:00
parent 2effde41c0
commit 0e35f7bf06
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/frames/buildmodeseditor.pas
View File

@ -361,7 +361,9 @@ var
s: String; s: String;
sl: TStringList; sl: TStringList;
begin begin
//DebugLn(['TBuildModesGrid.UpdateTypePickList ']);
TypeCol:=GetTypeCol; TypeCol:=GetTypeCol;
if TypeCol>=Columns.Count then exit;
Identifiers:=TStringToStringTree.Create(false); Identifiers:=TStringToStringTree.Create(false);
sl:=nil; sl:=nil;
try try
@ -388,7 +390,9 @@ begin
sl.Add(PStringToStringItem(Node.Data)^.Name); sl.Add(PStringToStringItem(Node.Data)^.Name);
Node:=Identifiers.Tree.FindSuccessor(Node); Node:=Identifiers.Tree.FindSuccessor(Node);
end; end;
Columns[TypeCol].ButtonStyle:=cbsPickList;
Columns[TypeCol].PickList:=sl; Columns[TypeCol].PickList:=sl;
//DebugLn(['TBuildModesGrid.UpdateTypePickList ',TypeCol,' ',sl.Text]);
finally finally
sl.Free; sl.Free;
Identifiers.Free; Identifiers.Free;
@ -405,7 +409,7 @@ var
Vars: TLazBuildVariables; Vars: TLazBuildVariables;
aVariable: TLazBuildVariable; aVariable: TLazBuildVariable;
begin begin
ValueCol:=GroupModeCount+2; ValueCol:=GetTypeCol+1;
if ValueCol>=Columns.Count then exit; if ValueCol>=Columns.Count then exit;
CurModeRow:=GetSelectedModeRow; CurModeRow:=GetSelectedModeRow;
sl:=TStringList.Create; sl:=TStringList.Create;
@ -478,9 +482,11 @@ function TBuildModesGrid.SelectCell(aCol, aRow: Integer): boolean;
begin begin
Result:=inherited SelectCell(aCol, aRow); Result:=inherited SelectCell(aCol, aRow);
if (not FRebuilding) if (not FRebuilding)
and (not (csDestroyingHandle in ControlState)) and (not (csDestroyingHandle in ControlState)) then
then begin
UpdateTypePickList;
UpdateValuePickList; UpdateValuePickList;
end;
end; end;
function TBuildModesGrid.GetModeRowCount: integer; function TBuildModesGrid.GetModeRowCount: integer;
@ -733,7 +739,7 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
fGraph:=TBuildModeGraph.Create; fGraph:=TBuildModeGraph.Create;
FModeRows:=TFPList.Create; FModeRows:=TFPList.Create;
Options:=Options+[goEditing]; Options:=Options+[goEditing,goColSizing];
OnEditButtonClick:=@BuildModesGridEditButtonClick; OnEditButtonClick:=@BuildModesGridEditButtonClick;
end; end;