Subversion Repositories fastphp

Rev

Rev 62 | Rev 64 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62 Rev 63
Line 19... Line 19...
19 
// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
 19 
// TODO: wieso kommt syntax fehler zweimal? einmal stderr einmal stdout?
20 
// TODO: Browser titlebar (link preview)
 20 
// TODO: Browser titlebar (link preview)
21 
// TODO: "jump to next/prev todo" buttons/shortcuts
 21 
// TODO: "jump to next/prev todo" buttons/shortcuts
22 
// TODO: "increase/decrease indent" buttons/shortcuts
 22 
// TODO: "increase/decrease indent" buttons/shortcuts
23 
 
 23 
 
- 
 
 24 
// Small things:
- 
 
 25 
// - The scroll bars of SynEdit are not affected by the dark theme
- 
 
 26 
 
24 
// Future ideas
 27 
// Future ideas
25 
// - code insight
 28 
// - code insight
26 
// - verschiedene php versionen?
 29 
// - verschiedene php versionen?
27 
// - webbrowser1 nur laden, wenn man den tab anwählt?
 30 
// - webbrowser1 nur laden, wenn man den tab anwählt?
28 
// - doppelklick auf tab soll diesen schließen
 31 
// - doppelklick auf tab soll diesen schließen
Line 542... Line 545...
542 
  function CharToPixels(P: TBufferCoord): TPoint;
 545 
  function CharToPixels(P: TBufferCoord): TPoint;
543 
  begin
 546 
  begin
544 
    Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P));
 547 
    Result := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(P));
545 
  end;
 548 
  end;
546 
 
 549 
 
547 
const
 - 
 
548 
  COLOR_FG = clGreen;
 - 
 
549 
  COLOR_BG = clLime;
 - 
 
550 
var
 550 
var
- 
 
 551 
  COLOR_FG: TColor;
- 
 
 552 
  COLOR_BG: TColor;
551 
  P: TBufferCoord;
 553 
  P: TBufferCoord;
552 
  Pix: TPoint;
 554 
  Pix: TPoint;
553 
  D: TDisplayCoord;
 555 
  D: TDisplayCoord;
554 
  S: UnicodeString;
 556 
  S: UnicodeString;
555 
  I: Integer;
 557 
  I: Integer;
Line 558... Line 560...
558 
  start: Integer;
 560 
  start: Integer;
559 
  TmpCharA, TmpCharB: WideChar;
 561 
  TmpCharA, TmpCharB: WideChar;
560 
begin      
 562 
begin
561 
  // Source: https://github.com/SynEdit/SynEdit/blob/master/Demos/OnPaintTransientDemo/Unit1.pas
 563 
  // Source: https://github.com/SynEdit/SynEdit/blob/master/Demos/OnPaintTransientDemo/Unit1.pas
562 
 
 564 
 
- 
 
 565 
  if IsThemeDark then
- 
 
 566 
  begin
- 
 
 567 
    COLOR_FG := clLime;
- 
 
 568 
    COLOR_BG := clGreen;
- 
 
 569 
  end
- 
 
 570 
  else
- 
 
 571 
  begin
- 
 
 572 
    COLOR_FG := clGreen;
- 
 
 573 
    COLOR_BG := clLime;
- 
 
 574 
  end;
- 
 
 575 
 
563 
  if TSynEdit(Sender).SelAvail then exit;
 576 
  if TSynEdit(Sender).SelAvail then exit;
564 
  Editor := TSynEdit(Sender);
 577 
  Editor := TSynEdit(Sender);
565 
  ArrayLength:= 3;
 578 
  ArrayLength:= 3;
566 
 
 579 
 
567 
  (*
 580 
  (*