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

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

samuu

Местный
Регистрация
28 Сен 2008
Сообщения
11
Реакции
119
Credits
22
TMS Component pack v6.0.2.0

TMS Component pack v6.0.2.0 : update Mar 26, 2011

Скрытое содержимое доступно для зарегистрированных пользователей!
:D
 
K

kiril_zh

Турист
Регистрация
15 Июн 2009
Сообщения
2
Реакции
26
Credits
4
Unidac v3.60.0.6 10-Mar-11

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

rezasadigh

Местный
Регистрация
6 Сен 2010
Сообщения
8
Реакции
13
Credits
16
RapidShare link please

alexlit написал(а):
QuickReport502 QRDesign and Help Delphi7

Для просмотра ссылки Войди или Зарегистрируйся
Нажмите, чтобы раскрыть...

would you please give a RapidShare link please (mediafire is filtered in Iran)

Добавлено через 1 минуту
samuu написал(а):
TMS Component pack v6.0.2.0 : update Mar 26, 2011

*** скрытый текст *** :D
Нажмите, чтобы раскрыть...

Whould you please give a rapidshare link please (megaupload is filtered in Iran)
 
Последнее редактирование модератором:
H

hasanozalp

Местный
Регистрация
7 Фев 2010
Сообщения
6
Реакции
37
Credits
12
lost password

kiril_zh написал(а):
Unidac v3.60.0.6 10-Mar-11

Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Нажмите, чтобы раскрыть...

thanks for your share.
what is password for source in rar.
 
H

HmMik

Местный
Регистрация
5 Ноя 2004
Сообщения
20
Реакции
7
Credits
38
К сожалению, использованная ссылка недоступна
Скрытое содержимое доступно для зарегистрированных пользователей!
 
J

j.perf

Местный
Регистрация
26 Сен 2005
Сообщения
16
Реакции
20
Credits
24
T

tmcdos

Местный
Регистрация
26 Апр 2007
Сообщения
58
Реакции
203
Credits
112
Small fixes for VirtualTree 4.8.5

On line 23580 (near the end of procedure HandleMouseDown - just before Drag'n'Drop initiation) add these:
Код: 
  else
  begin
  	ClearSelection;
  	SetFocusedNode(NIL);
  end;
  // end of fix
this is needed to properly emulate TListView behaviour - clicking nowhere in the client area
deselects and removes focus rectangle.

---------------------------------------------------------------------------

On line 19095 (end of procedure WMRButtonUp) add ELSE clause to the IF:
PHP: 
  if not Assigned(PopupMenu) then
    DoPopupMenu(HitInfo.HitNode, HitInfo.HitColumn, Point(Message.XPos, Message.YPos))
  Else
    Inherited; // fix by IVO GELOV
and comment-out the INHERITED keyword on line 19085 (because otherwise PopUp is shown before the selection is updated, which is wrong)

---------------------------------------------------------------------------

Commented-out all BF_MIDDLE occurencies, since with this flag DrawEdge uses system default color, instead of current Brush.

---------------------------------------------------------------------------

On line 23405 in procedure HandleMouseDown, add this:
PHP: 
  if toSimpleDrawSelection in FOptions.FSelectionOptions then 
  	IsHit := false 
  else
  	IsHit := not AltPressed and ((hiOnItemLabel in HitInfo.HitPositions) or (hiOnNormalIcon in HitInfo.HitPositions));

---------------------------------------------------------------------------

On line 8873 replace

if FCaptionText = '' then FCaptionText := FText;

with
PHP: 
	FCaptionText := WrapString(DC, FText, R, DT_RTLREADING and DrawFormat <> 0, DrawFormat);

on line 9120 in the end of procedure ComputeHeaderLayout, delete

R := TextBounds;

and replace "R" with "TextBounds" in the parameter list of the next 2 commmands.

this is needed, because otherwise if header column is coWrapCaption - it is painted as single line until the very first MouseLeave from any header column.

---------------------------------------------------------------------------

On line 8364 in AdjustColumnIndex

insert the following as the outer block:
PHP: 
    // this fix is for the case when one form inherits from another form, 
    // but VirtualTree columns are different on both forms - in this case
    // TFiler CLEARS the column collection, and we come here
    H:=TVirtualTreeColumns(Collection).FHeader;
    if not (csLoading in H.Treeview.ComponentState) and not (hsLoading in H.FStates) then
    begin
      ......
    end;

Добавлено через 7 минут
frxBarcode.pas
PHP: 
procedure TfrxBarCodeView.GetData;
begin
  inherited;
  if IsDataField then
    FText := VarToStr(DataSet.Value[DataField,Self]) // IVO GELOV - added Self
  else if FExpression <> '' then
    FText := VarToStr(Report.Calc(FExpression));
end;

frxChBox.pas
PHP: 
procedure TfrxCheckBoxView.GetData;
var
  v: Variant;
begin
  inherited;
  if IsDataField then
  begin
    v := DataSet.Value[DataField,Self]; // IVO GELOV - added Self
    if v = Null then
      v := False;
    FChecked := v;
  end
  else if FExpression <> '' then
    FChecked := Report.Calc(FExpression);
end;

frxRich.pas
PHP: 
procedure TfrxRichView.GetData;
........
    if DataSet.IsBlobField(DataField) then
    begin
      ss := TStringStream.Create('');
      DataSet.AssignBlobTo(DataField, ss)
    end
    else
      ss := TStringStream.Create(VarToStr(DataSet.Value[DataField,Self])); // IVO GELOV - added Self
    try
      FRichEdit.Lines.LoadFromStream(ss);
    finally
      ss.Free;
    end;
.......

frxEngine.pas
PHP: 
procedure TfrxEngine.Stretch(Band: TfrxBand);
.........
        {if c is TfrxStretcheable then
          TfrxStretcheable(c).StretchMode := smDontStretch;} // IVO GELOV - bugfix
.........

frxClassRTTI.pas
PHP: 
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
  const MethodName: String; Caller: TfsMethodHelper): Variant;
..............
    else if MethodName = 'VALUE.GET' then
      Result := _TfrxDataSet.Value[Caller.Params[0],Instance] // IVO GELOV - added Instance
.........

frxDBSet.pas
PHP: 
function TfrxDBDataset.GetValue(Index: String; Obj:TObject): Variant; // IVO GELOV - added Obj

frxCross.pas
PHP: 
procedure TfrxDBCrossView.FillMatrix;
......
          RowValues[i] := DataSet.Value[FRowFields[i],Self] // IVO GELOV - added Self
.....
          ColumnValues[i] := DataSet.Value[FColumnFields[i],Self] // IVO GELOV - added Self
.........
          CellValues[i] := DataSet.Value[FCellFields[i],Self] // IVO GELOV - added Self

frxClass.pas
PHP: 
  TfrxDataSet = class(TfrxDialogComponent)
  protected
    function GetValue(Index: String; Obj:TObject): Variant; virtual; // IVO GELOV - added Obj
  public
    property Value[Index: String; Obj:Tobject]: Variant read GetValue; // IVO GELOV - added Obj
  end;

  TfrxUserDataSet = class(TfrxDataset)
  protected
    function GetValue(Index: String; Obj:TObject): Variant; override;// IVO GELOV - added Obj
  end;

  TfrxReport = class(TfrxComponent)
  private
    function DoGetValue(Instance:TObject; const Expr: String; var Value: Variant): Boolean; // IVO GELOV - added Instance

function TfrxUserDataSet.GetValue(Index: String; Obj:TObject): Variant; // IVO GELOV - added Obj
begin
  Result := Null;
  if Assigned(FOnGetValue) then
    FOnGetValue(Index, Result);
  if Assigned(FOnNewGetValue) then
    FOnNewGetValue({Self}Obj, Index, Result); // IVO GELOV - Self is useless, Obj is the object which requests data
end;

procedure TfrxCustomMemoView.GetData;
........
    begin
      FValue := DataSet.Value[DataField,Self]; // IVO GELOV - added Self
      if FDisplayFormat.Kind = fkText then
      begin
        if LocCharset then
          FMemo.Text := AnsiToUnicode(AnsiString(DataSet.DisplayText[DataField]), Font.Charset) else
          FMemo.Text := DataSet.DisplayText[DataField];
      end
........
end;

function TfrxReport.Calc(const Expr: String; AScript: TfsScript = nil): Variant;
.........
  if not DoGetValue(NIL, Expr, Result) then // IVO GELOV - added NIL
.......
end;

function TfrxReport.DoGetValue(Instance:TObject; const Expr: String; var Value: Variant): Boolean; // IVO GELOV - added Instance
.............
  if (ds <> nil) and (fld <> '') then
  begin
    Value := ds.Value[fld,Instance]; // IVO GELOV - added Instance
...........
end;

function TfrxReport.GetScriptValue(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
var
  i: Integer;
  s: String;
begin
  if not DoGetValue(Instance, Params[0], Result) then // IVO GELOV - added Instance
..........
end;

The only real "bug" is in frxEngine - in original, the stretching of sub-reports is intentionally disabled. I needed this stretching, so I forcibly re-enabled it.
Other fix is just to provide a usable Sender value in the event TfrxUserDataset.OnNewGetValue(Sender: TObject; const VarName: string; var Value: Variant) - in original, Sender is equal to TfrxDataset.Self but this is useless, so I modified it to point to the real object (usually TfrxMemoView) requesting a Value.
 
Последнее редактирование модератором:
P

poldes

Турист
Регистрация
8 Фев 2010
Сообщения
1
Реакции
1
Credits
2
rezasadigh написал(а):
would you please give a RapidShare link please (mediafire is filtered in Iran)

Добавлено через 1 минуту


Whould you please give a rapidshare link please (megaupload is filtered in Iran)
Нажмите, чтобы раскрыть...

Скрытое содержимое доступно для зарегистрированных пользователей!
 
H

HoMo

Турист
Регистрация
23 Дек 2008
Сообщения
4
Реакции
0
Credits
8
where is the link for TMS?

Добавлено через 14 минут
kiril_zh написал(а):
Unidac v3.60.0.6 10-Mar-11

Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Для просмотра ссылки Войди или Зарегистрируйся
Нажмите, чтобы раскрыть...

thx, do you mean 3.60.0.16?
 
Последнее редактирование модератором:
Статус
В этой теме нельзя размещать новые ответы.

Похожие темы

asm64d
  • Закрыта
Компоненты к Delphi (каталог ссылок) 4
64 65 66
Ответы
983
Просмотры
1М
ONIM
ONIM
asm64d
  • Закрыта
Компоненты к Delphi (каталог ссылок) 3
68 69 70
Ответы
1К
Просмотры
845К
asm64d
asm64d
A
  • Закрыта
Компоненты к Delphi (каталог ссылок) 2
62 63 64
Ответы
948
Просмотры
491К
asm64d
asm64d
Msha
  • Закрыта
Компоненты к Delphi (каталог ссылок)
84 85 86
Ответы
1К
Просмотры
792К
Abraxas
A
LeshaRB
  • Закрыта
Delphi компоненты / Delphi components #7
62 63 64
Ответы
951
Просмотры
1М
PEAKTOP
PEAKTOP
Сверху