Компоненты к Delphi (каталог ссылок) 3 | Страница 42 | BESK.SU - программирование без границ (c) 2025

Компоненты к Delphi (каталог ссылок) 3

Статус
В этой теме нельзя размещать новые ответы.

art0123

Турист
Credits
0
EhLib 4.4 Build 4.4.45 source included version
Thanks Vistali
:beer:

Код:
[url]http://rapidshare.com/files/216894948/ehlib4.4.45_FS.rar[/url]
[url]http://www.onlinedisk.ru/file/113728/[/url]
 
Последнее редактирование модератором:

asm64d

Профи
Свой / Own
Credits
0
Последнее редактирование модератором:

asm64d

Профи
Свой / Own
Credits
0
eDocEngine не встает, хочет gtRtlBDS2009. А папочка LIB пустая-пустая.. У кого есть полный комплект?
Почему то на XXXXXXX лежит версия 7.4 Мб, она не полная...
Двумя постами выше полная версия eDocEngine VCL v2.5.1 Retail (autosetup).
 
Последнее редактирование модератором:

asm64d

Профи
Свой / Own
Credits
0
Последнее редактирование модератором:

eddoc

Турист
Credits
0
EhLib 4.4 Build 4.4.47 Full Source
"... а старушки все падали и падали..." (с) :D

что найдено нового

unit DBCtrlsEh.pas

v. 4.4.45

Код:
procedure TCustomDBEditEh.SetAlignment(const Value: TAlignment);
begin
  if (evAlignmentEh in FAssignedValues) and (Value = FAlignment) then Exit;
  FAlignment := Value;
  Include(FAssignedValues, evAlignmentEh);
  if WordWrap
    then RecreateWnd
    else Invalidate;
end;
v. 4.4.47

Код:
procedure TCustomDBEditEh.SetAlignment(const Value: TAlignment);
begin
  if (evAlignmentEh in FAssignedValues) and (Value = FAlignment) then Exit;
  FAlignment := Value;
  Include(FAssignedValues, evAlignmentEh);
  if not (csLoading in ComponentState) then
    RecreateWnd;
{  if WordWrap
    then RecreateWnd
    else Invalidate;}
end;
unit DBGridEh.pas

v. 4.4.45
Код:
procedure TDBGridInplaceEdit.DoDropDownKeys(var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_UP, VK_DOWN:
      if ssAlt in Shift then
      begin
        if FListVisible then CloseUp(True) else DropDown;
        Key := 0;
      end;
    VK_RETURN, VK_ESCAPE:
      if FListVisible and not (ssAlt in Shift) and not (FActiveList = FPopupCalculator) then
      begin
        CloseUp(Key = VK_RETURN);
        Key := 0;
      end
      else if not FListVisible and (Key = VK_RETURN) and ([ssCtrl] = Shift) then
      begin
        DropDown;
        Key := 0;
      end;
  end;
end;
v. 4.4.47

Код:
procedure TDBGridInplaceEdit.DoDropDownKeys(var Key: Word; Shift: TShiftState);
var
  CurColumn: TColumnEh;
begin
  case Key of
    VK_UP, VK_DOWN:
      if ssAlt in Shift then
      begin
        if FListVisible then CloseUp(True) else DropDown;
        Key := 0;
      end;
    VK_RETURN, VK_ESCAPE:
      if FListVisible and not (ssAlt in Shift) and not (FActiveList = FPopupCalculator) then
      begin
        CurColumn := Grid.Columns[Grid.SelectedIndex];
        if (FActiveList = FDataList) and  // Lookup
           (Key = VK_RETURN) and
            Assigned(CurColumn.OnNotInlist) and
            not CurColumn.UsedLookupDataSet.Locate(
              CurColumn.Field.LookupResultField, Self.Text, [loCaseInsensitive])
        then
          CloseUp(False)
        else
          CloseUp(Key = VK_RETURN);
        Key := 0;
      end
      else if not FListVisible and (Key = VK_RETURN) and ([ssCtrl] = Shift) then
      begin
        DropDown;
        Key := 0;
      end;
  end;
end;
 

AT4RE

Турист
Credits
0
ReUpload (new link)

Accuracer Database System 4.81 Full Source
Код:
http://rapidshare.com/files/215818114/Accuracer_Database_v.4.81_Full_Source.rar
Absolute Database 6.02 for Delphi 6-2009 and C++Builder 2006 2009 (cracked by DarkRapt0r)
Код:
http://rapidshare.com/files/215810409/Absolute_Database_6.02_for_Delphi_6-2009_and_C__Builder_2006-2009.7z
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху