9 replies to this topic

[Jonny Kwekkeboom]

Hi Boki,

by me in Delphi 2010 the Slides Editor worked perfect
but inside Delphi XE2 there is only at top 2 or 3 Pixel height seen inside the Slides Editor
and the rest not visible ?

See attached picture...

cu
Jonny

[Jonny Kwekkeboom]

Hi,

attached file

Attached Files

•  Berg01.png   23.81K   2 downloads

[Boki (Berg)]

Hi,

Please change next procedure (copy/paste whole method) in NxFieldChoser.pas:

procedure TNxSlidesDesigner.DrawSlide(const SlideRect: TRect;
  Column: TNxCustomColumn);
var
  R, LocRect: TRect;
  M: Integer;
begin
  with Canvas, Column do
  begin
    R := SlideRect;
    if DrawBorders then
    begin
      if Self.Selected = Column then
      begin
        Brush.Color := clHighlight;
        FrameRect®;
      end else
      begin
        Pen.Color := $00BBBBBB;
        Polyline([Point(R.Left, R.Bottom - 1), Point(R.Left, R.Top), Point(R.Right, R.Top)]);
        Pen.Color := $008F8F8F;
        Polyline([Point(R.Right - 1, R.Top + 1), Point(R.Right - 1, R.Bottom - 1), Point(R.Left, R.Bottom - 1)]);
      end;
      InflateRect(R, -1, -1);
    end;
    Brush.Color := Color;
    Canvas.FillRect®;
    Canvas.Font.Assign(Column.Font);
    TGraphicsProvider.DrawWrapedTextRect(Canvas, R, Alignment, VerticalAlignment, WrapKind = wkWordWrap, Name, BiDiMode);
    if Self.Selected = Column then
    begin
      case SlideCaptionLocation of
        clLeft:
        begin
          M := R.Top + (R.Bottom - R.Top) div 2;
          LocRect := Rect(R.Left - 2, M - 2, R.Left + 2, M + 2);
        end;
        clTop:
        begin
          M := R.Left + (R.Right - R.Left) div 2;
          LocRect := Rect(M - 2, R.Top - 2, M + 2, R.Top + 2);
        end;
      end;
      Pen.Color := clGreen;
      Rectangle(LocRect);
    end;
  end;
end;

[Jonny Kwekkeboom]

Hi,

same problem here

RAD Studio XE2 Enterprise  (Delphi) in C++  not tested yet

see attached screnshoot

All components new compiled and installed

cu
Jonny

Attached Files

•  Berg.bmp   383.54K   4 downloads

[Jonny Kwekkeboom]

Hi,

in C++ Builder XE2 same problem

tested in TNextDBGrid is the screenshoot ...

in top pixel we can select a item but not seen ..

cu
Jonny

[Boki (Berg)]

Hi,

Does pasted code fix helps?

Best regards

[Jonny Kwekkeboom]

Hi,

no problem still avaible
see my last two postings...

cu
Jonny

[Boki (Berg)]

Hi Jonny,

Maybe you need to re-compile packages? If not, I will send you complete file.

Best regards

[Jonny Kwekkeboom]

Hi,

will now test it again and recompile all

cu
Jonny

[Jonny Kwekkeboom]

Hi Boki,

Worked now perfect !!

I changed code only in Delphi2010 package...
and not in XE2 so I have other folder created for this version..

After changed code and recompile all worked OK !!

Thanks.

cu
Jonny