paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ clock

Browse Source 
* backspace unident like tp7
This commit is contained in:
peter 1999-09-13 16:24:42 +00:00
parent 0004218ade
commit 9853a752ab
9 changed files with 101 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/fpcalc.pas
View File

@ -451,7 +451,6 @@ begin
end;
procedure RegisterFPCalc;
begin
{$ifndef NOOBJREG}
@ -464,7 +463,11 @@ end;
end.
{
$Log$
Revision 1.6 1999-09-07 09:20:52 pierre
Revision 1.7 1999-09-13 16:24:42 peter
+ clock
* backspace unident like tp7
Revision 1.6 1999/09/07 09:20:52 pierre
* traling zero after . could not be inserted
* load/store was missing => CD not set on loading.
* log function was not implemented : ln is used,

12
ide/text/fpcompil.pas
View File

@ -450,9 +450,6 @@ begin
RedirDisableAll;
{$endif}
CompilerMessageWindow^.AddMessage(Level,S,status.currentsourcepath+status.currentsource,
status.currentline,status.currentcolumn);
{ update info messages }
@ -462,9 +459,6 @@ begin
RedirEnableAll;
{$endif}
{ update memory usage }
{ HeapView^.Update; }
end;
@ -745,7 +739,11 @@ end;
end.
{
$Log$
Revision 1.37 1999-09-09 14:19:16 pierre
Revision 1.38 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.37 1999/09/09 14:19:16 pierre
* status should not be present in TCompilerMessage.GetText
Revision 1.36 1999/09/07 11:32:13 pierre

12
ide/text/fpconst.pas
View File

@ -339,6 +339,8 @@ const
CGDBInputLine = #9#9#10#11#12;
CFPClockView = #0#227;
CIDEAppColor = CAppColor +
{ CIDEHelpDialog }
{128-143}#$70#$7F#$7A#$13#$13#$70#$70#$7F#$7E#$20#$2B#$2F#$78#$2E#$70#$30 + { 1-16}
@ -350,14 +352,20 @@ const
{183-198}#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00 + {17-32}
{199-214}#$1E#$1F#$17#$1F#$1E#$1B#$13#$1A#$1E#$71#$3F#$30#$1C#$13#$1F#$4E + {33-48}
{ CBrowserWindow }
{215- }#$31#$3F#$3A#$31#$31#$31#$71#$1F#$31#$2F#$3E#$3F ;
{215-226}#$31#$3F#$3A#$31#$31#$31#$71#$1F#$31#$2F#$3E#$3F +
{ CFPClockView }
{227- }#$0E;
implementation
END.
{
$Log$
Revision 1.26 1999-09-09 16:31:45 pierre
Revision 1.27 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.26 1999/09/09 16:31:45 pierre
* some breakpoint related fixes and Help contexts
Revision 1.25 1999/09/09 14:15:27 pierre

12
ide/text/fpdebug.pas
View File

@ -330,7 +330,9 @@ begin
LoadFile(f);
SetArgs(GetRunParameters);
Debugger:=@self;
{$ifndef GABOR}
switch_to_user:=true;
{$endif}
InsertBreakpoints;
ReadWatches;
end;
@ -2072,6 +2074,7 @@ end;
{ call backtrace command }
If not assigned(Debugger) then
exit;
{$ifndef NODEBUG}
Clear;
{ forget all old frames }
Debugger^.clear_frames;
@ -2089,6 +2092,7 @@ end;
end;
if List^.Count > 0 then
FocusItem(0);
{$endif}
end;
function TFramesListBox.GetLocalMenu: PMenu;
@ -2101,9 +2105,11 @@ end;
{ select frame for watches }
If not assigned(Debugger) then
exit;
{$ifdef NODEBUG}
Debugger^.Command('f '+IntToStr(Focused));
{ for local vars }
Debugger^.ReadWatches;
{$endif}
{ goto source }
inherited GotoSource;
end;
@ -2293,7 +2299,11 @@ end.
{
$Log$
Revision 1.30 1999-09-09 16:36:30 pierre
Revision 1.31 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.30 1999/09/09 16:36:30 pierre
* Breakpoint storage problem corrected
Revision 1.29 1999/09/09 16:31:45 pierre

9
ide/text/fpide.pas
View File

@ -171,6 +171,9 @@ begin
{$endif TP}
{$endif}
inherited Init;
MenuBar^.GetBounds(R); R.A.X:=R.B.X-8;
New(ClockView, Init(R));
Application^.Insert(ClockView);
New(ClipboardWindow, Init);
Desktop^.Insert(ClipboardWindow);
New(CalcWindow, Init); CalcWindow^.Hide;
@ -839,7 +842,11 @@ end;
END.
{
$Log$
Revision 1.37 1999-09-13 11:44:00 peter
Revision 1.38 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.37 1999/09/13 11:44:00 peter
* fixes from gabor, idle event, html fix
Revision 1.36 1999/09/09 14:15:27 pierre

8
ide/text/fpini.pas
View File

@ -337,6 +337,8 @@ begin
PS:=PS+StrToPalette(INIFile^.GetEntry(secColors,iePalette+'_121_160',PaletteToStr(copy(S,121,40))));
PS:=PS+StrToPalette(INIFile^.GetEntry(secColors,iePalette+'_161_200',PaletteToStr(copy(S,161,40))));
PS:=PS+StrToPalette(INIFile^.GetEntry(secColors,iePalette+'_201_240',PaletteToStr(copy(S,201,40))));
if length(PS)<length(CIDEAppColor) then
PS:=PS+copy(CIDEAppColor,length(PS)+1,255);
AppPalette:=PS;
(* { Open files }
for I:=INIFile^.GetIntEntry(secFiles,ieOpenFileCount,0) downto 1 do
@ -527,7 +529,11 @@ end;
end.
{
$Log$
Revision 1.22 1999-09-07 09:21:54 pierre
Revision 1.23 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.22 1999/09/07 09:21:54 pierre
+ Watches saved
Revision 1.21 1999/08/03 20:22:33 peter

7
ide/text/fpvars.pas
View File

@ -54,6 +54,7 @@ const ClipboardWindow : PClipboardWindow = nil;
WatchesWindow : PWatchesWindow = nil;
UserScreenWindow : PScreenWindow = nil;
HeapView : PFPHeapView = nil;
ClockView : PFPClockView = nil;
HelpFiles : WUtils.PUnsortedStringCollection = nil;
ShowStatusOnError: boolean = true;
StartupDir : string{$ifdef GABOR}[80]{$endif} = '.'+DirSep;
@ -86,7 +87,11 @@ implementation
END.
{
$Log$
Revision 1.23 1999-09-13 11:44:00 peter
Revision 1.24 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.23 1999/09/13 11:44:00 peter
* fixes from gabor, idle event, html fix
Revision 1.22 1999/08/16 18:25:25 peter

36
ide/text/fpviews.pas
View File

@ -53,6 +53,13 @@ type
procedure HandleEvent(var Event: TEvent); virtual;
end;
PFPClockView = ^TFPClockView;
TFPClockView = object(TClockView)
constructor Init(var Bounds: TRect);
procedure HandleEvent(var Event: TEvent); virtual;
function GetPalette: PPalette; virtual;
end;
TFPWindow = object(TWindow)
AutoNumber: boolean;
procedure HandleEvent(var Event: TEvent); virtual;
@ -586,7 +593,7 @@ var
begin
Count:=0;
for I:=ord(Low(tToken)) to ord(High(tToken)) do
with TokenInfo^[TToken(I)] do
with TokenInfo^[TToken(I)] do
if (str<>'') and (str[1] in['A'..'Z']) then
Inc(Count);
GetReservedWordCount:=Count;
@ -860,6 +867,27 @@ begin
inherited HandleEvent(Event);
end;
constructor TFPClockView.Init(var Bounds: TRect);
begin
inherited Init(Bounds);
EventMask:=EventMask or evIdle;
end;
procedure TFPClockView.HandleEvent(var Event: TEvent);
begin
case Event.What of
evIdle :
Update;
end;
inherited HandleEvent(Event);
end;
function TFPClockView.GetPalette: PPalette;
const P: string[length(CFPClockView)] = CFPClockView;
begin
GetPalette:=@P;
end;
procedure TFPWindow.SetState(AState: Word; Enable: Boolean);
begin
inherited SetState(AState,Enable);
@ -2749,7 +2777,11 @@ end;
END.
{
$Log$
Revision 1.40 1999-09-09 16:30:37 pierre
Revision 1.41 1999-09-13 16:24:43 peter
+ clock
* backspace unident like tp7
Revision 1.40 1999/09/09 16:30:37 pierre
* ModuleNames was not created in TMessageListBox.Load
Revision 1.39 1999/09/03 12:54:07 pierre

16
ide/text/weditor.pas
View File

@ -2195,7 +2195,7 @@ end;
procedure TCodeEditor.BackSpace;
var S,PreS: string;
OI,CI,CP,Y: Sw_integer;
OI,CI,CP,Y,TX: Sw_integer;
SCP: TPoint;
begin
if IsReadOnly then Exit;
@ -2226,10 +2226,14 @@ begin
if Trim(copy(PreS,1,CP+1))<>'' then Break;
end;
if Y<0 then PreS:='';
while (CP>0) and
{ while (CP>0) and
( (CP>length(S)) or (S[CP]=' ') ) and
( (CP>length(PreS)) or (PreS[CP]<>' ') ) do
Dec(CP);
Dec(CP);}
TX:=0;
while (TX<length(PreS)) and (PreS[TX+1]=' ') do
Inc(TX);
if TX<CP then CP:=TX;
end;
S:=GetLineText(CurPos.Y);
OI:=LinePosToCharIdx(CurPos.Y,CurPos.X);
@ -4387,7 +4391,11 @@ end;
END.
{
$Log$
Revision 1.45 1999-09-09 12:05:33 pierre
Revision 1.46 1999-09-13 16:24:44 peter
+ clock
* backspace unident like tp7
Revision 1.45 1999/09/09 12:05:33 pierre
+ Copy/Paste to Windows Clipboard
+ efLeaveTrailingSpaces added to editor flags
(if not set then spaces at the end of a line are