статусная строка

Среда PascalABC.NET
#1

хочу в статусную строку окна прописать подсказку. Windows.StatusLine что то такое было в дельфи. в паскаль абц не найду ((

#2

А что она должна делать? Где и как отображаться на форме?

#3

например в оболочке паскаль абц - внизу пишется “Компиляция прошла успешно (Н строк), М предупрждений” и выровнено справа - “Строка А Столбец Б”.

#4

Ну, в свойствах формы не встречал, но сделать дополнительным элементом Control не сложно.

#5

в дельфи было - TStatusBar.

StatusBar1.Panels[0].Text:=‘Hello World’;

#6

А, вот оно значит: System.Windows.Forms.StatusStrip.

#7

а примера нет? как там написать “Hello World”?

#8 
{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}

begin
  var f := new System.Windows.Forms.Form;
  f.BackColor := System.Drawing.Color.FromArgb($FF808000);
  var ss := new System.Windows.Forms.StatusStrip;
  var tssl := new System.Windows.Forms.ToolStripStatusLabel;
  ss.Items.Add(tssl);
  f.Controls.Add(ss);
  tssl.BackColor := System.Drawing.Color.FromArgb($00000000);
  tssl.Text := 'test tssl';
  System.Windows.Forms.Application.Run(f);
end.

Это простейший пример, ss и tssl можно ещё много настраивать. На msdn в разделе примеров подробнее, правда на C#… Во всяком случае при переводе строчка в строчку с C# на паскаль - всё работает.

#9

спасибо. идею понял ))

#10

хм, у меня получается две формы - первая форма - мелкая со статусной строкой и вторая. пока первую не закрою - отображения на второй нет. как сделать на текущей мой форме добавить статусную строку? код примерно такой:

uses GraphABC;
begin
  LockDrawing;
  repeat
    Window.Clear;
    Cube3d.Rotates;
    Redraw;
    Sleep(1);
  until 1 = 2;
end;
#11

поковырялся и нашел сам:

var SS:GraphABCStatus;
begin
  SS:=new GraphABCStatus();
  SS.Text:='F1 - rotate x, F2 - rotate y, F3 - rotate z';
  SS.Show;