From: <ob...@us...> - 2006-07-31 08:25:12
|
Revision: 10855 Author: obones Date: 2006-07-31 01:24:21 -0700 (Mon, 31 Jul 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10855&view=rev Log Message: ----------- TJvgBevel has been deprecated and moved to archive, replaced by TJvBevel TJvgSplitter has been deprecated and moved to archive, replaced by TJvNetscapeSplitter TJvgGraphicButton has been deprecated and moved to archive, replaced by TJvTransparentButton Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/converter/JVCL3.dat trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/help/migrating_globus.html trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.cpp trunk/jvcl/packages/c5/JvGlobusC5R.dpk trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.cpp trunk/jvcl/packages/c5std/JvGlobusC5R.dpk trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.dpk trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.dpk trunk/jvcl/packages/d10/JvGlobusD10R.dpk trunk/jvcl/packages/d10per/JvGlobusD10R.dpk trunk/jvcl/packages/d5/JvGlobusD5R.dpk trunk/jvcl/packages/d5std/JvGlobusD5R.dpk trunk/jvcl/packages/d6/JvGlobusD6R.dpk trunk/jvcl/packages/d6per/JvGlobusD6R.dpk trunk/jvcl/packages/d7/JvGlobusD7R.dpk trunk/jvcl/packages/d7per/JvGlobusD7R.dpk trunk/jvcl/packages/d9/JvGlobusD9R.dpk trunk/jvcl/packages/d9per/JvGlobusD9R.dpk trunk/jvcl/packages/xml/JvGlobus-R.xml trunk/jvcl/run/JvBevel.pas trunk/jvcl/run/JvgCrossTable.pas Added Paths: ----------- trunk/jvcl/archive/JvgBevel.pas trunk/jvcl/archive/JvgGraphicButton.pas trunk/jvcl/archive/JvgSplit.pas Removed Paths: ------------- trunk/jvcl/run/JvgBevel.pas trunk/jvcl/run/JvgGraphicButton.pas trunk/jvcl/run/JvgSplit.pas Copied: trunk/jvcl/archive/JvgBevel.pas (from rev 10854, trunk/jvcl/run/JvgBevel.pas) =================================================================== --- trunk/jvcl/archive/JvgBevel.pas (rev 0) +++ trunk/jvcl/archive/JvgBevel.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,324 @@ +{----------------------------------------------------------------------------- +The contents of this file are subject to the Mozilla Public License +Version 1.1 (the "License"); you may not use this file except in compliance +with the License. You may obtain a copy of the License at +http://www.mozilla.org/MPL/MPL-1.1.html + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for +the specific language governing rights and limitations under the License. + +The Original Code is: JvgBevel.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + This unit implements the TJvgBevel component which is an extended + TBevel Delphi component with gradient filling and advanced borders + drawing. + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgBevel; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls, Forms, + {$IFDEF USEJVCL} + JvComponent, + {$ENDIF USEJVCL} + JvgTypes, JvgCommClasses, JvgUtils; + +type + {$IFDEF USEJVCL} + TJvgBevel = class(TJvGraphicControl) + {$ELSE} + TJvgBevel = class(TGraphicControl) + {$ENDIF USEJVCL} + private + FBevelInner: TPanelBevel; + FBevelOuter: TPanelBevel; + FBevelSides: TglSides; + FBevelBold: Boolean; + FBevelPenStyle: TPenStyle; + FBevelPenWidth: Word; + FInteriorOffset: Word; + FGradient: TJvgGradient; + FVertLines: TJvgBevelLines; + FHorLines: TJvgBevelLines; + FExternalCanvas: TCanvas; + procedure SomethingChanged(Sender: TObject); + procedure SetBevelInner(Value: TPanelBevel); + procedure SetBevelOuter(Value: TPanelBevel); + procedure SetBevelSides(Value: TglSides); + procedure SetBevelBold(Value: Boolean); + procedure SetBevelPenStyle(Value: TPenStyle); + procedure SetBevelPenWidth(Value: Word); + procedure SetInteriorOffset(Value: Word); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Paint; override; + property ExternalCanvas: TCanvas read FExternalCanvas write FExternalCanvas stored False; + procedure Loaded; override; + published + property Anchors; + property Align; + property Height default 50; + property ParentShowHint; + property Width default 50; + property ShowHint; + property Visible; + property OnClick; + property OnDblClick; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnStartDrag; + property DragCursor; + property DragMode; + property BevelInner: TPanelBevel read FBevelInner write SetBevelInner default bvLowered; + property BevelOuter: TPanelBevel read FBevelOuter write SetBevelOuter default bvNone; + property BevelSides: TglSides read FBevelSides write SetBevelSides + default [fsdLeft, fsdTop, fsdRight, fsdBottom]; + property BevelBold: Boolean read FBevelBold write SetBevelBold default False; + property BevelPenStyle: TPenStyle read FBevelPenStyle write SetBevelPenStyle default psSolid; + property BevelPenWidth: Word read FBevelPenWidth write SetBevelPenWidth default 1; + property InteriorOffset: Word read FInteriorOffset write SetInteriorOffset default 0; + property Gradient: TJvgGradient read FGradient write FGradient; + {$IFDEF USEJVCL} + property HintColor; + {$ENDIF USEJVCL} + property VertLines: TJvgBevelLines read FVertLines write FVertLines; + property HorLines: TJvgBevelLines read FHorLines write FHorLines; + {$IFDEF USEJVCL} + property OnMouseEnter; + property OnMouseLeave; + property OnParentColorChange; + {$ENDIF USEJVCL} + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +constructor TJvgBevel.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FGradient := TJvgGradient.Create; + FVertLines := TJvgBevelLines.Create; + FHorLines := TJvgBevelLines.Create; + //..defaults + Width := 50; + Height := 50; + FBevelInner := bvLowered; + FBevelOuter := bvNone; + FBevelSides := [fsdLeft, fsdTop, fsdRight, fsdBottom]; + FBevelPenStyle := psSolid; + FBevelPenWidth := 1; + FGradient.OnChanged := SomethingChanged; + FVertLines.OnChanged := SomethingChanged; + FHorLines.OnChanged := SomethingChanged; +end; + +destructor TJvgBevel.Destroy; +begin + FGradient.Free; + FVertLines.Free; + FHorLines.Free; + inherited Destroy; +end; + +procedure TJvgBevel.Loaded; +begin + inherited Loaded; + if FGradient.Active then + ControlStyle := ControlStyle + [csOpaque]; +end; + +procedure TJvgBevel.Paint; +var + R, R_: TRect; + BoxSides: TglSides; + TargetCanvas: TCanvas; + + procedure DrawLines(R_: TRect; Direction: TglLinesDir; Lines: + TJvgBevelLines); + var + I: Integer; + begin + if Direction = fldVertical then + begin + BoxSides := [fsdLeft, fsdRight]; + if Lines.IgnoreBorder then + begin + R_.Top := R.Top; + R_.Bottom := R.Bottom; + end; + end + else + begin + BoxSides := [fsdTop, fsdBottom]; + if Lines.IgnoreBorder then + begin + R_.Left := R.Left; + R_.Right := R.Right; + end; + end; + + for I := 1 to Lines.Count do + begin + case Direction of + fldVertical: + begin + R_.Left := MulDiv(I, Width, Lines.Count + 1); + R_.Right := R_.Left + Lines.Thickness + Ord(Lines.Bold); + end; + else {fldHorizontal:} + begin + R_.Top := MulDiv(I, Height, Lines.Count + 1); + // if I = 1 then Dec( R_.Top, Lines.Thickness ); + R_.Bottom := R_.Top + Lines.Thickness + Ord(Lines.Bold); + end; + end; + if Lines.Style = bvSpace then + BoxSides := [fsdLeft, fsdTop]; + + DrawBoxEx(TargetCanvas.Handle, R_, BoxSides, Lines.Style, bvNone, + Lines.Bold, 0, True); + end; + end; + +begin + if Assigned(ExternalCanvas) then + TargetCanvas := ExternalCanvas + else + TargetCanvas := Canvas; + R := ClientRect; + InflateRect(R, -FInteriorOffset, -FInteriorOffset); + GradientBox(TargetCanvas.Handle, R, Gradient, + Ord(FBevelPenStyle), FBevelPenWidth); + + R := ClientRect; + Dec(R.Right); + Dec(R.Bottom); + TargetCanvas.Pen.Width := FBevelPenWidth; + TargetCanvas.Pen.Style := FBevelPenStyle; + R_ := DrawBoxEx(TargetCanvas.Handle, R, BevelSides, BevelInner, BevelOuter, + FBevelBold, 0, True); + + DrawLines(R_, fldHorizontal, HorLines); + DrawLines(R_, fldVertical, VertLines); +end; + +procedure TJvgBevel.SomethingChanged(Sender: TObject); +begin + Repaint; +end; + +procedure TJvgBevel.SetBevelOuter(Value: TPanelBevel); +begin + if FBevelOuter <> Value then + begin + FBevelOuter := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelInner(Value: TPanelBevel); +begin + if FBevelInner <> Value then + begin + FBevelInner := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelSides(Value: TglSides); +begin + if FBevelSides <> Value then + begin + FBevelSides := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelBold(Value: Boolean); +begin + if FBevelBold <> Value then + begin + FBevelBold := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelPenStyle(Value: TPenStyle); +begin + if FBevelPenStyle <> Value then + begin + FBevelPenStyle := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelPenWidth(Value: Word); +begin + if FBevelPenWidth <> Value then + begin + FBevelPenWidth := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetInteriorOffset(Value: Word); +begin + if FInteriorOffset <> Value then + begin + FInteriorOffset := Value; + Invalidate; + end; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/JvgGraphicButton.pas (from rev 10854, trunk/jvcl/run/JvgGraphicButton.pas) =================================================================== --- trunk/jvcl/archive/JvgGraphicButton.pas (rev 0) +++ trunk/jvcl/archive/JvgGraphicButton.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,255 @@ +{----------------------------------------------------------------------------- +The contents of this file are subject to the Mozilla Public License +Version 1.1 (the "License"); you may not use this file except in compliance +with the License. You may obtain a copy of the License at +http://www.mozilla.org/MPL/MPL-1.1.html + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for +the specific language governing rights and limitations under the License. + +The Original Code is: JvgGraphicButton.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgGraphicButton; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, SysUtils, Classes, Graphics, Controls, + {$IFDEF USEJVCL} + JvComponent, + {$ENDIF USEJVCL} + JvgTypes, JvgUtils; + +type + TJvgButtonState = (bsActive, bsPassive, bsPushed); + + {$IFDEF USEJVCL} + TJvgGraphicButton = class(TJvGraphicControl) + {$ELSE} + TJvgGraphicButton = class(TGraphicControl) + {$ENDIF USEJVCL} + private + FAutoSize: Boolean; + FGlyphActive: TPicture; + FGlyphPassive: TPicture; + FGlyphPushed: TPicture; + FState: TJvgButtonState; + procedure SetGlyphActive(Value: TPicture); + procedure SetGlyphPassive(Value: TPicture); + procedure SetGlyphPushed(Value: TPicture); + protected + procedure MouseDown(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); override; + procedure MouseUp(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); override; + // procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; + {$IFDEF USEJVCL} + procedure MouseEnter(Control: TControl); override; + procedure MouseLeave(Control: TControl); override; + {$ENDIF USEJVCL} + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Paint; override; + property Canvas; + published + property Enabled; + property Height default 105; + property PopupMenu; + property ShowHint; + property Visible; + property Width default 105; + property OnClick; + property OnDblClick; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property GlyphActive: TPicture read FGlyphActive write SetGlyphActive; + property GlyphPassive: TPicture read FGlyphPassive write SetGlyphPassive; + property GlyphPushed: TPicture read FGlyphPushed write SetGlyphPushed; + {$IFDEF USEJVCL} + property OnMouseEnter; + property OnMouseLeave; + {$ENDIF USEJVCL} + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +{$IFDEF USEJVCL} +uses + JvThemes; +{$ENDIF USEJVCL} + +constructor TJvgGraphicButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + // ControlStyle := ControlStyle + [{csReplicatable,}csOpaque]; + Width := 105; + Height := 105; + {$IFDEF USEJVCL} + IncludeThemeStyle(Self, [csParentBackground]); + {$ENDIF USEJVCL} + + FGlyphActive := TPicture.Create; + FGlyphPassive := TPicture.Create; + FGlyphPushed := TPicture.Create; + //...defaults + FAutoSize := False; + FState := bsPassive; +end; + +destructor TJvgGraphicButton.Destroy; +begin + FGlyphActive.Free; + FGlyphPassive.Free; + FGlyphPushed.Free; + inherited Destroy; +end; + +procedure TJvgGraphicButton.Paint; +var + Glyph: TPicture; +begin + case FState of + bsActive: + if Assigned(FGlyphActive) then + Glyph := FGlyphActive + else + Glyph := FGlyphPassive; + bsPassive: + Glyph := FGlyphPassive; + else {bsPushed} + begin + if Assigned(FGlyphPushed) then + Glyph := FGlyphPushed + else + Glyph := FGlyphActive; + if not Assigned(Glyph) then + Glyph := FGlyphPassive; + end; + end; + if Assigned(Glyph) then + BitBlt(Canvas.Handle, 0, 0, Glyph.Width, Glyph.Height, + Glyph.Bitmap.Canvas.Handle, 0, 0, SRCCOPY); + if csDesigning in ComponentState then + with Canvas do + begin + Pen.Color := clBlack; + Pen.Style := psDash; + Brush.Style := bsClear; + Rectangle(0, 0, Width, Height); + end; +end; + +procedure TJvgGraphicButton.SetGlyphActive(Value: TPicture); +begin + FGlyphActive.Assign(Value); + Invalidate; +end; + +procedure TJvgGraphicButton.SetGlyphPassive(Value: TPicture); +begin + FGlyphPassive.Assign(Value); + Invalidate; +end; + +procedure TJvgGraphicButton.SetGlyphPushed(Value: TPicture); +begin + FGlyphPushed.Assign(Value); + Invalidate; +end; + +{$IFDEF USEJVCL} + +procedure TJvgGraphicButton.MouseEnter(Control: TControl); +begin + if csDesigning in ComponentState then + Exit; + inherited MouseEnter(Control); + FState := bsActive; + Repaint; +end; + +procedure TJvgGraphicButton.MouseLeave(Control: TControl); +begin + if csDesigning in ComponentState then + Exit; + inherited MouseLeave(Control); + FState := bsPassive; + Repaint; +end; + +{$ENDIF USEJVCL} + +procedure TJvgGraphicButton.MouseDown(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); +begin + inherited MouseDown(Button, Shift, X, Y); + if (Button <> mbLeft) or (not Enabled) or (FState = bsPassive) then + Exit; + FState := bsPushed; + Invalidate; +end; + +procedure TJvgGraphicButton.MouseUp(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); +begin + inherited MouseUp(Button, Shift, X, Y); +// if FState = bsPushed then +// Click; // already called + if FState = bsPushed then + FState := bsActive + else + FState := bsPassive; + Invalidate; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/JvgSplit.pas (from rev 10854, trunk/jvcl/run/JvgSplit.pas) =================================================================== --- trunk/jvcl/archive/JvgSplit.pas (rev 0) +++ trunk/jvcl/archive/JvgSplit.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,417 @@ +{----------------------------------------------------------------------------- +The contents of this file are subject to the Mozilla Public License +Version 1.1 (the "License"); you may not use this file except in compliance +with the License. You may obtain a copy of the License at +http://www.mozilla.org/MPL/MPL-1.1.html + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for +the specific language governing rights and limitations under the License. + +The Original Code is: JvgSplit.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgSplit; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls, + JvComponent, JVCLVer; + {$ELSE} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls; + {$ENDIF USEJVCL} + +type + TJvgSplitter = class(TSplitter) + private + {$IFDEF USEJVCL} + FAboutJVCL: TJVCLAboutInfo; + {$ENDIF USEJVCL} + FHotTrack: Boolean; + FTrackCount: Integer; + FActive: Boolean; + FDisplace: Boolean; + FKeepSize: Integer; (* +++ RDB --- *) + procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; + procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; + procedure WMMouseDblClick(var Msg: TMessage); message WM_LBUTTONDBLCLK; + procedure SetTrackCount(const Value: Integer); + procedure UpdateControlSize; + function FindControl: TControl; + procedure PrepareMarcs(Align: TAlign; var Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint); + procedure SetDisplace(const Value: Boolean); + public + constructor Create(AOwner: TComponent); override; + procedure Paint; override; + published + {$IFDEF USEJVCL} + property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; + {$ENDIF USEJVCL} + property Displace: Boolean read FDisplace write SetDisplace default True; + property HotTrack: Boolean read FHotTrack write FHotTrack default True; + property TrackCount: Integer read FTrackCount write SetTrackCount default 20; + property Width default 6; + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +{$IFDEF USEJVCL} +uses + JvThemes; +{$ENDIF USEJVCL} + +constructor TJvgSplitter.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + {$IFDEF USEJVCL} + IncludeThemeStyle(Self, [csParentBackground]); + {$ENDIF USEJVCL} + FKeepSize := 0; + //..defaults + Width := 6; + FHotTrack := True; + FDisplace := True; + FTrackCount := 20; +end; + +procedure TJvgSplitter.Paint; +var + I: Integer; + SColor: TColor; + Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint; + R, R1, R2: TRect; +begin + with Canvas do + begin + Brush.Color := Self.Color; + {$IFDEF USEJVCL} + DrawThemedBackground(Self, Canvas, ClientRect); + {$ELSE} + Canvas.FillRect(ClientRect); + {$ENDIF USEJVCL} + + if (Align = alBottom) or (Align = alTop) then + begin + R1 := Classes.Bounds((Width - FTrackCount * 4) div 2, 0, 3, 3); + R2 := Classes.Bounds((Width - FTrackCount * 4) div 2, 3, 3, 3); + end + else + begin + R1 := Classes.Bounds(0, (Height - FTrackCount * 4) div 2, 3, 3); + R2 := Classes.Bounds(3, (Height - FTrackCount * 4) div 2, 3, 3); + end; + + for I := 0 to FTrackCount - 1 do + begin + {$IFDEF JVCLThemesEnabled} + if FActive and HotTrack and ThemeServices.ThemesEnabled then + SColor := RGB(100, 100, 100) + else + {$ENDIF JVCLThemesEnabled} + if FActive and HotTrack then + SColor := clBlack + else + SColor := clBtnShadow; + + R := R1; + Frame3D(Canvas, R, clBtnHighlight, SColor, 1); + R := R2; + Frame3D(Canvas, R, clBtnHighlight, SColor, 1); + + if (Align = alBottom) or (Align = alTop) then + begin + OffsetRect(R1, 4, 0); + OffsetRect(R2, 4, 0); + end + else + begin + OffsetRect(R1, 0, 4); + OffsetRect(R2, 0, 4); + end; + + end; + if FDisplace then + begin + PrepareMarcs(Align, Pt1, Pt2, Pt3, Pt4, Pt5, Pt6); + if FActive then + Canvas.Brush.Color := clGray + else + Canvas.Brush.Color := clWhite; + Canvas.Polygon([Pt1, Pt2, Pt3]); + Canvas.Polygon([Pt4, Pt5, Pt6]); + end; + end; +end; + +procedure TJvgSplitter.PrepareMarcs(Align: TAlign; var Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint); +begin + case Align of + alRight: + begin + Pt1.X := 1; + Pt1.Y := (Height - FTrackCount * 4) div 2 - 30; + Pt2.X := 1; + Pt2.Y := Pt1.Y + 6; + Pt3.X := 4; + Pt3.Y := Pt1.Y + 3; + + Pt4.X := 1; + Pt4.Y := (Height - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - + 7; + Pt5.X := 1; + Pt5.Y := Pt4.Y + 6; + Pt6.X := 4; + Pt6.Y := Pt4.Y + 3; + end; + alLeft: + begin + Pt1.X := 3; + Pt1.Y := (Height - FTrackCount * 4) div 2 - 30; + Pt2.X := 3; + Pt2.Y := Pt1.Y + 6; + Pt3.X := 0; + Pt3.Y := Pt1.Y + 3; + + Pt4.X := 3; + Pt4.Y := (Height - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - + 7; + Pt5.X := 3; + Pt5.Y := Pt4.Y + 6; + Pt6.X := 0; + Pt6.Y := Pt4.Y + 3; + end; + alTop: + begin + Pt1.X := (Width - FTrackCount * 4) div 2 - 30; + Pt1.Y := 4; + Pt2.X := Pt1.X + 6; + Pt2.Y := 4; + Pt3.X := Pt1.X + 3; + Pt3.Y := 1; + + Pt4.X := (Width - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - 7; + Pt4.Y := 4; + Pt5.X := Pt4.X + 6; + Pt5.Y := 4; + Pt6.X := Pt4.X + 3; + Pt6.Y := 1; + end; + alBottom: + begin + Pt1.X := (Width - FTrackCount * 4) div 2 - 30; + Pt1.Y := 1; + Pt2.X := Pt1.X + 6; + Pt2.Y := 1; + Pt3.X := Pt1.X + 3; + Pt3.Y := 4; + + Pt4.X := (Width - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - 7; + Pt4.Y := 1; + Pt5.X := Pt4.X + 6; + Pt5.Y := 1; + Pt6.X := Pt4.X + 3; + Pt6.Y := 4; + end; + end; +end; + +procedure TJvgSplitter.CMMouseEnter(var Msg: TMessage); +begin + inherited; + FActive := True; + Invalidate; +end; + +procedure TJvgSplitter.CMMouseLeave(var Msg: TMessage); +begin + inherited; + FActive := False; + Invalidate; +end; + +procedure TJvgSplitter.SetTrackCount(const Value: Integer); +begin + FTrackCount := Value; + Invalidate; +end; + +procedure TJvgSplitter.WMMouseDblClick(var Msg: TMessage); +begin + if FDisplace then + UpdateControlSize; +end; + +procedure TJvgSplitter.UpdateControlSize; +const + cNewSize = 0; +var + FControl: TControl; +begin + FControl := FindControl; + if not Assigned(FControl) then + Exit; + if FKeepSize = 0 then + begin + case Align of + alLeft: + begin + FKeepSize := FControl.Width; + FControl.Width := cNewSize; + end; + alTop: + begin + FKeepSize := FControl.Height; + FControl.Height := cNewSize; + end; + alRight: + begin + FKeepSize := FControl.Width; + Parent.DisableAlign; + try + FControl.Left := FControl.Left + (FControl.Width - cNewSize); + FControl.Width := cNewSize; + finally + Parent.EnableAlign; + end; + end; + alBottom: + begin + FKeepSize := FControl.Height; + Parent.DisableAlign; + try + FControl.Top := FControl.Top + (FControl.Height - cNewSize); + FControl.Height := cNewSize; + finally + Parent.EnableAlign; + end; + end; + end; + end + else (* ++++ RDB +++ *) + begin + case Align of + alLeft: + FControl.Width := FKeepSize; + alTop: + FControl.Height := FKeepSize; + alRight: + begin + Parent.DisableAlign; + try + FControl.Left := FControl.Left + (FControl.Width - FKeepSize); + FControl.Width := FKeepSize; + finally + Parent.EnableAlign; + end; + end; + alBottom: + begin + Parent.DisableAlign; + try + FControl.Top := FControl.Top + (FControl.Height - FKeepSize); + FControl.Height := FKeepSize; + finally + Parent.EnableAlign; + end; + end; + end; + FKeepSize := 0; (* --- RDB --- *) + end; + Update; + if Assigned(OnMoved) then + OnMoved(Self); +end; + +function TJvgSplitter.FindControl: TControl; +var + P: TPoint; + I: Integer; + R: TRect; +begin + Result := nil; + P := Point(Left, Top); + case Align of + alLeft: + Dec(P.X); + alRight: + Inc(P.X, Width); + alTop: + Dec(P.Y); + alBottom: + Inc(P.Y, Height); + else + Exit; + end; + for I := 0 to Parent.ControlCount - 1 do + begin + Result := Parent.Controls[I]; + if Result.Visible and Result.Enabled then + begin + R := Result.BoundsRect; + if (R.Right - R.Left) = 0 then + if Align in [alTop, alLeft] then + Dec(R.Left) + else + Inc(R.Right); + if (R.Bottom - R.Top) = 0 then + if Align in [alTop, alLeft] then + Dec(R.Top) + else + Inc(R.Bottom); + if PtInRect(R, P) then + Exit; + end; + end; + Result := nil; +end; + +procedure TJvgSplitter.SetDisplace(const Value: Boolean); +begin + FDisplace := Value; + Invalidate; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/changelog.txt 2006-07-31 08:24:21 UTC (rev 10855) @@ -1,5 +1,9 @@ Changelog for JVCL 3.X ====================== +2006-07-31 +- TJvgBevel has been deprecated and moved to archive, replaced by TJvBevel // obones +- TJvgSplitter has been deprecated and moved to archive, replaced by TJvNetscapeSplitter // obones +- TJvgGraphicButton has been deprecated and moved to archive, replaced by TJvTransparentButton // obones 2006-07-23 - New Database Components for Logon and Change Password included. Support for database components "Direct Oracle Access Components" Modified: trunk/jvcl/converter/JVCL3.dat =================================================================== (Binary files differ) Modified: trunk/jvcl/design/JvGlobusReg.pas =================================================================== --- trunk/jvcl/design/JvGlobusReg.pas 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/design/JvGlobusReg.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -51,14 +51,14 @@ JvgScrollBox, JvgShade, JvgDigits, JvgDrawTab, {JvgEdit, } JvgExceptionHandler, JvgShadowEditor, JvgFileIterator, {JvgFileUtils, } JvgFixFont, JvgShadow, {JvgGraph,} - JvgGraphicButton, JvgSingleInstance, {JvgShape, } - JvgSpeedButton, JvgStaticText, JvgHoleShape, JvgSplit, + {JvgGraphicButton, }JvgSingleInstance, {JvgShape, } + JvgSpeedButton, JvgStaticText, JvgHoleShape, {JvgSplit,} {JvgImageGroup, } JvgInspectorGrid, {JvgJump, } JvgSmallFontsDefense, {JvgSysInf, } JvgLogicItemEditorForm, JvgLogics, JvgStringContainer, JvgMailSlots, JvgStringGrid, JvgTabComm, JvgTab, JvgSysRequirements, {JvgProcess, } {JvgProcessUtils, } JvgPropertyCenter, JvgTransparentMemo, JvgTreeView, JvgTypes, JvgUtils, {JvgWinMask, } JvgRTFPreviewForm, - JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, JvgBevel, + JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, {JvgBevel,} JvgButton, JvgCheckBox, JvgCompDescription, JvgComponentListEditorForm, JvgFlyingText, JvgGroupBox, JvgHelpPanel, JvgHelpPanelEditor, JvgHint, JvgImage, @@ -91,8 +91,8 @@ TJvgVertDBSGrid, {$ENDIF !DelphiPersonalEdition} TJvgGridHeaderControl, - {TJvgSysInfo, TJvgMaskEdit, }TJvgBevel, {TJvgBitBtn, }TJvgGraphicButton, - {TJvgGraph,} TJvgTreeView, TJvgCheckTreeView, TJvgSplitter, TJvgShadow, + {TJvgSysInfo, TJvgMaskEdit, TJvgBevel, TJvgBitBtn, TJvgGraphicButton,} + {TJvgGraph,} TJvgTreeView, TJvgCheckTreeView, {TJvgSplitter, }TJvgShadow, TJvgShade, TJvgButton, {TJvgImageGroup,} TJvgProgress, TJvgTransparentMemo, {TJvgWinMask,} TJvgGroupBox, TJvgBitmapImage, TJvgListBox, TJvgCheckListBox, TJvgAskListBox, TJvgScrollBox, TJvgStringGrid, TJvgSpeedButton, Modified: trunk/jvcl/help/migrating_globus.html =================================================================== --- trunk/jvcl/help/migrating_globus.html 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/help/migrating_globus.html 2006-07-31 08:24:21 UTC (rev 10855) @@ -70,7 +70,8 @@ </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Moved to Archive. Was completely nonfunctional.<br> + <td style="vertical-align: top;">Moved to Archive. Was completely +nonfunctional.<br> </td> </tr> <tr> @@ -243,16 +244,43 @@ </td> </tr> <tr> - <td style="vertical-align: top;">TJvgBevel</td> - <td style="vertical-align: top;"><br> + <td colspan="1" rowspan="4" style="vertical-align: top;">TJvgBevel</td> + <td style="vertical-align: top;">*<br> </td> - <td style="vertical-align: top;"><br> + <td colspan="1" rowspan="4" style="vertical-align: top;">TJvBevel<br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">*<br> </td> - <td style="vertical-align: top;">In progress by OBones</td> + <td style="vertical-align: top;">All properties have been merged +into TJvBevel except for those below<br> + </td> </tr> <tr> + <td style="vertical-align: top;">HorLines<br> + </td> + <td style="vertical-align: top;">HorizontalLines<br> + </td> + <td style="vertical-align: top;">Automatically changed by the +converter<br> + </td> + </tr> + <tr> + <td style="vertical-align: top;">VertLines<br> + </td> + <td style="vertical-align: top;">VerticalLines<br> + </td> + <td style="vertical-align: top;">Automatically changed by the +converter</td> + </tr> + <tr> + <td style="vertical-align: top;">Gradient</td> + <td style="vertical-align: top;">n/a<br> + </td> + <td style="vertical-align: top;">Gradient has not been ported, +use a TJvGradient instead and put it behind.<br> + </td> + </tr> + <tr> <td style="vertical-align: top;">TJvgBitBtn</td> <td style="vertical-align: top;"><br> </td> @@ -268,11 +296,18 @@ <td style="vertical-align: top;">TJvgGraphicButton</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">TJvTransparentButton<br> </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">In progress by OBones</td> + <td style="vertical-align: top;">Set FrameStyle to fsNone and put +the Glyphs in an image list in this order:<br> +0: GlyphPassive<br> +1: <br> +2: GlyphPushed<br> +3:<br> +4: GlyphActive<br> + </td> </tr> <tr> <td style="vertical-align: top;">TJvgTreeView<br> @@ -299,11 +334,12 @@ <td style="vertical-align: top;">TJvgSplitter</td> <td style="vertical-align: top;"><br> </td> + <td style="vertical-align: top;">TJvNetscapeSplitter<br> + </td> <td style="vertical-align: top;"><br> </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">In progress by OBones</td> </tr> <tr> <td style="vertical-align: top;">TJvgShadow</td> @@ -516,8 +552,7 @@ <td style="vertical-align: top;">TJvgProcess</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">TJvCreateProcess - </td> + <td style="vertical-align: top;">TJvCreateProcess </td> <td style="vertical-align: top;"><br> </td> <td style="vertical-align: top;">TJvCreateProcess is superior</td> @@ -582,7 +617,8 @@ </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Not done yet. Recommendation: move unconditionally to Archive</td> + <td style="vertical-align: top;">Not done yet. Recommendation: +move unconditionally to Archive</td> </tr> <tr> <td style="vertical-align: top;">TJvgHoleShape</td> Modified: trunk/jvcl/packages/c5/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:39 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c5\JvgSingleInstance.obj ..\..\lib\c5\JvgSmallFontsDefense.obj ..\..\lib\c5\JvgSpeedButton.obj - ..\..\lib\c5\JvgSplit.obj ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj @@ -38,7 +37,6 @@ ..\..\lib\c5\Jvg3DColors.obj ..\..\lib\c5\JvgAlignFunction.obj ..\..\lib\c5\JvgAskListBox.obj - ..\..\lib\c5\JvgBevel.obj ..\..\lib\c5\JvgButton.obj ..\..\lib\c5\JvgCaption.obj ..\..\lib\c5\JvgCheckBox.obj @@ -52,7 +50,6 @@ ..\..\lib\c5\JvgExportComponents.obj ..\..\lib\c5\JvgFileIterator.obj ..\..\lib\c5\JvgFlyingText.obj - ..\..\lib\c5\JvgGraphicButton.obj ..\..\lib\c5\JvgGridHeaderControl.obj ..\..\lib\c5\JvgGroupBox.obj ..\..\lib\c5\JvgHelpPanel.obj Modified: trunk/jvcl/packages/c5/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- */ @@ -19,7 +19,6 @@ USEUNIT("..\..\run\JvgSingleInstance.pas"); USEUNIT("..\..\run\JvgSmallFontsDefense.pas"); USEUNIT("..\..\run\JvgSpeedButton.pas"); -USEUNIT("..\..\run\JvgSplit.pas"); USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); @@ -35,7 +34,6 @@ USEUNIT("..\..\run\Jvg3DColors.pas"); USEUNIT("..\..\run\JvgAlignFunction.pas"); USEUNIT("..\..\run\JvgAskListBox.pas"); -USEUNIT("..\..\run\JvgBevel.pas"); USEUNIT("..\..\run\JvgButton.pas"); USEUNIT("..\..\run\JvgCaption.pas"); USEUNIT("..\..\run\JvgCheckBox.pas"); @@ -49,7 +47,6 @@ USEUNIT("..\..\run\JvgExportComponents.pas"); USEUNIT("..\..\run\JvgFileIterator.pas"); USEUNIT("..\..\run\JvgFlyingText.pas"); -USEUNIT("..\..\run\JvgGraphicButton.pas"); USEUNIT("..\..\run\JvgGridHeaderControl.pas"); USEUNIT("..\..\run\JvgGroupBox.pas"); USEUNIT("..\..\run\JvgHelpPanel.pas"); Modified: trunk/jvcl/packages/c5/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- } @@ -56,7 +56,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -72,7 +71,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -86,7 +84,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:39 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c5\JvgSingleInstance.obj ..\..\lib\c5\JvgSmallFontsDefense.obj ..\..\lib\c5\JvgSpeedButton.obj - ..\..\lib\c5\JvgSplit.obj ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj @@ -37,7 +36,6 @@ ..\..\lib\c5\Jvg3DColors.obj ..\..\lib\c5\JvgAlignFunction.obj ..\..\lib\c5\JvgAskListBox.obj - ..\..\lib\c5\JvgBevel.obj ..\..\lib\c5\JvgButton.obj ..\..\lib\c5\JvgCaption.obj ..\..\lib\c5\JvgCheckBox.obj @@ -47,7 +45,6 @@ ..\..\lib\c5\JvgExceptionHandler.obj ..\..\lib\c5\JvgFileIterator.obj ..\..\lib\c5\JvgFlyingText.obj - ..\..\lib\c5\JvgGraphicButton.obj ..\..\lib\c5\JvgGridHeaderControl.obj ..\..\lib\c5\JvgGroupBox.obj ..\..\lib\c5\JvgHelpPanel.obj Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- */ @@ -19,7 +19,6 @@ USEUNIT("..\..\run\JvgSingleInstance.pas"); USEUNIT("..\..\run\JvgSmallFontsDefense.pas"); USEUNIT("..\..\run\JvgSpeedButton.pas"); -USEUNIT("..\..\run\JvgSplit.pas"); USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); @@ -34,7 +33,6 @@ USEUNIT("..\..\run\Jvg3DColors.pas"); USEUNIT("..\..\run\JvgAlignFunction.pas"); USEUNIT("..\..\run\JvgAskListBox.pas"); -USEUNIT("..\..\run\JvgBevel.pas"); USEUNIT("..\..\run\JvgButton.pas"); USEUNIT("..\..\run\JvgCaption.pas"); USEUNIT("..\..\run\JvgCheckBox.pas"); @@ -44,7 +42,6 @@ USEUNIT("..\..\run\JvgExceptionHandler.pas"); USEUNIT("..\..\run\JvgFileIterator.pas"); USEUNIT("..\..\run\JvgFlyingText.pas"); -USEUNIT("..\..\run\JvgGraphicButton.pas"); USEUNIT("..\..\run\JvgGridHeaderControl.pas"); USEUNIT("..\..\run\JvgGroupBox.pas"); USEUNIT("..\..\run\JvgHelpPanel.pas"); Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- } @@ -55,7 +55,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -70,7 +69,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -80,7 +78,6 @@ JvgExceptionHandler in '..\..\run\JvgExceptionHandler.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c6/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:43 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c6\JvgSingleInstance.obj ..\..\lib\c6\JvgSmallFontsDefense.obj ..\..\lib\c6\JvgSpeedButton.obj - ..\..\lib\c6\JvgSplit.obj ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj @@ -38,7 +37,6 @@ ..\..\lib\c6\Jvg3DColors.obj ..\..\lib\c6\JvgAlignFunction.obj ..\..\lib\c6\JvgAskListBox.obj - ..\..\lib\c6\JvgBevel.obj ..\..\lib\c6\JvgButton.obj ..\..\lib\c6\JvgCaption.obj ..\..\lib\c6\JvgCheckBox.obj @@ -52,7 +50,6 @@ ..\..\lib\c6\JvgExportComponents.obj ..\..\lib\c6\JvgFileIterator.obj ..\..\lib\c6\JvgFlyingText.obj - ..\..\lib\c6\JvgGraphicButton.obj ..\..\lib\c6\JvgGridHeaderControl.obj ..\..\lib\c6\JvgGroupBox.obj ..\..\lib\c6\JvgHelpPanel.obj @@ -152,7 +149,6 @@ <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSmallFontsDefense.pas" FORMNAME="" UNITNAME="JvgSmallFontsDefense" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSpeedButton.pas" FORMNAME="" UNITNAME="JvgSpeedButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSplit.pas" FORMNAME="" UNITNAME="JvgSplit" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -168,7 +164,6 @@ <FILE FILENAME="..\..\run\Jvg3DColors.pas" FORMNAME="" UNITNAME="Jvg3DColors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAlignFunction.pas" FORMNAME="" UNITNAME="JvgAlignFunction" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAskListBox.pas" FORMNAME="" UNITNAME="JvgAskListBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgBevel.pas" FORMNAME="" UNITNAME="JvgBevel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgButton.pas" FORMNAME="" UNITNAME="JvgButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCaption.pas" FORMNAME="" UNITNAME="JvgCaption" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCheckBox.pas" FORMNAME="" UNITNAME="JvgCheckBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -182,7 +177,6 @@ <FILE FILENAME="..\..\run\JvgExportComponents.pas" FORMNAME="" UNITNAME="JvgExportComponents" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFileIterator.pas" FORMNAME="" UNITNAME="JvgFileIterator" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFlyingText.pas" FORMNAME="" UNITNAME="JvgFlyingText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgGraphicButton.pas" FORMNAME="" UNITNAME="JvgGraphicButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGridHeaderControl.pas" FORMNAME="" UNITNAME="JvgGridHeaderControl" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGroupBox.pas" FORMNAME="" UNITNAME="JvgGroupBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgHelpPanel.pas" FORMNAME="" UNITNAME="JvgHelpPanel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:45 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -74,7 +73,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -88,7 +86,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:43 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c6\JvgSingleInstance.obj ..\..\lib\c6\JvgSmallFontsDefense.obj ..\..\lib\c6\JvgSpeedButton.obj - ..\..\lib\c6\JvgSplit.obj ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj @@ -37,7 +36,6 @@ ..\..\lib\c6\Jvg3DColors.obj ..\..\lib\c6\JvgAlignFunction.obj ..\..\lib\c6\JvgAskListBox.obj - ..\..\lib\c6\JvgBevel.obj ..\..\lib\c6\JvgButton.obj ..\..\lib\c6\JvgCaption.obj ..\..\lib\c6\JvgCheckBox.obj @@ -47,7 +45,6 @@ ..\..\lib\c6\JvgExceptionHandler.obj ..\..\lib\c6\JvgFileIterator.obj ..\..\lib\c6\JvgFlyingText.obj - ..\..\lib\c6\JvgGraphicButton.obj ..\..\lib\c6\JvgGridHeaderControl.obj ..\..\lib\c6\JvgGroupBox.obj ..\..\lib\c6\JvgHelpPanel.obj @@ -140,7 +137,6 @@ <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSmallFontsDefense.pas" FORMNAME="" UNITNAME="JvgSmallFontsDefense" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSpeedButton.pas" FORMNAME="" UNITNAME="JvgSpeedButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSplit.pas" FORMNAME="" UNITNAME="JvgSplit" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -155,7 +151,6 @@ <FILE FILENAME="..\..\run\Jvg3DColors.pas" FORMNAME="" UNITNAME="Jvg3DColors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAlignFunction.pas" FORMNAME="" UNITNAME="JvgAlignFunction" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAskListBox.pas" FORMNAME="" UNITNAME="JvgAskListBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgBevel.pas" FORMNAME="" UNITNAME="JvgBevel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgButton.pas" FORMNAME="" UNITNAME="JvgButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCaption.pas" FORMNAME="" UNITNAME="JvgCaption" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCheckBox.pas" FORMNAME="" UNITNAME="JvgCheckBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -165,7 +160,6 @@ <FILE FILENAME="..\..\run\JvgExceptionHandler.pas" FORMNAME="" UNITNAME="JvgExceptionHandler" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFileIterator.pas" FORMNAME="" UNITNAME="JvgFileIterator" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFlyingText.pas" FORMNAME="" UNITNAME="JvgFlyingText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgGraphicButton.pas" FORMNAME="" UNITNAME="JvgGraphicButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGridHeaderControl.pas" FORMNAME="" UNITNAME="JvgGridHeaderControl" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGroupBox.pas" FORMNAME="" UNITNAME="JvgGroupBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgHelpPanel.pas" FORMNAME="" UNITNAME="JvgHelpPanel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:45 UTC ----------------------------------------------------------------------------- } @@ -56,7 +56,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -71,7 +70,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -81,7 +79,6 @@ JvgExceptionHandler in '..\..\run\JvgExceptionHandler.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/d10/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 05-06-2006 07:17:01 UTC + Last generated: 31-07-2006 08:18:48 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -74,7 +73,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -88,7 +86,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/d10per/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk... [truncated message content] |