paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +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; LeftPanel: TPanel;
ShowAllButton: TButton; ShowAllButton: TButton;
procedure ComponentsTreeViewMouseDown(Sender: TObject; procedure ComponentsTreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer);
procedure FrameClick(Sender: TObject); procedure FrameClick(Sender: TObject);
procedure HideAllButtonClick(Sender: TObject); procedure HideAllButtonClick(Sender: TObject);
procedure ShowAllButtonClick(Sender: TObject); procedure ShowAllButtonClick(Sender: TObject);

6
components/education/eduenvoptsframe.pas
View File

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

2
components/education/eduoptions.pas
View File

@ -173,7 +173,7 @@ type
procedure DoAfterWrite(Restore: boolean); override; procedure DoAfterWrite(Restore: boolean); override;
procedure Apply; virtual; procedure Apply; virtual;
function GetFullFilename: string; 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 Filename: string read FFilename write SetFilename;
property Enabled: boolean read FEnabled write SetEnabled; property Enabled: boolean read FEnabled write SetEnabled;
property NeedLoad: boolean read FNeedLoad write FNeedLoad; property NeedLoad: boolean read FNeedLoad write FNeedLoad;

2
components/education/edupkgsystem.pas
View File

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