Наши преимущества

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

Статус
Закрыто для дальнейших ответов.
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]
 
Последнее редактирование модератором:
Как увидеть ссылки? | How to see hidden links?
EhLib 4.4 Build 4.4.45 source included version
Нажмите, чтобы раскрыть...
Вот бы еще узнать, чего нового там. А то я только 43 билд поставил :)

Ага, нашел

юниты DBGridEh.pas (скрин из него) и DBLookupGridsEh.pas.

Scrn_003.jpg
 
Последнее редактирование модератором:
Последнее редактирование модератором:
Последнее редактирование модератором:
Последнее редактирование модератором:
Как увидеть ссылки? | How to see hidden links?
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;
 
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
 
Статус
Закрыто для дальнейших ответов.
Верх