TStatusBar and an invisible text
Original Reporter info from Mantis: >8<
-
Reporter name: Bug Import
Original Reporter info from Mantis: >8<
- Reporter name: Bug Import
Description:
1. Create a new project
2. Put a TStatusBar on a form.
a) set SimplePanel := False
b) add a two TStatusPanel(s) and assign text, as an example:
Panel[0].text := 'aaa'
Panel[1].text := 'bbb'
3. Ran a program
or use this code:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
ApplicationProperties1: TApplicationProperties;
private
{ private declarations }
public
{ public declarations }
constructor Create(AOwner: TComponent); override;
end;
var
Form1: TForm1;
implementation
{ TForm1 }
constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with TStatusBar.Create(Self) do begin
Parent := Self;
SimplePanel := False;
with Panels.Add do Text := 'aaa';
with Panels.Add do Text := 'bbb';
end;
end;
initialization
{$I unit1.lrs}
end.
Additional information:
Imported information
--------------------
Name: Pawel Piwowar
Mail: alfapawel (at) tlen.pl
Mantis conversion info:
- Mantis ID: 602