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

educationlaz: less hints

Browse Source 
git-svn-id: trunk@44083 -
This commit is contained in:
mattias 2014-02-15 23:16:19 +00:00
parent 31cec86f69
commit 21a6cb800e
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/education/educomppalette.pas
View File

@ -53,7 +53,7 @@ type
LeftPanel: TPanel;
ShowAllButton: TButton;
procedure ComponentsTreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer);
procedure FrameClick(Sender: TObject);
procedure HideAllButtonClick(Sender: TObject);
procedure ShowAllButtonClick(Sender: TObject);

6
components/education/eduenvoptsframe.pas
View File

@ -19,8 +19,8 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, AvgLvlTree,
LazConfigStorage, IDEOptionsIntf, ComponentReg, IDEImagesIntf, LazIDEIntf,
Dialogs, ExtCtrls, StdCtrls,
LazConfigStorage, IDEOptionsIntf, IDEImagesIntf, LazIDEIntf,
EduOptions;
const
@ -48,7 +48,7 @@ type
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function GetTitle: String; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;

2
components/education/eduoptions.pas
View File

@ -173,7 +173,7 @@ type
procedure DoAfterWrite(Restore: boolean); override;
procedure Apply; virtual;
function GetFullFilename: string;
function OnProjectOpened(Sender: TObject; AProject: TLazProject): TModalResult;
function OnProjectOpened(Sender: TObject; {%H-}AProject: TLazProject): TModalResult;
property Filename: string read FFilename write SetFilename;
property Enabled: boolean read FEnabled write SetEnabled;
property NeedLoad: boolean read FNeedLoad write FNeedLoad;

2
components/education/edupkgsystem.pas
View File

@ -54,7 +54,7 @@ type
private
public
function GetTitle: String; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;