paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 15:25:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: build mode: fixed selection

Browse Source 
git-svn-id: trunk@23205 -
This commit is contained in:
mattias 2009-12-20 12:50:26 +00:00
parent e5f3fab6f3
commit 9dceb06c2c
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/frames/buildmodeseditor.pas
View File

@ -55,7 +55,6 @@ type
FGraph: TBuildModeGraph;
FGroupModeCount: integer;
FModeRows: TFPList; // list of TBuildModeGridRow
FOnCellSelected: TNotifyEvent;
FRebuilding: boolean;
function GetSelectedModeRow: TBuildModeGridRow;
function GetModeRowCount: integer;
@ -82,7 +81,6 @@ type
override;
procedure DrawCell(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState); override;
procedure SelectEditor; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -98,7 +96,6 @@ type
property ModeRows[Index: integer]: TBuildModeGridRow read GetModeRows;
property GroupModeCount: integer read FGroupModeCount; // number of modes that are group of modes
property SelectedModeRow: TBuildModeGridRow read GetSelectedModeRow;
property OnCellSelected: TNotifyEvent read FOnCellSelected write FOnCellSelected;
end;
{ TBuildModesEditorFrame }
@ -111,7 +108,7 @@ type
DeleteBMRowToolButton: TToolButton;
NewBuildModeGroupToolButton: TToolButton;
procedure DeleteBMRowToolButtonClick(Sender: TObject);
procedure GridCellSelected(Sender: TObject);
procedure GridSelection(Sender: TObject; aCol, aRow: Integer);
procedure NewBuildFlagToolButtonClick(Sender: TObject);
procedure NewBuildModeGroupToolButtonClick(Sender: TObject);
procedure NewBuildModeToolButtonClick(Sender: TObject);
@ -610,12 +607,6 @@ begin
inherited DrawCell(aCol, aRow, aRect, aState);
end;
procedure TBuildModesGrid.SelectEditor;
begin
inherited SelectEditor;
if Assigned(OnCellSelected) then OnCellSelected(Self);
end;
function TBuildModesGrid.GetSelectedModeRow: TBuildModeGridRow;
begin
if (Row<1) or (Row>ModeRowCount) then
@ -910,7 +901,8 @@ begin
Grid.DeleteSelectedModeRow;
end;
procedure TBuildModesEditorFrame.GridCellSelected(Sender: TObject);
procedure TBuildModesEditorFrame.GridSelection(Sender: TObject; aCol,
aRow: Integer);
begin
UpdateButtons;
end;
@ -923,7 +915,8 @@ begin
Name:='Grid';
Parent:=Self;
Align:=alClient;
OnCellSelected:=@GridCellSelected;
//OnCellSelected:=@GridCellSelected;
OnSelection:=@GridSelection;
end;
BuildModesToolBar.Images := IDEImages.Images_16;