16.09.2008, 13:27
|
#2
|
Постоялец
Пол: 
Регистрация: 25.04.2007
Сообщений: 203
Репутация: 622
|
Re: Ответ: Компоненты (Часть 2)
 |
Цитата: |
 |
|
|
|
|
|
|
|
|
|
|
Компонент EControl.Form.Designer.Pro.v2.01.for.Delphi.BCB.Fu ll.Source
с ошибками, которые делают его использование невозможным, в часности не работают встроеные редакторы сойств, практически на всех компонентах. На сайте EControl сказано что этот баг исправлен в более новом релизе. Если он есть, было бы очень неплохо его выложить.
|
|
 |
|
 |
|
Вот тебе исправления:
1. Файл edcPropCtrl.pas
Строка 547: Исправить FDesigner на Self.FDesigner
2. Файл ed_Designer.pas
Строка 4546: Заменить код процедуры TzCustomFormDesigner.UpdateInplEditor на следующий:
|
|
Цитата: |
|
|
|
|
|
|
|
|
|
|
procedure TzCustomFormDesigner.UpdateInplEditor;
var R: TRect;
prn: TWinControl;
p: TPoint;
Ctl: TControl;
OldW: integer;
begin
if Assigned(FInplEdit.Adapter) then
begin
Ctl := FInplEdit.Adapter.Control;
if Assigned(FDesignSurface) then
prn := FDesignSurface else
if Assigned(Ctl.Parent) then
prn := Ctl.Parent
else
prn := Ctl as TWinControl;
with FInplEdit do
begin
LoadText;
Modified := False;
R := Adapter.BoundRect;
p := Ctl.ClientToScreen(Point(R.Left, R.Top));
p := prn.ScreenToClient(p);
R := Bounds(p.X, p.Y, R.Right - R.Left, R.Bottom - R.Top);
ParentWindow := prn.Handle;
OldW := Width;
BoundsRect := R;
if (Alignment <> taLeftJustify) and (OldW <> Width) then
TWinCtlHack(FInplEdit).RecreateWnd;
SetWindowPos(Handle, HWND_TOP, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, SWP_SHOWWINDOW);
Windows.SetFocus(Handle);
Perform(EM_SCROLLCARET, 0, 0);
end;
end;
end; |
|
|
|
|
|
|
Это все... |
|
|