Alexandre Leclerc escreveu:
Hi all,

This morning when I launched Lazarus to continue my work on my
project, it simply refused to display the Form (only the .lfm source).
It complains about invalid properties (but they are good). The form
was working well yesterday when I leaved.

I really don't know what to do!

Here is the actual .lfm (nothing special), it complains about the
[Left..OnKeyDown] section, and even if I delete it, it still does not
work:

What can I do?

object OptionsSelectorForm: TOptionsSelectorForm
 Left = 255
 Height = 362
 Top = 173
 Width = 585
 HorzScrollBar.Page = 584
 VertScrollBar.Page = 361
 Caption = 'OptionsSelectorForm'
 OnCreate = FormCreate
 OnKeyDown = FormKeyDown
 object vstOptions: TVirtualStringTree
   Left = 5
   Height = 315
   Top = 5
   Width = 395
   Anchors = [akTop, akLeft, akRight, akBottom]
   Header.Options = [hoColumnResize]
   Images = ilOptions
   TabOrder = 0
   TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable,
toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick,
toWheelPanning]
   TreeOptions.PaintOptions = [toShowButtons, toShowDropmark,
toShowRoot, toShowVertGridLines, toThemeAware, toUseBlendedImages]
   TreeOptions.SelectionOptions = [toExtendedFocus]
   OnEdited = vstOptionsEdited
   OnEditing = vstOptionsEditing
   OnFocusChanged = vstOptionsFocusChanged
   OnFocusChanging = vstOptionsFocusChanging
   OnGetText = vstOptionsGetText
   Columns = <
     item
       Options = [coEnabled, coParentBidiMode, coParentColor,
coResizable, coShowDropMark, coVisible]
       Width = 200
       WideText = 'Modules et options'
     end
     item
       Options = [coEnabled, coParentBidiMode, coParentColor,
coResizable, coShowDropMark, coVisible]
       Position = 1
       Width = 125
       WideText = 'Prix'
     end
     item
       Options = [coEnabled, coParentBidiMode, coParentColor,
coResizable, coShowDropMark, coVisible]
       Position = 2
       WideText = 'Documents'
     end>
   WideDefaultText =
I also have this problem. Just set some value to WideDefaultText (= 'SomeText') in the lfm. Then in OnCreate set again to an empty string. It seems a bug related to streaming empty widestrings.

Luiz

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to