I've just tried to compile Arm WinCE LCL from SVN with:

cd C:\Applications\Lazarus\lcl
make LCL_PLATFORM=wince CPU_TARGET=arm OS_TARGET=wince

It fails at:

C:/Applications/FreePascal/Bin/i386-win32/ppcrossarm.exe -Twince -Parm -XParm-wince- -Xr -gl -Fu../. ./units/arm-wince -Fu. -FE. -FU../../units/arm-wince/wince -darm interfaces.pp
Free Pascal Compiler version 2.2.1 [2008/05/15] for arm Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: WinCE for ARM
Compiling interfaces.pp
Compiling winceint.pp
Compiling winceproc.pp
Fatal: Can't find unit oleaut32 used by winceproc
Fatal: Compilation aborted
make[2]: *** [interfaces.ppu] Error 1
make[2]: Leaving directory `C:/Applications/Lazarus/lcl/interfaces/wince' make[1]: *** [wince_all] Error 2
make[1]: Leaving directory `C:/Applications/Lazarus/lcl/interfaces' make: *** [interfaces] Error 2

Any hints would be appreciated,

Thanks,

Paul

Paul Michell wrote

Any hints would be appreciated,

There were some changes in Free Pascal 2.2.1 in the last week. Update your wince Free Pascal to the latest 2.2.1 one.

I would like to add a feature to my application but can't figure out how to do it.
Basically, when the user clicks on a button in Form1 I'd like a new window to open
up somewhere else on the desktop. This new window is only for displaying lines of
text which I already have as strings in RAM. As each new item is entered via Form1
I'll send one line of text to the new window, appending it to whatever is already
displayed in that window. The new window should have a vertical scroll bar in case
the number of lines becomes too large to view user should have the
ability to operate the scroll bar and to click on a red X at the top right corner of
the new window to close it when he gets tired of seeing it. Of course, my code will
need a way to learn when the new window has been closed by the user so I don't keep
sending additional lines to it. I've seen this feature on several Windows programs
so it must be already in the can somewhere. I don't know enough of the Windows jargon and I have no idea what the accepted name of such a component might be. I
thought I might be able to use a Tlistbox widget on a separate form but when I asked
Lazarus to open a new form it automatically created a new unit as well and everything
got more complicated. Can someone please provide a hint or tell me the name of the
component I need? Perhaps there is an example somewhere. Thanks in advance,
Bill

Dear sirs:

I have found an error in the Examples of Lazarus

In the archive gridcelleditor the StringGrid'index are traslocate

      //StringGrid1.Cells[x,y]:=IntToStr(x)+','+IntToStr(y); //[Row,Col]
      StringGrid1.Cells[y,x]:=IntToStr(x)+','+IntToStr(y); //[Col,Row]

I am looking how to align the string in cells and how to get colors for different cells.

I have implemented a MultiStringGrid component in Delphi5 but I dont know how to do it in Lazarus.

thanks very much

yours truly,

Ing. H?ctor F. Fiandor

From: "Felipe Monteiro de Carvalho"

It is needed to correct unit name oleaut32 to oleauto in LCL. I hope it is final change in unit naming :)

Yury.

Dear Bill de Carle:

I do (in the master form) what you say to show (in a slave form) some information to the user, and when readed, it has a buttom to go back.

in the master form I do:

procedure TfBasicaInterno.Revisar1Click(Sender: TObject);   //Revisar =
review
label 1;
begin
     fRevisar := TfRevisar.create(self);
     fRevisar.ShowModal;
     fRevisar.free;
    ...(other things)
end;

and in the slave form (fRevisar) I do:

show the information in a ListBox

procedure TfRevisar.Regresar1Click(Sender: TObject);   //Regresar=go back
begin
     ModalResult:=1;
end;

excuse me the spanish language.

Ing. H?ctor F. Fiandor

--- H?ctor Fiandor Rosario escribi?:

fixed, thanks.

I am looking how to align the string in cells and how to get colors for different cells.

the easiest way is to use OnPrepareCanvas, for example in following code cell(2,2) has a yellow background and text is right aligned at the bottom of cell:

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol,
aRow: Integer;
  aState: TGridDrawState);
var
  aTextStyle: TTextStyle;
begin
  if (aCol=2) and (aRow=2) then begin
    StringGrid1.Canvas.Brush.Color := clYellow;
    aTextStyle := StringGrid1.Canvas.TextStyle;
    aTextStyle.Alignment:=taRightJustify;
    aTextStyle.Layout:=tlBottom;
    StringGrid1.Canvas.TextStyle := aTextStyle;
  end;
end;

see also: http://wiki.lazarus.freepascal.org/Grids_Reference_Page

I have implemented a MultiStringGrid component in Delphi5 but I dont know how to do it in Lazarus.

I don't know MultiStringGrid can't comment on that.

Jesus Reyes A.

____________________________________________________________________________________ Yahoo! Deportes Beta
?No te pierdas lo ?ltimo sobre el torneo clausura 2008! Ent?rate aqu? http://deportes.yahoo.com

Thanks Hector, Cyberpython for the help.
I had already managed to get it working using a listbox occupying an entire form2 but my code was pretty ugly and I'm not happy with it. For one thing I put the "uses unit2" in the interface section of unit1.pas, not in the implementation section as per your example. For some reason it worked ok for me but I wondered how one could be sure that unit2 would be compiled first so that it would be available for use by unit1. I still don't understand how I am able to add lines to the list without having to worry about increasing the memory allocation and/or freeing it when form2 gets closed. I'm using: form2.listbox1.items.add(string). Also I found when I passed a string containing tabs to the listbox the tabs weren't expanded, just shown as a vertical bar graphic so I had to pre-format the string before passing it to the listbox so the columns will line up nicely. I will look closely at your example, cyberpython, to see if there is anything I can do in a more straightforward way. Thanks again,
Bill

ok, I fixed the compilation.

1) In the IDE create form1 and design it as you like.
2) Create form2 and put a listbox (or memo) on it with Align=alClient
3) In project options, forms tab, remove form2 from auto create
4) in the implementation part of unit1, add: uses unit2;
5) Add a member variable to form1: FDisplayForm: Tform;
6) Add a method to form1: procedure Form1Destroy(Sender: TObject);
7) in your Form1.button1click, call something like

     FDisplayForm := TForm2.Create(Self);
     FDisplayForm.OnDestroy := @Form1Destroy
     FDisplayForm.Memo1.Lines.Text := 'your text here';
     FDisplayForm.Show

8) in your Form1.Form1Destroy put:

     FDisplayForm := nil;

9) In the code where you want to add data to the memo: if FDisplayForm nil

     then FDisplayForm.Memo1.Lines.Add('a new line');

10) run

ofcoarse step 7 and 9 can be bautified when a method

   AddText(AText: String);

is added to Form2

Marc

Thanks Felipe, Its building now without any problems.

Felipe Monteiro de Carvalho wrote

ok, I fixed the compilation.

Thanks very much to Jesus Reyes. It works nice.

yours,

Ing. H?ctor F. Fiandor