paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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; procedure TProjectInspectorForm.UpdateButtons;
var var
CurFile: TUnitInfo; CurFile: TUnitInfo;
CurDependency: TPkgDependency;
begin begin
if (FUpdateLock>0) or (not Visible) then begin if (FUpdateLock>0) or (not Visible) then begin
Include(FFlags,pifButtonsChanged); Include(FFlags,pifButtonsChanged);
@ -599,8 +600,11 @@ begin
if LazProject<>nil then begin if LazProject<>nil then begin
AddBitBtn.Enabled:=true; AddBitBtn.Enabled:=true;
CurFile:=GetSelectedFile; CurFile:=GetSelectedFile;
RemoveBitBtn.Enabled:=(CurFile<>nil) and (CurFile<>LazProject.MainUnitInfo); CurDependency:=GetSelectedDependency;
OpenBitBtn.Enabled:=(CurFile<>nil); 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; OptionsBitBtn.Enabled:=true;
end else begin end else begin
AddBitBtn.Enabled:=false; AddBitBtn.Enabled:=false;

4
lcl/forms.pp
View File

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

11
lcl/include/customform.inc
View File

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