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

published keypreview

Browse Source 
git-svn-id: trunk@4085 -
This commit is contained in:
mattias 2003-04-20 16:32:58 +00:00
parent 535b6b1c3a
commit a9c753a035
3 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/projectinspector.pas
View File

@ -590,6 +590,7 @@ end;
procedure TProjectInspectorForm.UpdateButtons;
var
CurFile: TUnitInfo;
CurDependency: TPkgDependency;
begin
if (FUpdateLock>0) or (not Visible) then begin
Include(FFlags,pifButtonsChanged);
@ -599,8 +600,11 @@ begin
if LazProject<>nil then begin
AddBitBtn.Enabled:=true;
CurFile:=GetSelectedFile;
RemoveBitBtn.Enabled:=(CurFile<>nil) and (CurFile<>LazProject.MainUnitInfo);
OpenBitBtn.Enabled:=(CurFile<>nil);
CurDependency:=GetSelectedDependency;
RemoveBitBtn.Enabled:=((CurFile<>nil) and (CurFile<>LazProject.MainUnitInfo))
or ((CurDependency<>nil) and (not CurDependency.Removed));
OpenBitBtn.Enabled:=((CurFile<>nil)
or ((CurDependency<>nil) and (not CurDependency.Removed)));
OptionsBitBtn.Enabled:=true;
end else begin
AddBitBtn.Enabled:=false;

4
lcl/forms.pp
View File

@ -293,6 +293,7 @@ type
procedure DoCreate;
procedure DoDestroy;
procedure IconChanged(Sender: TObject);
function IsKeyPreviewStored: boolean;
procedure SetActive(AValue: Boolean);
procedure SetActiveControl(AWinControl: TWinControl);
procedure SetBorderStyle(Value : TFormBorderStyle);
@ -382,7 +383,7 @@ type
property FormStyle : TFormStyle read FFormStyle write SetFormStyle default fsNormal;
property FormState : TFormState read FFormState;
property HelpFile: string read FHelpFile write FHelpFile stored IsHelpFileStored;
property KeyPreview: Boolean read FKeyPreview write FKeyPreview;
property KeyPreview: Boolean read FKeyPreview write FKeyPreview stored IsKeyPreviewStored;
property Menu : TMainMenu read FMenu write SetMenu;
property ModalResult : TModalResult read FModalResult write SetModalResult;
property Visible write SetVisible default False;
@ -414,6 +415,7 @@ type
property FormStyle;
property HelpFile;
property Icon;
property KeyPreview;
property Menu;
property OnActivate;
property OnClose;

11
lcl/include/customform.inc
View File

@ -181,6 +181,14 @@ begin
CNSendMessage(LM_SETFORMICON,Self,Pointer(GetIconHandle));
end;
{------------------------------------------------------------------------------
function TCustomForm.IsKeyPreviewStored: boolean;
------------------------------------------------------------------------------}
function TCustomForm.IsKeyPreviewStored: boolean;
begin
Result:=FKeyPreview=true;
end;
{------------------------------------------------------------------------------
Method: TCustomForm.SetIcon
Params: the new icon
@ -1406,6 +1414,9 @@ end;
{ =============================================================================
$Log$
Revision 1.97 2003/04/20 16:32:58 mattias
published keypreview
Revision 1.96 2003/04/16 22:11:35 mattias
fixed codetools Makefile, fixed default prop not found error