mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 19:18:23 +02:00
IDE: clean up
git-svn-id: trunk@50794 -
This commit is contained in:
parent
c39a94ebbe
commit
04312f7e68
@ -64,9 +64,9 @@ type
|
|||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
|
procedure StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
|
||||||
var CanSelect: Boolean);
|
var {%H-}CanSelect: Boolean);
|
||||||
procedure StringGrid2SelectCell(Sender: TObject; aCol, aRow: Integer;
|
procedure StringGrid2SelectCell(Sender: TObject; aCol, aRow: Integer;
|
||||||
var CanSelect: Boolean);
|
var {%H-}CanSelect: Boolean);
|
||||||
procedure StringGridKeyPress(Sender: TObject; var Key: char);
|
procedure StringGridKeyPress(Sender: TObject; var Key: char);
|
||||||
procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;
|
procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
{%H-}Shift: TShiftState; X, Y: Integer);
|
{%H-}Shift: TShiftState; X, Y: Integer);
|
||||||
|
@ -26,8 +26,7 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, FileUtil, Forms, ExtCtrls, StdCtrls, Dialogs, EditBtn,
|
Classes, SysUtils, FileUtil, Forms, ExtCtrls, StdCtrls, Dialogs, EditBtn,
|
||||||
SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf,
|
SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;
|
||||||
IDEDialogs;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user