mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 01:59:34 +02:00
fixed file commands in designer
git-svn-id: trunk@7711 -
This commit is contained in:
parent
96057b3ff8
commit
f6cdf3cd65
@ -1636,6 +1636,7 @@ Begin
|
||||
Handled:=false;
|
||||
Command:=FTheFormEditor.TranslateKeyToDesignerCommand(
|
||||
TheMessage.CharCode,Shift);
|
||||
//DebugLn('TDesigner.KEYDOWN Command=',dbgs(Command));
|
||||
DoProcessCommand(Self,Command,Handled);
|
||||
|
||||
if not Handled then begin
|
||||
|
@ -2373,7 +2373,7 @@ begin
|
||||
AddDefault(C,'Go to source editor 10',ecGotoEditor0);
|
||||
|
||||
// file menu
|
||||
C:=Categories[AddCategory('FileMenu',srkmCatFileMenu,{$IFDEF UseIDEScopes}nil{$ELSE}caSrcEdit{$ENDIF})];
|
||||
C:=Categories[AddCategory('FileMenu',srkmCatFileMenu,{$IFDEF UseIDEScopes}nil{$ELSE}caAll{$ENDIF})];
|
||||
AddDefault(C,'New',ecNew);
|
||||
AddDefault(C,'NewUnit',ecNewUnit);
|
||||
AddDefault(C,'NewForm',ecNewForm);
|
||||
|
@ -90,11 +90,11 @@ NEWPP=`pwd`/compiler/%{ppcname}
|
||||
INSTALLOPTS="FPC=${NEWPP} FPCMAKE=${FPCMAKE} \
|
||||
INSTALL_PREFIX=%{buildroot}%{_prefix} \
|
||||
INSTALL_LIBDIR=%{buildroot}%{_libdir} \
|
||||
INSTALL_BASEDIR=%{buildroot}%{_libdir}/%{name}/%{version} \
|
||||
CODPATH=%{buildroot}%{_libdir}/%{name}/lexyacc \
|
||||
INSTALL_BASEDIR=%{buildroot}%{_libdir}/%{name}/%{version} \
|
||||
CODPATH=%{buildroot}%{_libdir}/%{name}/lexyacc \
|
||||
INSTALL_DOCDIR=%{buildroot}%{_defaultdocdir}/%{name}-%{version} \
|
||||
INSTALL_BINDIR=%{buildroot}%{_bindir}
|
||||
INSTALL_EXAMPLEDIR=%{buildroot}%{_defaultdocdir}/%{name}-%{version}/examples"
|
||||
INSTALL_EXAMPLEDIR=%{buildroot}%{_defaultdocdir}/%{name}-%{version}/examples"
|
||||
make compiler_install ${INSTALLOPTS}
|
||||
make rtl_install ${INSTALLOPTS}
|
||||
make packages_install ${INSTALLOPTS}
|
||||
@ -185,4 +185,4 @@ rm -rf %{buildroot}
|
||||
- replaced $RPM_BUILD_ROOT by %%{buildroot}
|
||||
|
||||
* Mon May 23 2005 Joost van der Sluis <joost@cnoc.nl> 2.0.0-0.1
|
||||
- Initial build.
|
||||
- Initial build.
|
||||
|
Loading…
Reference in New Issue
Block a user