Plugin is not adapted until someone can compile it and tell others how to do the same

git-svn-id: http://svn.miranda-ng.org/main/trunk@1809 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 353 insertions, 0 deletions

diff --git a/plugins/!NotAdopted/Chess4Net/lib/PNGImage/pngextra.pas b/plugins/!NotAdopted/Chess4Net/lib/PNGImage/pngextra.pas
new file mode 100644
index 0000000000..c219e7e22e
--- /dev/null
+++ b/plugins/!NotAdopted/Chess4Net/lib/PNGImage/pngextra.pas
@@ -0,0 +1,353 @@
+unit pngextra;

+

+interface

+

+uses

+  Windows, Graphics, Messages, SysUtils, Classes, Controls, pngimage, Buttons,

+  ExtCtrls;

+

+type

+  TPNGButtonStyle = (pbsDefault, pbsFlat, pbsNoFrame);

+  TPNGButtonLayout = (pbsImageAbove, pbsImageBellow, pbsImageLeft,

+    pbsImageRight);

+  TPNGButtonState = (pbsNormal, pbsDown, pbsDisabled);

+

+  TPNGButton = class(TGraphicControl)

+  private

+    {Holds the property values}

+    fButtonStyle: TPNGButtonStyle;

+    fMouseOverControl: Boolean;

+    FCaption: String;

+    FButtonLayout: TPNGButtonLayout;

+    FButtonState: TPNGButtonState;

+    FImageDown: TPNGObject;

+    fImageNormal: TPNGObject;

+    fImageDisabled: TPNGObject;

+    fImageOver: TPNGObject;

+    fOnMouseEnter, fOnMouseExit: TNotifyEvent;

+    {Procedures for setting the property values}

+    procedure SetButtonStyle(const Value: TPNGButtonStyle);

+    procedure SetCaption(const Value: String);

+    procedure SetButtonLayout(const Value: TPNGButtonLayout);

+    procedure SetButtonState(const Value: TPNGButtonState);

+    procedure SetImageNormal(const Value: TPNGObject);

+    procedure SetImageDown(const Value: TPNGObject);

+    procedure SetImageOver(const Value: TPNGObject);

+  published

+    {Published properties}

+    property Font;

+    property Visible;

+    property ButtonLayout: TPNGButtonLayout read FButtonLayout write SetButtonLayout;

+    property Caption: String read FCaption write SetCaption;

+    property ImageNormal: TPNGObject read fImageNormal write SetImageNormal;

+    property ImageDown: TPNGObject read FImageDown write SetImageDown;

+    property ImageOver: TPNGObject read FImageOver write SetImageOver;

+    property ButtonStyle: TPNGButtonStyle read fButtonStyle

+      write SetButtonStyle;

+    property Enabled;

+    property ParentShowHint;

+    property ShowHint;

+    {Default events}

+    property OnMouseDown;

+    property OnClick;

+    property OnMouseUp;

+    property OnMouseMove;

+    property OnDblClick;

+    property OnMouseEnter: TNotifyEvent read fOnMouseEnter write fOnMouseEnter;

+    property OnMouseExit:  TNotifyEvent read fOnMouseExit  write fOnMouseExit;

+  public

+    {Public properties}

+    property ButtonState: TPNGButtonState read FButtonState write SetButtonState;

+  protected

+    {Being painted}

+    procedure Paint; override;

+    {Clicked}

+    procedure Click; override;

+    {Mouse pressed}

+    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;

+    {Mouse entering or leaving}

+    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;

+    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

+    {Being enabled or disabled}

+    procedure CMEnabledChanged(var Message: TMessage);

+      message CM_ENABLEDCHANGED;

+  public

+    {Returns if the mouse is over the control}

+    property IsMouseOver: Boolean read fMouseOverControl;

+    {Constructor and destructor}

+    constructor Create(AOwner: TComponent); override;

+    destructor Destroy; override;

+  end;

+

+procedure Register;

+procedure MakeImageHalfTransparent(Source, Dest: TPNGObject);

+

+implementation

+

+procedure Register;

+begin

+  RegisterComponents('Samples', [TPNGButton]);

+end;

+

+procedure MakeImageHalfTransparent(Source, Dest: TPNGObject);

+var

+  i, j: Integer;

+begin

+  Dest.Assign(Source);

+  Dest.CreateAlpha;

+  if (Dest.Header.ColorType <> COLOR_PALETTE) then

+    for j := 0 to Source.Height - 1 do

+      for i := 0 to Source.Width - 1 do

+        Dest.AlphaScanline[j]^[i] := Dest.AlphaScanline[j]^[i] div 3;

+end;

+

+{TPNGButton implementation}

+

+{Being created}

+constructor TPNGButton.Create(AOwner: TComponent);

+begin

+  {Calls ancestor}

+  inherited Create(AOwner);

+  {Creates the TPNGObjects}

+  fImageNormal := TPNGObject.Create;

+  fImageDown := TPNGObject.Create;

+  fImageDisabled := TPNGObject.Create;

+  fImageOver := TPNGObject.Create;

+  {Initial properties}

+  ControlStyle := ControlStyle + [csCaptureMouse];

+  SetBounds(Left, Top, 23, 23);

+  fMouseOverControl := False;

+  fButtonLayout := pbsImageAbove;

+  fButtonState := pbsNormal

+end;

+

+destructor TPNGButton.Destroy;

+begin

+  {Frees the TPNGObject}

+  fImageNormal.Free;

+  fImageDown.Free;

+  fImageDisabled.Free;

+  fImageOver.Free;

+

+  {Calls ancestor}

+  inherited Destroy;

+end;

+

+{Being enabled or disabled}

+procedure TPNGButton.CMEnabledChanged(var Message: TMessage);

+begin

+  if not Enabled then MakeImageHalfTransparent(fImageNormal, fImageDisabled);

+  if Enabled then ButtonState := pbsNormal else ButtonState := pbsDisabled

+end;

+

+{Returns the largest number}

+function Max(A, B: Integer): Integer;

+begin

+  if A > B then Result := A else Result := B

+end;

+

+{Button being painted}

+procedure TPNGButton.Paint;

+const

+  Slide: Array[false..true] of Integer = (0, 2);

+var

+  Area: TRect;

+  TextSize, ImageSize: TSize;

+  TextPos, ImagePos: TPoint;

+  Image: TPNGObject;

+  Pushed: Boolean;

+begin

+  {Prepares the canvas}

+  Canvas.Font.Assign(Font);

+

+  {Determines if the button is pushed}

+  Pushed := (ButtonState = pbsDown) and IsMouseOver;

+

+  {Determines the image to use}

+  if (Pushed) and not fImageDown.Empty then

+    Image := fImageDown

+  else if IsMouseOver and not fImageOver.Empty and Enabled then

+    Image := fImageOver

+  else if (ButtonState = pbsDisabled) and not fImageDisabled.Empty then

+    Image := fImageDisabled

+  else

+    Image := fImageNormal;

+

+  {Get the elements size}

+  ImageSize.cx := Image.Width;

+  ImageSize.cy := Image.Height;

+  Area := ClientRect;

+  if Caption <> '' then

+  begin

+    TextSize := Canvas.TextExtent(Caption);

+    ImageSize.cy := ImageSize.Cy + 4;

+  end else FillChar(TextSize, SizeOf(TextSize), #0);

+

+  {Set the elements position}

+  ImagePos.X := (Width - ImageSize.cx) div 2 + Slide[Pushed];

+  TextPos.X := (Width - TextSize.cx) div 2 + Slide[Pushed];

+  TextPos.Y := (Height - TextSize.cy) div 2;

+  ImagePos.Y := (Height - ImageSize.cy) div 2;

+  case ButtonLayout of

+    pbsImageAbove: begin

+      ImagePos.Y := (Height - ImageSize.cy - TextSize.cy) div 2;

+      TextPos.Y := ImagePos.Y + ImageSize.cy;

+      end;

+    pbsImageBellow: begin

+      TextPos.Y := (Height - ImageSize.cy - TextSize.cy) div 2;

+      ImagePos.Y := TextPos.Y + TextSize.cy;

+      end;

+    pbsImageLeft: begin

+      ImagePos.X := (Width - ImageSize.cx - TextSize.cx) div 2;

+      TextPos.X := ImagePos.X + ImageSize.cx + 5;

+      end;

+    pbsImageRight: begin

+      TextPos.X := (Width - ImageSize.cx - TextSize.cx) div 2;;

+      ImagePos.X := TextPos.X + TextSize.cx + 5;

+    end

+  end;

+  ImagePos.Y := ImagePos.Y + Slide[Pushed];

+  TextPos.Y := TextPos.Y + Slide[Pushed];

+

+  {Draws the border}

+  if ButtonStyle = pbsFlat then

+  begin

+    if ButtonState <> pbsDisabled then

+      if (Pushed) then

+        Frame3D(Canvas, Area, clBtnShadow, clBtnHighlight, 1)

+      else if IsMouseOver or (ButtonState = pbsDown) then

+        Frame3D(Canvas, Area, clBtnHighlight, clBtnShadow, 1)

+  end

+  else if ButtonStyle = pbsDefault then

+    DrawButtonFace(Canvas, Area, 1, bsNew, TRUE, Pushed, FALSE);

+

+  {Draws the elements}

+  Canvas.Brush.Style := bsClear;

+  Canvas.Draw(ImagePos.X, ImagePos.Y, Image);

+  if ButtonState = pbsDisabled then Canvas.Font.Color := clGrayText;

+  Canvas.TextRect(Area, TextPos.X, TextPos.Y, Caption)

+end;

+

+{Changing the button Layout property}

+procedure TPNGButton.SetButtonLayout(const Value: TPNGButtonLayout);

+begin

+  FButtonLayout := Value;

+  Repaint

+end;

+

+{Changing the button state property}

+procedure TPNGButton.SetButtonState(const Value: TPNGButtonState);

+begin

+  FButtonState := Value;

+  Repaint

+end;

+

+{Changing the button style property}

+procedure TPNGButton.SetButtonStyle(const Value: TPNGButtonStyle);

+begin

+  fButtonStyle := Value;

+  Repaint

+end;

+

+{Changing the caption property}

+procedure TPNGButton.SetCaption(const Value: String);

+begin

+  FCaption := Value;

+  Repaint

+end;

+

+{Changing the image property}

+procedure TPNGButton.SetImageNormal(const Value: TPNGObject);

+begin

+  fImageNormal.Assign(Value);

+  MakeImageHalfTransparent(fImageNormal, fImageDisabled);

+  Repaint

+end;

+

+{Setting the down image}

+procedure TPNGButton.SetImageDown(const Value: TPNGObject);

+begin

+  FImageDown.Assign(Value);

+  Repaint

+end;

+

+{Setting the over image}

+procedure TPNGButton.SetImageOver(const Value: TPNGObject);

+begin

+  fImageOver.Assign(Value);

+  Repaint

+end;

+

+{Mouse pressed}

+procedure TPNGButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X,

+  Y: Integer);

+begin

+  {Changes the state and repaints}

+  if (ButtonState = pbsNormal) and (Button = mbLeft) then

+    ButtonState := pbsDown;

+  {Calls ancestor}

+  inherited

+end;

+

+{Being clicked}

+procedure TPNGButton.Click;

+begin

+  if ButtonState = pbsDown then ButtonState := pbsNormal;

+  inherited Click;

+end;

+

+{Mouse released}

+procedure TPNGButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X,

+  Y: Integer);

+begin

+  {Changes the state and repaints}

+  if ButtonState = pbsDown then ButtonState := pbsNormal;

+  {Calls ancestor}

+  inherited

+end;

+

+{Mouse moving over the control}

+procedure TPNGButton.MouseMove(Shift: TShiftState; X, Y: Integer);

+begin

+  {In case cursor is over the button}

+  if (X >= 0) and (X < ClientWidth) and (Y >= 0) and (Y <= ClientHeight) and

+    (fMouseOverControl = False) and (ButtonState <> pbsDown)  then

+  begin

+    fMouseOverControl := True;

+    Repaint;

+  end;

+

+  {Calls ancestor}

+  inherited;

+

+end;

+

+{Mouse is now over the control}

+procedure TPNGButton.CMMouseEnter(var Message: TMessage);

+begin

+  if Enabled then

+  begin

+    if Assigned(fOnMouseEnter) then fOnMouseEnter(Self);

+    fMouseOverControl := True;

+    Repaint

+  end

+end;

+

+{Mouse has left the control}

+procedure TPNGButton.CMMouseLeave(var Message: TMessage);

+begin

+  if Enabled then

+  begin

+    if Assigned(fOnMouseExit) then FOnMouseExit(Self);

+    fMouseOverControl := False;

+    Repaint

+  end

+end;

+

+

+

+end.