Component Запросы / requests delphi

[PEAKTOP]

Запросы / Requests Delphi
----------------------------------------------------------

 

[Git]

Does anybody please have TeeChart or TeeSuite for 10.2 tokyo or preferrably 10.3 Rio. Thank you.

Later... sorry I did not see v2018.24.180321 was posted before. It is ok for 10.2.3 I think, but what about 10.3 Rio?

Git

 

[kasseo]

For rad 10.3:
AidAim Single File System for rad 10.3;
Absolute Database.
Anybody?

 

[lordvampir]

Очень печаль, что номер восемь приказал долго жить, а я только хотел стянуть Devок ласт версии

Ну что, придётся делать запрос: Пожалуйста, очень хочется получить их - DevExpress last version for Embarcadero Rad 10.3 Rio with sources

 

[Git]

Last Castalia I can find is 2014.9. Is there a later version please?

Git

 

[KiN]

@emailx45 do you have DevExpress VCL 18.2.x ?

 

[emailx45]

only v18.2.1 already knowed

 

[emailx45]

see new post v15.2.2 up to v18.2.1 + dxAutoInstallers

 

[Beast_Power]

Anybody got UniDac that works with Rio ?

 

[223606]

Anybody got UniDac that works with Rio ?

Для просмотра ссылки Войди или Зарегистрируйся

 

[kasseo]

Does anyone have components to work with low level (global) keyboard hooks (for example «Delphi System Hooks»)?

 

[kasparov]

Hi, I need Imagen for Emabarcadero 10.3

 

[yyjksw]

NexusDB last version please....

 

[gulliver13]

AQTime for Rad Studio 10.2?

 

[rodnikzdorovya]

DBISAM v4.40 XE10.2.2
https://dumpz.ws/threads/delphi-komponenty-delphi-components-8.41633/page-44#post-548491

Для просмотра ссылки Войди или Зарегистрируйся

 

[rodnikzdorovya]

unit resizekit; // I wrote self  for Xe10.3 rio    // Igor Emelyanov

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TResizeFormPos = (rpDefault, rpTopLeft, rpTopCenter, rpTopRight, rpMiddleLeft,
    rpMiddleCenter, rpMiddleRight, rpBottomLeft, rpBottomCenter, rpBottomRight);

type
  TresizeKit = class(TComponent)

    procedure SubclassedParentWndProc(Sender: TObject;
      var NewWidth, NewHeight: Integer; var Resize: Boolean);
    constructor Create(AOwner: TComponent); override;

  private
    FOldWindowProc: Controls.TCanResizeEvent;

    FFormPos: TResizeFormPos;
    FFormWidth, FFormHeight, FFormMaxWidth, FFormMaxHeight, FFormMinWidth,
      FFormMinHeight: Integer;
    FResizeFont: Boolean;
    FNoResizeFntCtl: string;
    FNoResizeCtl: Boolean;
    FEnabled: Boolean;
    FValidTaskbar: Boolean;
    procedure SetEnabled(aEnabled: Boolean);

  published
    property FormPos: TResizeFormPos read FFormPos;
    property FormWidth: Integer read FFormWidth;
    property FormHeight: Integer read FFormHeight;
    property FormMaxWidth: Integer read FFormMaxWidth;
    property FormMaxHeight: Integer read FFormMaxHeight;
    property FormMinWidth: Integer read FFormMinWidth;
    property FormMinHeight: Integer read FFormMinHeight;
    property ResizeFont: Boolean read FResizeFont;
    property NoResizeFntCtl: string read FNoResizeFntCtl;
    property NoResizeCtl: Boolean read FNoResizeCtl;
    property Enabled: Boolean read FEnabled write SetEnabled;
    property ValidTaskbar: Boolean read FValidTaskbar;

    property DesignFrmW: Integer read FFormMinWidth write FFormMinWidth;
    property DesignFrmH: Integer read FFormMinWidth write FFormMinWidth;
    property DesignDpiW: Integer read FFormMinWidth write FFormMinWidth;
    property DesignDpiH: Integer read FFormMinWidth write FFormMinWidth;

  end;

procedure Register;

implementation

constructor TresizeKit.Create(AOwner: TComponent);
begin
  inherited;
  FOldWindowProc := TForm(AOwner).OnCanResize;
  SetEnabled(Enabled);
end;

procedure TresizeKit.SetEnabled(aEnabled: Boolean);
begin

  FEnabled := aEnabled;
  if Enabled and NOT(csDesigning in ComponentState) then
    TForm(Owner).OnCanResize := SubclassedParentWndProc;
end;

type
  TfORMhack = class(TForm);

procedure TresizeKit.SubclassedParentWndProc(Sender: TObject;
  var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  // inherited;
  // if assigned(FOldWindowProc) then
  // FOldWindowProc(Sender,  NewWidth, NewHeight ,Resize) ;
  // if Resize  and TfORMhack(Owner).visible  then

  if (NewWidth = TForm(Owner).Width) and (NewHeight = TForm(Owner).Height) or
  // (TForm(Owner).Align = alNone) OR
    (TForm(Owner).Height = 240) // 1 и 2 вызовы
  then
    Exit;


    if NewHeight / TfORMhack(Owner).Height > NewWidth / TfORMhack(Owner).Width then
      TfORMhack(Owner).ScaleControls(NewWidth, TForm(Owner).Width)
      else
      TfORMhack(Owner).ScaleControls(NewHeight, TForm(Owner).Height);



end;

procedure Register;
begin
  RegisterComponents('resizeKit ', [TresizeKit]);
end;

end.