Re: [Lazarus] Lazarus and Free Pascal 2.3?

[cobalt747]

Здравствуйте, Liyuán.

Try to comment part to part, and then check every time - where memory stop to 
leak.

Вы писали 20 марта 2009 г., 19:18:24:

> Andrew Brunner escribió:
> 2009/3/20 Liyuán García Caballero :
>
> Check my Thread code:
>
>  
>
> The same behavior, memory continues to grow :-(

-- 
С уважением,
 Cobalt747  mailto:cobalt...@mail.ru


___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

[Lazarus] Please, do not remember count of "F9"

[cobalt747]

Hi All!

*WinXP, Lazarus 0.9.27 last night build*

I debug project, and set some breakpoint inside LCL-source.
Restart project, and for not clearing all points and setting it again,
just press F9 for a time.

When project initialize, i press my button, but debug just run through
my breakpoints until it exhaust all my keystroke that i do.

I think it's enough to remember pressing of F9 for some seconds after
breakpoints occur, but not for all time.



-- 
С уважением,
 Cobalt747  mailto:cobalt...@mail.ru


___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] Placing a TProgressBar into a TStatusBar

[cobalt747]

Здравствуйте, Andrea.

I think, now it is no way to associate some control with
TCollectionItem-descendant like TStatusPanel

I make it with OnResize event by updating it's coordinates.


Вы писали 14 марта 2009 г., 0:02:36:

> Thanks, it works.
> Just the Left property seems to have no effect, the ProgressBar is 
> placed on the left corner ot the StatusBar1, like having Left:= 0.

> There's a way to associate a ProgressBar with a TStatusPanel?
> I tried using this code, but nothing happens:

> procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
>   Panel: TStatusPanel; const Rect: TRect);
> begin
>   if Panel = StatusBar.Panels[1] then
>   with ProgressBar1 do
>   begin
> Top := Rect.Top;
> Left := Rect.Left;
> Width := Rect.Right - Rect.Left - 5;
> Height := Rect.Bottom - Rect.Top;
>   end;
> end;
-- 
С уважением,
 Cobalt747  mailto:cobalt...@mail.ru


___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] Placing a TProgressBar into a TStatusBar

[cobalt747]

Здравствуйте, Andrea.

Try this:

procedure TForm1.FormCreate(Sender: TObject);
var
   ProgressBar1: TProgressBar;
begin
 ProgressBar1:= TProgressBar.Create(StatusBar1);
 with ProgressBar1 do
 begin
   Parent := StatusBar1;
   Left := 50;
   Visible:= true;
   Height:=15;
   Width:=50;
   Max:=100;
   Position:=20;
 end;
end;

Вы писали 10 марта 2009 г., 19:01:27:

> Dear all,
> anyone can suggest me a way in order to place a TProgressBar into a 
> TStatusBar?
> I found some tutorials but they are just for Delphi and Win.
> Thanks,
> Andrea
-- 
С уважением,
 Cobalt747  mailto:cobalt...@mail.ru


___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] Inconsistent behavior of LabeledEdit boxes on different pages of a TabbedNotebook

[cobalt747]

Здравствуйте, david.

In WinXP SP3 all right,

except that color of edit changed, when Object Inspector lose focus.

Вы писали 9 марта 2009 г., 19:12:05:
> Ok, the project is attached as test1.zip.  If you need anything else,
> just let me know.
> Help is much appreciated!

> david
-- 
С уважением,
 Cobalt747  mailto:cobalt...@mail.ru


___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] Help with a error - Failed to initialize component: No streaming method available.

[cobalt747]

Title: Re: [Lazarus] Help with a error - Failed to initialize component: No streaming method available.




Здравствуйте, German.

What kind of components you place on DataModule?

Maybe some code of TServerDataModule.OnCreate do it?

Вы писали 4 марта 2009 г., 20:55:07:






Hi, please anybody can tell me some way to debug that error or figure why is happening?

Is a migrated program from delphi. At the beginning when try to create a TdataModule , 

Application.Initialize;
  Application.Title:='Sample DataModule';
  Application.CreateForm(TServerDataModule, ServerDataModule); 


I cannot find where is the problem. A step debug show it raises at application.inc

procedure TApplication.CreateForm(InstanceClass: TComponentClass;
  out Reference);  
[..]
   if (FCreatingForm=nil) and (Instance is TForm) then
      FCreatingForm:=TForm(Instance);
    Instance.Create(Self);             < raises exception

Hope somebody can give me a help.




-- 
С уважением,
 Cobalt747                          mailto:cobalt...@mail.ru



___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus