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