Einzelnen Beitrag anzeigen

Master_BB

Registriert seit: 17. Mai 2003
285 Beiträge
 
Delphi 7 Professional
 
#1

RichTextBox Splitter RichTextBox Docking Prob

  Alt 6. Jul 2005, 14:51
Hallo,
ich schreibe mir gerade meine eigene hübsche RichTextBoxAdvanced mit dem heute
üblichen grauen rand an der linken seite wo die zeilennummerierung steht.
nun habe ich ein problem beim Docken (W32 Alignen) des Splitters

also mein Basis Object ist das Panel
type bla = class(System.Windows.Forms.Panel)
...
..
beim initialisieren der componente steht das hier
Delphi-Quellcode:
  FLeftRichTextBox := System.Windows.Forms.RichTextBox.Create;
  if FLeftRichTextBox <> nil then
  begin
    Controls.Add(FLeftRichTextBox);

    with FLeftRichTextBox do
    begin
      BackColor := Color.DarkGray;
      BorderStyle := System.Windows.Forms.BorderStyle.None;
      Dock := DockStyle.Left;
      ForeColor := Color.Black;
      Height := 20;
      Left := 0;
      ReadOnly := True;
      TabStop := False;
      Top := 0;
      Width := 20;
    end;
  end;

  FSplitter := System.Windows.Forms.Splitter.Create;
  if FSplitter <> nil then
  begin
    Controls.Add(FSplitter);

    with FSplitter do
    begin
      BorderStyle := System.Windows.Forms.BorderStyle.FixedSingle;
      Dock := DockStyle.Left;
      Height := 4;
      Left := 30;
      Top := 0;
      Width := 10;
    end;
  end;

  FMainRichTextBox := System.Windows.Forms.RichTextBox.Create;
  if FMainRichTextBox <> nil then
  begin
    Controls.Add(FMainRichTextBox);
so nun wird jedoch der Splitter ganz links gesetzt dann
das linke RichTextBox und dann das MainRichTextBox

ich möchte jedoch LeftRichTextBox Splitter MainRichTextBox
haben.
weiß einer woran das hier liegt?
Wenn das Meer unruhig ist und der Wind die Wellen treibt, erfreut es, vom Strand aus die Mühen eines Anderen zu beobachten.
  Mit Zitat antworten Zitat