скомпилировать мой пак в разных версиях Delphi

[beegl]

Здраствуйте! Помогите скомпилировать мой пак компонентов, на Delphi7 тестировал, другие версии нет, т.к. нет других версий Delphi.
Кто протестирует на Delphi 2010-XE-XE3 опишите, какие ошибки, и подскажите как их устранить. Спасибо за внимание.

[Аватар]

Проблема с vcljpg.dcp (XE2).

[beegl]

а как исправить, не знаете?

[kangreon]

Delphi XE3

Файл SysUtilsEx строка 700

  with ImagePos do
  begin
    Inc(X, Client.Left + Offset.X);
    Inc(Y, Client.Top + Offset.Y);
  end;

В Delphi XE3 запись TPoint содержит процедуру Offset, в результате Ваш код обращается именно к нему.

Решение:

  Inc(ImagePos.X, Client.Left + Offset.X);
  Inc(ImagePos.Y, Client.Top + Offset.Y);

Файл InterfaceEx немного переделал. Изменил условие на все версии старше Delphi 6. Иначе, ошибка.

unit InterfaceEx;

{$I SCROLLTEXTEX.INC}

interface

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

function AllocateHWndEx(Method: TWndMethod): HWND;
procedure DeallocateHWndEx(Wnd: HWND);
function MakeObjectInstanceEx(Method: TWndMethod): Pointer;
procedure FreeObjectInstanceEx(ObjectInstance: Pointer);

implementation


function AllocateHWndEx(Method: TWndMethod): HWND;
begin
{$IF CompilerVersion >= 14}
  Result := Classes.AllocateHWnd(Method);
{$ELSE}
  Result := Forms.AllocateHWnd(Method);
{$ifend}
end;

procedure DeallocateHWndEx(Wnd: HWND);
begin
{$IF CompilerVersion >= 14}
  Classes.DeallocateHWnd(Wnd);
{$ELSE}
  Forms.DeallocateHWnd(Wnd);
{$ifend}
end;

function MakeObjectInstanceEx(Method: TWndMethod): Pointer;
begin
{$IF CompilerVersion >= 14}
  Result := Classes.MakeObjectInstance(Method);
{$ELSE}
  Result := Forms.MakeObjectInstance(Method);
{$ifend}
end;

procedure FreeObjectInstanceEx(ObjectInstance: Pointer);
begin
{$IF CompilerVersion >= 14}
   Classes.FreeObjectInstance(ObjectInstance);
{$ELSE}
   Forms.FreeObjectInstance(ObjectInstance);
{$ifend}
end;
end.

Есть и еще ошибки, а также очень много Warning.
Лучше Вам самим установить еще одну версию.

PS: Насчет vcljpg.dcp, там тоже можно установить проверку на версию компилятора.
PS2: В версиях начиная, если не ошибаюсь, с Delphi 2010 был переход на поддержку юникода. В связи с этим, были переназначены типы Char => WideChar string => WideString. Я заметил, в Вашем коде хватает такого кода.

[beegl]

спасибо за тест, если Вас не затруднит, прикрепите пак откорректированный

[beegl]

обновление Component PackEx v 2.4

New:
- add component AIPMButtonEx;
- add component CheckBoxBMPFade
- small adjustments/edit;

[beegl]

Сообщение от beegl

обновление Component PackEx v 2.4

New:
- add component AIPMButtonEx;
- add component CheckBoxBMPFade
- small adjustments/edit;

добавил компонент - TFire - см. скрин demo

[beegl]

привет, обновил Component PackEx v 2.4 и отправил на sourceforge.net
тестируем, спасибо за внимание
P.S. заточены только под D6-D7, т.к. других версий у меня нет

[beegl]

кому надо, тестим на XE-XE4

[beegl]

Component PackEx v 2.7 Edit for Delphi7 by beegl



Text3D, ScrollTextEx, TextAnimator, SpeedButtonEx, MacroRecorderEx, FocusHelper, ALScreenSnap, TextFader, RunString, CDToolBurner, BComPort, XModem, XComm, GraphicClockEx, AAText, AAFadeText, AAScrollText, AAFontDialog, AATimer, AATimerList, GradBtn, WaterImageInc, IAeverButton, Digit, mxProtector, TimeStop, mTimeStop, HotKeyManager, WindowsShutdownEx, ScrollText, UbuntuProgress, AMClock, BmpClock, TrayIcon, CoolTrayIcon, TextTrayIcon, PJVersionInfo, PJAboutBoxDlg, DirDialog, info, PJWdwState, DiskCaps, NewSpeedButton, AdvWiiProgressBarEx, LSVGauge, JDNeedleGauge, FormMagnetEx, SingleInstance, CapchaImageFx;

add New! :

+ SingleInstance - super edit = all free error;
+ CapchaImageFx;
+ RAR Component;
- edit DCR New ICO, and small bug and error;