mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 04:26:13 +02:00
+ register asciitable char
This commit is contained in:
parent
690eb7524f
commit
1fe0c05ec2
199
ide/fpdesk.pas
199
ide/fpdesk.pas
@ -18,7 +18,7 @@ unit FPDesk;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
const
|
const
|
||||||
MinDesktopVersion = $000A;
|
MinDesktopVersion = $0009;
|
||||||
DesktopVersion = $000A; { <- if you change any Load&Store methods,
|
DesktopVersion = $000A; { <- if you change any Load&Store methods,
|
||||||
default object properties (Options,State)
|
default object properties (Options,State)
|
||||||
then you should also change this }
|
then you should also change this }
|
||||||
@ -285,7 +285,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
PushStatus(msg_storingbreakpoints);
|
PushStatus(msg_storingbreakpoints);
|
||||||
New(S, Init(30*1024,4096));
|
New(S, Init(30*1024,4096));
|
||||||
S^.Put(BreakpointsCollection);
|
BreakpointsCollection^.Store(S^);
|
||||||
S^.Seek(0);
|
S^.Seek(0);
|
||||||
F^.CreateResource(resBreakpoints,rcBinary,0);
|
F^.CreateResource(resBreakpoints,rcBinary,0);
|
||||||
OK:=F^.AddResourceEntryFromStream(resBreakpoints,langDefault,0,S^,S^.GetSize);
|
OK:=F^.AddResourceEntryFromStream(resBreakpoints,langDefault,0,S^,S^.GetSize);
|
||||||
@ -854,22 +854,22 @@ begin
|
|||||||
Application^.SetScreenVideoMode(VM);
|
Application^.SetScreenVideoMode(VM);
|
||||||
end;
|
end;
|
||||||
if ((DesktopFileFlags and dfHistoryLists)<>0) then
|
if ((DesktopFileFlags and dfHistoryLists)<>0) then
|
||||||
OK:=ReadHistory(F) and OK;
|
OK:=OK and ReadHistory(F);
|
||||||
if ((DesktopFileFlags and dfWatches)<>0) then
|
if ((DesktopFileFlags and dfWatches)<>0) then
|
||||||
OK:=ReadWatches(F) and OK;
|
OK:=OK and ReadWatches(F);
|
||||||
if ((DesktopFileFlags and dfBreakpoints)<>0) then
|
if ((DesktopFileFlags and dfBreakpoints)<>0) then
|
||||||
OK:=ReadBreakpoints(F) and OK;
|
OK:=OK and ReadBreakpoints(F);
|
||||||
if ((DesktopFileFlags and dfOpenWindows)<>0) then
|
if ((DesktopFileFlags and dfOpenWindows)<>0) then
|
||||||
OK:=ReadOpenWindows(F) and OK;
|
OK:=OK and ReadOpenWindows(F);
|
||||||
{ no errors if no browser info available PM }
|
{ no errors if no browser info available PM }
|
||||||
if ((DesktopFileFlags and dfSymbolInformation)<>0) then
|
if ((DesktopFileFlags and dfSymbolInformation)<>0) then
|
||||||
OK:=ReadSymbols(F) and OK;
|
OK:=OK and ReadSymbols(F);
|
||||||
if ((DesktopFileFlags and dfCodeCompleteWords)<>0) then
|
if ((DesktopFileFlags and dfCodeCompleteWords)<>0) then
|
||||||
OK:=ReadCodeComplete(F) and OK;
|
OK:=OK and ReadCodeComplete(F);
|
||||||
if ((DesktopFileFlags and dfCodeTemplates)<>0) then
|
if ((DesktopFileFlags and dfCodeTemplates)<>0) then
|
||||||
OK:=ReadCodeTemplates(F) and OK;
|
OK:=OK and ReadCodeTemplates(F);
|
||||||
{$ifdef Unix}
|
{$ifdef Unix}
|
||||||
OK:=ReadKeys(F) and OK;
|
OK:=OK and ReadKeys(F);
|
||||||
{$endif Unix}
|
{$endif Unix}
|
||||||
Dispose(F, Done);
|
Dispose(F, Done);
|
||||||
end;
|
end;
|
||||||
@ -966,16 +966,175 @@ end;
|
|||||||
END.
|
END.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.7 2002-02-09 00:32:27 pierre
|
Revision 1.4 2002-05-31 12:37:09 pierre
|
||||||
* fix error when loading breakpoints, try to load other items even after an error
|
|
||||||
|
|
||||||
Revision 1.6 2002/09/07 15:40:42 peter
|
|
||||||
* old logs removed and tabs fixed
|
|
||||||
|
|
||||||
Revision 1.5 2002/09/04 14:03:52 pierre
|
|
||||||
* MinDesktopVersion increased because of CodeComplete changes
|
|
||||||
|
|
||||||
Revision 1.4 2002/05/31 12:37:09 pierre
|
|
||||||
+ register asciitable char
|
+ register asciitable char
|
||||||
|
|
||||||
|
Revision 1.3 2001/10/11 11:38:22 pierre
|
||||||
|
* small fvision specific changes
|
||||||
|
|
||||||
|
Revision 1.2 2001/08/05 12:23:00 peter
|
||||||
|
* Automatically support for fvision or old fv
|
||||||
|
|
||||||
|
Revision 1.1 2001/08/04 11:30:23 peter
|
||||||
|
* ide works now with both compiler versions
|
||||||
|
|
||||||
|
Revision 1.1.2.8 2001/03/22 17:28:03 pierre
|
||||||
|
* small fix to OpenWindows
|
||||||
|
|
||||||
|
Revision 1.1.2.7 2001/03/12 17:34:55 pierre
|
||||||
|
+ Disassembly window started
|
||||||
|
|
||||||
|
Revision 1.1.2.6 2000/12/12 16:51:50 pierre
|
||||||
|
+ keys loading/storing begin
|
||||||
|
|
||||||
|
Revision 1.1.2.5 2000/11/29 11:25:59 pierre
|
||||||
|
+ TFPDlgWindow that handles cmSearchWindow
|
||||||
|
|
||||||
|
Revision 1.1.2.4 2000/11/29 00:54:44 pierre
|
||||||
|
+ preserve window number and save special windows
|
||||||
|
|
||||||
|
Revision 1.1.2.3 2000/10/18 21:53:26 pierre
|
||||||
|
* several Gabor fixes
|
||||||
|
|
||||||
|
Revision 1.1.2.2 2000/09/18 13:20:54 pierre
|
||||||
|
New bunch of Gabor changes
|
||||||
|
|
||||||
|
Revision 1.1.2.1 2000/07/20 11:02:15 michael
|
||||||
|
+ Fixes from gabor. See fixes.txt
|
||||||
|
|
||||||
|
Revision 1.1 2000/07/13 09:48:34 michael
|
||||||
|
+ Initial import
|
||||||
|
|
||||||
|
Revision 1.29 2000/06/22 09:07:12 pierre
|
||||||
|
* Gabor changes: see fixes.txt
|
||||||
|
|
||||||
|
Revision 1.28 2000/05/02 08:42:27 pierre
|
||||||
|
* new set of Gabor changes: see fixes.txt
|
||||||
|
|
||||||
|
Revision 1.27 2000/04/25 08:42:33 pierre
|
||||||
|
* New Gabor changes : see fixes.txt
|
||||||
|
|
||||||
|
Revision 1.26 2000/04/18 11:42:36 pierre
|
||||||
|
lot of Gabor changes : see fixes.txt
|
||||||
|
|
||||||
|
Revision 1.25 2000/03/21 23:32:05 pierre
|
||||||
|
adapted to wcedit addition by Gabor
|
||||||
|
|
||||||
|
Revision 1.24 2000/03/20 19:19:46 pierre
|
||||||
|
* LFN support in streams
|
||||||
|
|
||||||
|
Revision 1.23 2000/03/13 20:36:52 pierre
|
||||||
|
* Breakpoints saved and loaded before sources
|
||||||
|
|
||||||
|
Revision 1.22 2000/02/07 12:03:48 pierre
|
||||||
|
Last commit is from Gabor's changes!
|
||||||
|
|
||||||
|
Revision 1.21 2000/02/07 11:55:27 pierre
|
||||||
|
+ Code Complete and Template saving from Gabor
|
||||||
|
|
||||||
|
Revision 1.20 2000/02/04 00:12:57 pierre
|
||||||
|
* Breakpoint are marked in source at desktop loading
|
||||||
|
|
||||||
|
Revision 1.19 2000/01/25 00:26:36 pierre
|
||||||
|
+ Browser info saving
|
||||||
|
|
||||||
|
Revision 1.18 2000/01/03 11:38:33 michael
|
||||||
|
Changes from Gabor
|
||||||
|
|
||||||
|
Revision 1.17 1999/12/20 00:30:56 pierre
|
||||||
|
* problem with VideoMode storing solved
|
||||||
|
|
||||||
|
Revision 1.16 1999/12/10 13:02:05 pierre
|
||||||
|
+ VideoMode save/restore
|
||||||
|
|
||||||
|
Revision 1.15 1999/11/26 17:09:51 pierre
|
||||||
|
* Force Desktop into Screen
|
||||||
|
|
||||||
|
Revision 1.14 1999/11/25 00:25:43 pierre
|
||||||
|
* add Status when loading/saving files
|
||||||
|
|
||||||
|
Revision 1.13 1999/09/20 15:37:59 pierre
|
||||||
|
* ReadOpenWindows and ReadSymobls was missing, still does not work correctly :(
|
||||||
|
|
||||||
|
Revision 1.12 1999/09/17 16:41:10 pierre
|
||||||
|
* other stream error for Watches/Breakpoints corrected
|
||||||
|
|
||||||
|
Revision 1.11 1999/09/17 16:28:58 pierre
|
||||||
|
* ResWatches in WriteBreakpoints typo !
|
||||||
|
|
||||||
|
Revision 1.10 1999/09/16 14:34:58 pierre
|
||||||
|
+ TBreakpoint and TWatch registering
|
||||||
|
+ WatchesCollection and BreakpointsCollection stored in desk file
|
||||||
|
* Syntax highlighting was broken
|
||||||
|
|
||||||
|
Revision 1.9 1999/09/07 09:23:00 pierre
|
||||||
|
* no errors if no browser info available
|
||||||
|
|
||||||
|
Revision 1.8 1999/08/16 18:25:16 peter
|
||||||
|
* Adjusting the selection when the editor didn't contain any line.
|
||||||
|
* Reserved word recognition redesigned, but this didn't affect the overall
|
||||||
|
syntax highlight speed remarkably (at least not on my Amd-K6/350).
|
||||||
|
The syntax scanner loop is a bit slow but the main problem is the
|
||||||
|
recognition of special symbols. Switching off symbol processing boosts
|
||||||
|
the performance up to ca. 200%...
|
||||||
|
* The editor didn't allow copying (for ex to clipboard) of a single character
|
||||||
|
* 'File|Save as' caused permanently run-time error 3. Not any more now...
|
||||||
|
* Compiler Messages window (actually the whole desktop) did not act on any
|
||||||
|
keypress when compilation failed and thus the window remained visible
|
||||||
|
+ Message windows are now closed upon pressing Esc
|
||||||
|
+ At 'Run' the IDE checks whether any sources are modified, and recompiles
|
||||||
|
only when neccessary
|
||||||
|
+ BlockRead and BlockWrite (Ctrl+K+R/W) implemented in TCodeEditor
|
||||||
|
+ LineSelect (Ctrl+K+L) implemented
|
||||||
|
* The IDE had problems closing help windows before saving the desktop
|
||||||
|
|
||||||
|
Revision 1.7 1999/08/03 20:22:30 peter
|
||||||
|
+ TTab acts now on Ctrl+Tab and Ctrl+Shift+Tab...
|
||||||
|
+ Desktop saving should work now
|
||||||
|
- History saved
|
||||||
|
- Clipboard content saved
|
||||||
|
- Desktop saved
|
||||||
|
- Symbol info saved
|
||||||
|
* syntax-highlight bug fixed, which compared special keywords case sensitive
|
||||||
|
(for ex. 'asm' caused asm-highlighting, while 'ASM' didn't)
|
||||||
|
* with 'whole words only' set, the editor didn't found occourences of the
|
||||||
|
searched text, if the text appeared previously in the same line, but didn't
|
||||||
|
satisfied the 'whole-word' condition
|
||||||
|
* ^QB jumped to (SelStart.X,SelEnd.X) instead of (SelStart.X,SelStart.Y)
|
||||||
|
(ie. the beginning of the selection)
|
||||||
|
* when started typing in a new line, but not at the start (X=0) of it,
|
||||||
|
the editor inserted the text one character more to left as it should...
|
||||||
|
* TCodeEditor.HideSelection (Ctrl-K+H) didn't update the screen
|
||||||
|
* Shift shouldn't cause so much trouble in TCodeEditor now...
|
||||||
|
* Syntax highlight had problems recognizing a special symbol if it was
|
||||||
|
prefixed by another symbol character in the source text
|
||||||
|
* Auto-save also occours at Dos shell, Tool execution, etc. now...
|
||||||
|
|
||||||
|
Revision 1.5 1999/06/30 23:58:13 pierre
|
||||||
|
+ BreakpointsList Window implemented
|
||||||
|
with Edit/New/Delete functions
|
||||||
|
+ Individual breakpoint dialog with support for all types
|
||||||
|
ignorecount and conditions
|
||||||
|
(commands are not yet implemented, don't know if this wolud be useful)
|
||||||
|
awatch and rwatch have problems because GDB does not annotate them
|
||||||
|
I fixed v4.16 for this
|
||||||
|
|
||||||
|
Revision 1.4 1999/04/15 08:58:05 peter
|
||||||
|
* syntax highlight fixes
|
||||||
|
* browser updates
|
||||||
|
|
||||||
|
Revision 1.3 1999/04/07 21:55:45 peter
|
||||||
|
+ object support for browser
|
||||||
|
* html help fixes
|
||||||
|
* more desktop saving things
|
||||||
|
* NODEBUG directive to exclude debugger
|
||||||
|
|
||||||
|
Revision 1.2 1999/03/23 16:16:39 peter
|
||||||
|
* linux fixes
|
||||||
|
|
||||||
|
Revision 1.1 1999/03/23 15:11:28 peter
|
||||||
|
* desktop saving things
|
||||||
|
* vesa mode
|
||||||
|
* preferences dialog
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -4197,9 +4197,7 @@ begin
|
|||||||
RegisterType(RFPDesktop);
|
RegisterType(RFPDesktop);
|
||||||
RegisterType(RGDBSourceEditor);
|
RegisterType(RGDBSourceEditor);
|
||||||
RegisterType(RGDBWindow);
|
RegisterType(RGDBWindow);
|
||||||
{$ifndef FVISION}
|
|
||||||
RegisterType(RFPASCIIChart);
|
RegisterType(RFPASCIIChart);
|
||||||
{$endif FVISION}
|
|
||||||
RegisterType(RProgramInfoWindow);
|
RegisterType(RProgramInfoWindow);
|
||||||
RegisterType(RFPDlgWindow);
|
RegisterType(RFPDlgWindow);
|
||||||
end;
|
end;
|
||||||
@ -4208,7 +4206,10 @@ end;
|
|||||||
END.
|
END.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.18 2002-05-30 15:02:39 pierre
|
Revision 1.19 2002-05-31 12:37:10 pierre
|
||||||
|
+ register asciitable char
|
||||||
|
|
||||||
|
Revision 1.18 2002/05/30 15:02:39 pierre
|
||||||
* avoid ugly border draw on windows without owners in fvision
|
* avoid ugly border draw on windows without owners in fvision
|
||||||
|
|
||||||
Revision 1.17 2002/05/29 22:38:13 pierre
|
Revision 1.17 2002/05/29 22:38:13 pierre
|
||||||
|
Loading…
Reference in New Issue
Block a user