* Create branches and trunk directories

* Move files to trunk git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1035 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-12-08 14:04:26 +00:00
parent 364c1f0c79
commit 822745d0fc
185 changed files with 0 additions and 0 deletions
--- a/components/virtualtreeview-new/trunk/demos/vtbasic/ViewCode.pas
+++ b/components/virtualtreeview-new/trunk/demos/vtbasic/ViewCode.pas
@ -0,0 +1,42 @@
+unit ViewCode;
+
+interface
+
+   uses
+      delphicompat, LCLIntf, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+      Dialogs, StdCtrls, LResources, SynHighlighterPas, SynEdit;
+
+   type
+
+      { TfrmViewCode }
+
+      TfrmViewCode =
+      class(TForm)
+        SynEdit1: TSynEdit;
+        SynPasSyn1: TSynPasSyn;
+         procedure FormActivate(Sender: TObject);
+         
+         private
+         { Private declarations }
+         public
+         { Public declarations }
+      end;
+
+implementation
+
+   procedure TfrmViewCode.FormActivate(Sender: TObject);
+   var
+      r  : TRect;
+   begin
+      {get size of desktop}
+      {$ifdef Windows}
+      SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
+      Height := r.Bottom-Top;
+      Width  := r.Right-Left;
+      {$endif}
+   end;
+
+initialization
+  {$I ViewCode.lrs}
+
+end.