Re: [Synedit-devel] Join in the quest for SampleSource for 1.03b!

[Bosco N. <bo...@le...>]

Object Pascal
==========
unit Insight;

interface

uses
    Windows, Messages, Clipbrd, SysUtils, Classes,
    Graphics, Controls, Forms, Dialogs,  StdCtrls

type

   // Base Class for all code insight activities
   TInsight = class(TObject)
   private
   protected
      FEditor           : TSyntaxMemo;             // The Editor for code
insight to work on
      FBox              : TListBox;                // The code Insight
Display Box
      FEnabled          : Boolean;                 // on/off of code Insight
Feature
      procedure Hide;
   public
      constructor Create; virtual;
      destructor Destroy; virtual;
   end;  // end TInsight

implementation

uses
    Database, DBObj;

var
   ptrPICacheNode : PPICacheNode;

{Comment -- TInsight}
constructor TInsight.Create;
begin
   inherited Create;
   RecordCreate('TInsight', Self);  // memory debug purpose
end;
destructor TInsight.Destroy;
begin
   RecordDestroy('TParamInsight', Self);  {memory debug purpose}
   inherited Destroy;
end;
//
// Comment again -- Hide
//
procedure TInsight.Hide;
begin
   FVisible := False;
   FBox.Hide;
   FEditor.SetFocus;
end;

----- Original Message -----
From: "Jeff Rafter" <jef...@ea...>
To: <syn...@li...>
Sent: Thursday, March 22, 2001 5:53 AM
Subject: Re: [Synedit-devel] Join in the quest for SampleSource for 1.03b!


> Hi everyone, I was asked to post a list of the languages which do not
> currently have sample source-- it is actually quite a few... but here is
the
> list:
>
> Done
> ==============
> Java
> XML
> Cascading Stylesheets
> HTML
> JavaScript
> Perl
> PHP
> SQL
> VBScript
>
> Not done
> ==============
> HP48
> CA-Clipper
> C++
> MS-DOS Batch Language
> Delphi C++ Builder Form Definitions
> AWK Script
> Galaxy
> ObjectPascal
> x86 Assembly Language
> Python
> Tcl-Tk
> Gembase
> INI files
> Standard ML
> Visual Basic
> ADSP21xx
> Sybase SQL (is really this different from SQL?)
> General Multi-Highlighter (do we need this)
> Cache object script
> KIX32
> Baan 4GL
> Foxpro
> Fortran
> 68HC11 Assembler
> Progress
> Inno Setup scripts
> Modelica
> Modula 3
>
> Currently Leon Brown is winning with a total of 7!
>
> -Jeff Rafter
>
>
> _______________________________________________
> Synedit-devel mailing list
> Syn...@li...
> http://lists.sourceforge.net/lists/listinfo/synedit-devel
>