OpenEuphoria

Re: Ugh! I am having trouble visualizing sizers.

• Posted by vmars Jul 07, 2009
• 1128 views

-- In wxEuphoria:  
txted  = create( wxRichTextCtrl, {panl, -1, "Enter Text Here", -1, -1, 399, 250} ) 

In Delphi/pascal, a similar RichEdit Control definition looks lik this:

  object txted: TRichEdit 
    Left = 14     -- These are properties of object txted: TRichEdit 
    Top = 296 
    Width = 675 
    Height = 265 
    Hint = ' Sorted text saved on ClipBoard  and  SortedLinesOut.txt  file' 
    Color = 48690940 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = 41972491 
    Font.Height = -13 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    HideSelection = False 
    HideScrollBars = False 
    ParentFont = False 
    ParentShowHint = False 
    PlainText = True 
    ScrollBars = ssBoth 
                            
-- To Reference a property of 'object txted: TRichEdit'  
-- all I need to do is this: 
\\    txted.font.style := something; 
\\    or  
\\    txted.font.color := someColor   
 
procedure TForm1.OpenPanelClick(Sender: TObject); 
begin 
  if OpenDialog1.Execute then 
  begin         
    txtInFileName := OpenDialog1.FileName; 
    FileNameLabel.Caption := txtInFileName; 
    txted.Lines.CLEAR; 
    txted.Lines.LoadFromFile(txtInFileName); -- Load txted with text 
    txted.Visible := True; 
    PrepWordsCount(txted); 
--      SaveAsDialog.FileName := txtInFileName;       ForceCurrentDirecotry 
  end 
  else txtInFileName := ' '; 
end; 

The problem I have with Delphi/Pascal is that their executables are very Large. Tripple true for Pascal crossplatform. Guess I am old-school.

...V