! Now only 1 Package for Both Components

! Working Styles on TGradTabControl

#2

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1111 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/gradcontrols/Readme.txt

@@ -1,11 +1,4 @@
-Package GradButton:
+Both Packages are now 1 Package :)
-- Glyphs should be working now
-
-Package GradTabControl:
-- Is now useable, or more or less, it should be =)
-- with 2 CloseButton-Modes
-  - ShowCloseButton := true; // The CloseButton is always visible
-  - ShowCloseButtonOnMouseOver := true; // The CloseBUtton is only visible if the Mouse if is over it
 
 Some Glyphs are from http://www.famfamfam.com/lab/icons/silk/ 
 

components/gradcontrols/gradcontrols.lpk

@@ -0,0 +1,54 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="3">
+    <PathDelim Value="\"/>
+    <Name Value="gradcontrols"/>
+    <CompilerOptions>
+      <Version Value="8"/>
+      <PathDelim Value="\"/>
+      <SearchPaths>
+        <IncludeFiles Value="src\;..\"/>
+        <OtherUnitFiles Value="src\;..\"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+      </SearchPaths>
+      <Other>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="2">
+      <Item1>
+        <Filename Value="src\ugradtabcontrol.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="ugradtabcontrol"/>
+      </Item1>
+      <Item2>
+        <Filename Value="src\ugradbtn.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="ugradbtn"/>
+      </Item2>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="3">
+      <Item1>
+        <PackageName Value="IDEIntf"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCl"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item3>
+    </RequiredPkgs>
+    <UsageOptions>
+      <IncludePath Value="$(PkgOutDir)\;$(PkgOutDir)\..\"/>
+      <LibraryPath Value="$(PkgOutDir)\;$(PkgOutDir)\..\"/>
+      <ObjectPath Value="$(PkgOutDir)\;$(PkgOutDir)\..\"/>
+      <UnitPath Value="$(PkgOutDir)\;$(PkgOutDir)\..\"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>

components/gradcontrols/gradcontrols.pas

@@ -0,0 +1,25 @@
+{ Diese Datei wurde automatisch von Lazarus erzeugt. Sie darf nicht bearbeitet 
+  werden!
+  Dieser Quelltext dient nur dem Übersetzen und Installieren des Packages.
+ }
+
+unit gradcontrols; 
+
+interface
+
+
+
+uses
+  ugradtabcontrol, ugradbtn, LazarusPackageIntf;
+
+implementation
+
+procedure Register; 
+begin
+  RegisterUnit('ugradtabcontrol', @ugradtabcontrol.Register); 
+  RegisterUnit('ugradbtn', @ugradbtn.Register); 
+end; 
+
+initialization
+  RegisterPackage('gradcontrols', @Register); 
+end.

components/gradcontrols/src/dummylogger.pas

@@ -0,0 +1,68 @@
+unit DummyLogger;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, variants;
+
+type
+
+  { TDummyLogger }
+
+  TDummyLogger = class
+  public
+    procedure EnterMethod(AStr: string);
+    procedure ExitMethod(AStr: string);
+    procedure EnterMethod(AObj: TObject; AStr: string);
+    procedure ExitMethod(AObj: TObject; AStr: string);
+    procedure Send(AStr: string; AVar: Variant = 0);
+    procedure Watch(AStr: string; AVar: Variant = 0);
+  end;
+
+var
+  Logger : TDummyLogger = nil;
+
+implementation
+
+{ TDummyLogger }
+
+procedure TDummyLogger.EnterMethod(AStr: string);
+begin
+
+end;
+
+procedure TDummyLogger.ExitMethod(AStr: string);
+begin
+
+end;
+
+procedure TDummyLogger.EnterMethod(AObj: TObject; AStr: string);
+begin
+
+end;
+
+procedure TDummyLogger.ExitMethod(AObj: TObject; AStr: string);
+begin
+
+end;
+
+procedure TDummyLogger.Send(AStr: string; AVar: Variant);
+begin
+
+end;
+
+procedure TDummyLogger.Watch(AStr: string; AVar: Variant);
+begin
+
+end;
+
+initialization
+  Logger := TDummyLogger.Create;
+
+finalization
+  Logger.Free;
+
+end.
+