From 9361e5a7aeffc2e45ac644d531cfa22dcdf1de1e Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 4 May 2010 20:58:31 +0000 Subject: [PATCH] IDE: fixed change file line ending git-svn-id: trunk@25195 - --- .gitattributes | 3 + components/codetools/sourcelog.pas | 4 +- examples/bidi/project1.lpr | 20 + examples/bidi/unit1.lfm | 799 +++++++++++++++++++++++++++++ examples/bidi/unit1.pas | 176 +++++++ ide/sourceeditor.pp | 2 + 6 files changed, 1001 insertions(+), 3 deletions(-) create mode 100644 examples/bidi/project1.lpr create mode 100644 examples/bidi/unit1.lfm create mode 100644 examples/bidi/unit1.pas diff --git a/.gitattributes b/.gitattributes index 98c611bfa1..13b1ca44ba 100644 --- a/.gitattributes +++ b/.gitattributes @@ -2723,6 +2723,9 @@ examples/barchart/chartdemo.lpr svneol=native#text/pascal examples/barchart/frmmain.lfm svneol=native#text/plain examples/barchart/frmmain.lrs svneol=native#text/pascal examples/barchart/frmmain.pas svneol=native#text/pascal +examples/bidi/project1.lpr svneol=native#text/plain +examples/bidi/unit1.lfm svneol=native#text/plain +examples/bidi/unit1.pas svneol=native#text/plain examples/bitbtnform.pp svneol=native#text/pascal examples/bitbutton.lpi svneol=native#text/plain examples/bitbutton.pp svneol=native#text/pascal diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas index 8940625983..5068a86630 100644 --- a/components/codetools/sourcelog.pas +++ b/components/codetools/sourcelog.pas @@ -841,10 +841,8 @@ begin EncodeSaving(Filename, s); // convert line ending to disk line ending - if (DiskLineEnding<>'') and (LineEnding <> DiskLineEnding) then begin + if (DiskLineEnding<>'') and (LineEnding <> DiskLineEnding) then s := ChangeLineEndings(s, DiskLineEnding); - //DebugLn(['TSourceLog.SaveToFile ',Filename]); - end; if s <> '' then fs.Write(s[1], length(s)); finally diff --git a/examples/bidi/project1.lpr b/examples/bidi/project1.lpr new file mode 100644 index 0000000000..3cd4d7b99b --- /dev/null +++ b/examples/bidi/project1.lpr @@ -0,0 +1,20 @@ +program project1; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Classes, + Forms + { add your units here }, unit1; + +begin + Application.Initialize; + Application.BidiMode := bdRightToLeft; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. + diff --git a/examples/bidi/unit1.lfm b/examples/bidi/unit1.lfm new file mode 100644 index 0000000000..4f81bac616 --- /dev/null +++ b/examples/bidi/unit1.lfm @@ -0,0 +1,799 @@ +object Form1: TForm1 + Left = 271 + Height = 373 + Top = 131 + Width = 687 + Caption = 'Form1' + ClientHeight = 353 + ClientWidth = 687 + Menu = MainMenu1 + OnCreate = FormCreate + LCLVersion = '0.9.29' + object PageControl1: TPageControl + Left = 8 + Height = 309 + Top = 40 + Width = 672 + ActivePage = TabSheet1 + Anchors = [akTop, akLeft, akRight, akBottom] + TabIndex = 0 + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = 'Standard' + ClientHeight = 283 + ClientWidth = 664 + object Label1: TLabel + Left = 13 + Height = 15 + Top = 32 + Width = 438 + AutoSize = False + Caption = 'For test the RTL you must see the DOT in the left.' + Color = clSkyBlue + ParentColor = False + Transparent = False + end + object SpeedButton1: TSpeedButton + Left = 11 + Height = 22 + Top = 5 + Width = 88 + Caption = 'Notify Me!' + Color = clBtnFace + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFE7E7EFFFE7E7EFFFE7E7EFFFCECF + CEFFCECFCEFFCECFCEFFCECFCEFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFE7E7EFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFF + FFFFE7E7EFFFD6D7DEFFCECFCEFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7 + EFFFFFFFFFFFE7E7EFFFCECFCEFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFFFFF + FFFFE7E7EFFFFFFFFFFFE7E7EFFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFE7E7EFFFE7E7EFFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7 + EFFFFFFFFFFFFFFFFFFFE7E7EFFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFE7E7EFFFE7E7EFFFD6D7DEFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 + 00FF000000FF000000FF000000FF000000FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8486 + 8CFFFFFFFFFFFFFFFFFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8486 + 8CFFFFFFFFFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8486 + 8CFF000000FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FF84868CFF84868CFF84868CFF84868CFF84868CFF84868CFF0000 + 00FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00 + F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FFFF00F7FF + } + NumGlyphs = 0 + OnClick = SpeedButton1Click + end + object Label2: TLabel + Left = 540 + Height = 14 + Top = 5 + Width = 116 + Anchors = [akTop, akRight] + Caption = 'Label Anchored to Right' + ParentColor = False + end + object Edit1: TEdit + Left = 128 + Height = 21 + Top = 161 + Width = 150 + TabOrder = 0 + Text = 'Hello.' + end + object Memo1: TMemo + Left = 128 + Height = 95 + Top = 58 + Width = 150 + Lines.Strings = ( + 'Memo1' + ) + TabOrder = 1 + end + object ListBox1: TListBox + Left = 284 + Height = 93 + Top = 58 + Width = 167 + Items.Strings = ( + 'Item1.' + 'Item2!' + 'Item3?' + ) + ItemHeight = 13 + TabOrder = 2 + end + object ComboBox1: TComboBox + Left = 284 + Height = 21 + Top = 161 + Width = 167 + ItemHeight = 13 + Items.Strings = ( + 'Item1.' + 'Item2!' + 'Item3?' + ) + TabOrder = 3 + Text = 'Item.' + end + object StaticText1: TStaticText + Left = 11 + Height = 17 + Top = 162 + Width = 112 + Caption = 'StaticText not label!' + Color = clSkyBlue + ParentColor = False + TabOrder = 4 + end + object Button1: TButton + Left = 11 + Height = 23 + Top = 58 + Width = 99 + BorderSpacing.InnerBorder = 4 + Caption = 'Are you sure?' + OnClick = Button1Click + TabOrder = 5 + end + object CheckBox1: TCheckBox + Left = 16 + Height = 17 + Top = 88 + Width = 60 + Caption = 'Check it!' + TabOrder = 6 + end + object RadioButton1: TRadioButton + Left = 16 + Height = 17 + Top = 111 + Width = 63 + Caption = 'This one?' + TabOrder = 7 + end + object RadioButton2: TRadioButton + Left = 16 + Height = 17 + Top = 134 + Width = 55 + Caption = 'Or this?' + TabOrder = 8 + end + object BitBtn1: TBitBtn + Left = 13 + Height = 25 + Top = 225 + Width = 96 + Caption = '&OK?' + Default = True + Kind = bkOK + ModalResult = 1 + TabOrder = 9 + end + object Panel1: TPanel + Left = 455 + Height = 52 + Top = 181 + Width = 189 + BorderSpacing.Left = 10 + BorderSpacing.Top = 10 + BorderSpacing.Right = 10 + BorderSpacing.Bottom = 10 + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.HorizontalSpacing = 6 + ChildSizing.VerticalSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 2 + ClientHeight = 52 + ClientWidth = 189 + TabOrder = 10 + object RadioButton3: TRadioButton + Left = 6 + Height = 17 + Top = 6 + Width = 86 + Caption = 'Check 1' + TabOrder = 0 + end + object RadioButton4: TRadioButton + Left = 98 + Height = 17 + Top = 6 + Width = 85 + Caption = 'Check 2' + TabOrder = 1 + end + object RadioButton5: TRadioButton + Left = 6 + Height = 17 + Top = 29 + Width = 86 + Caption = 'Check 3' + TabOrder = 2 + end + end + object GroupBox1: TGroupBox + Left = 460 + Height = 66 + Top = 26 + Width = 185 + Caption = 'GroupBox1' + ClientHeight = 48 + ClientWidth = 181 + TabOrder = 11 + object CheckBox2: TCheckBox + Left = 15 + Height = 17 + Top = 8 + Width = 60 + Caption = 'Check it!' + TabOrder = 0 + end + end + object ScrollBar1: TScrollBar + Left = 460 + Height = 16 + Top = 240 + Width = 185 + PageSize = 0 + Position = 20 + TabOrder = 12 + end + object RadioGroup1: TRadioGroup + Left = 460 + Height = 69 + Top = 106 + Width = 185 + AutoFill = True + Caption = 'RadioGroup1' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 2 + ClientHeight = 51 + ClientWidth = 181 + Columns = 2 + Items.Strings = ( + 'One!' + 'Two!' + 'Three!' + ) + TabOrder = 13 + end + end + object TabSheet2: TTabSheet + Caption = 'Owner Draw' + ClientHeight = 283 + ClientWidth = 664 + object Label3: TLabel + Left = 16 + Height = 14 + Top = 10 + Width = 61 + Caption = 'Owner Draw' + ParentColor = False + end + object ColorListBox1: TColorListBox + Left = 212 + Height = 80 + Top = 33 + Width = 127 + ItemHeight = 0 + TabOrder = 0 + end + object ColorBox1: TColorBox + Left = 212 + Height = 22 + Top = 9 + Width = 127 + ItemHeight = 16 + TabOrder = 1 + end + object CheckListBox1: TCheckListBox + Left = 348 + Height = 80 + Top = 9 + Width = 126 + Items.Strings = ( + 'Check1' + 'Check2' + 'Check3' + ) + ItemHeight = 15 + TabOrder = 2 + Data = { + 03000000000000 + } + end + object ListBox2: TListBox + Left = 12 + Height = 48 + Top = 26 + Width = 167 + Items.Strings = ( + 'Item1.' + 'Item2!' + 'Item3?' + ) + ItemHeight = 13 + Style = lbOwnerDrawFixed + TabOrder = 3 + end + object ComboBox2: TComboBox + Left = 12 + Height = 19 + Top = 77 + Width = 167 + ItemHeight = 13 + ItemIndex = 0 + Items.Strings = ( + 'Item1.' + 'Item2!' + 'Item3?' + ) + ReadOnly = True + Style = csOwnerDrawFixed + TabOrder = 4 + Text = 'Item1.' + end + end + object TabSheet3: TTabSheet + Caption = 'Grids' + ClientHeight = 283 + ClientWidth = 664 + object Shape2: TShape + Left = 0 + Height = 161 + Top = 0 + Width = 412 + Brush.Color = clMoneyGreen + end + object StringGrid1: TStringGrid + Left = 10 + Height = 136 + Top = 10 + Width = 278 + AutoAdvance = aaNone + BorderStyle = bsNone + HeaderPushZones = [gzFixedCols, gzFixedRows, gzFixedCells] + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goRelaxedRowSelect, goFixedRowNumbering, goHeaderHotTracking] + TabOrder = 0 + TitleStyle = tsStandard + UseXORFeatures = True + ColWidths = ( + 42 + 51 + 38 + 38 + 45 + ) + Cells = ( + 6 + 0 + 1 + 'Row1' + 1 + 0 + 'Col1?' + 1 + 1 + 'text?' + 2 + 0 + '2' + 3 + 0 + '3' + 4 + 0 + '4' + ) + end + object Button4: TButton + Left = 15 + Height = 25 + Top = 225 + Width = 75 + Caption = 'Default' + OnClick = Button4Click + TabOrder = 1 + end + object Button6: TButton + Left = 92 + Height = 25 + Top = 225 + Width = 75 + Caption = 'Style' + OnClick = Button6Click + TabOrder = 2 + end + object DBGrid1: TDBGrid + Left = 421 + Height = 157 + Top = 3 + Width = 211 + Columns = < + item + end + item + end> + TabOrder = 3 + end + end + end + object Button5: TButton + Left = 11 + Height = 25 + Top = 8 + Width = 173 + BorderSpacing.InnerBorder = 4 + Caption = 'Switch Application.BidiMode ' + OnClick = Button5Click + TabOrder = 1 + end + object Button3: TButton + Left = 184 + Height = 25 + Top = 8 + Width = 173 + BorderSpacing.InnerBorder = 4 + Caption = 'Switch Form.BidiMode ' + OnClick = Button3Click + TabOrder = 2 + end + object Button2: TButton + Left = 357 + Height = 25 + Top = 8 + Width = 75 + BorderSpacing.InnerBorder = 4 + Caption = 'Flip Controls' + OnClick = Button2Click + TabOrder = 3 + end + object MainMenu1: TMainMenu + Images = ImageList1 + left = 222 + top = 279 + object FileMnu: TMenuItem + Caption = 'File' + object NewMnu: TMenuItem + Caption = 'New' + ShortCut = 16462 + end + object MenuItem19: TMenuItem + Caption = '-' + end + object MenuItem20: TMenuItem + Caption = 'Exit!' + OnClick = MenuItem20Click + end + end + object MenuItem1: TMenuItem + Caption = 'Edit' + object MenuItem2: TMenuItem + Caption = 'Undo' + Checked = True + Bitmap.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000C40E0000C40E00000000000000000000FF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + 0000000000000000000000000000000000000000000000000000000000000000 + 00FF00FFFF00FFFF00FFFF00FFFF00FF0065639CFFFF00CFFF00CFFF00CFFF00 + CFFF009ACE00CFFF009ACE009ACE000000FF00FFFF00FFFF00FFFF00FFFF00FF + 0065639CFFFF9CFFFF00CFFF00CFFF00CFFF00CFFF009ACE00CFFF009ACE0000 + 00FF00FFFF00FFFF00FFFF00FFFF00FF0065639CFFFF00CFFF9CFFFF00CFFF00 + CFFF00CFFF00CFFF009ACE009ACE000000FF00FFFF00FFFF00FFFF00FFFF00FF + 0065639CFFFFFFFFFF00CFFF9CFFFF00CFFF00CFFF00CFFF00CFFF009ACE0000 + 00FF00FFFF00FFFF00FFFF00FFFF00FF0065639CFFFF00CFFFFFFFFF00CFFF9C + FFFF00CFFF00CFFF00CFFF009ACE000000FF00FFFF00FFFF00FFFF00FFFF00FF + 0065639CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF0000 + 00FF00FFFF00FFFF00FFFF00FFFF00FF0065639CFFFF9CFFFF9CFFFF9CCFCE00 + 6563006563006563006563006563FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FF006563006563006563006563FF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + } + ImageIndex = 1 + end + object MenuItem3: TMenuItem + Caption = 'Redo' + end + object MenuItem4: TMenuItem + Caption = '-' + end + object MenuItem5: TMenuItem + Caption = 'Cut' + end + object MenuItem6: TMenuItem + Caption = 'Copy' + Bitmap.Data = { + 2E020000424D2E0200000000000036000000280000000B0000000E0000000100 + 180000000000F801000000000000000000000000000000000000FF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00 + FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00 + 0000FF00FFFF00FFFF00FF000000000000000000000000000000FF00FFFF00FF + FF00FF000000FF00FFFF00FF0000003434CB3434CB3434CB3434CB3434CB0000 + 00FF00FFFF00FF000000FF00FF0000005C5CD63434CB3434CB3434CB3434CB34 + 34CB3434CB000000FF00FF000000FF00FF0000005C5CD65C5CD63434CB3434CB + 3434CB3434CB3434CB000000FF00FF000000FF00FF0000007474DC5C5CD65C5C + D63434CB3434CB3434CB3434CB000000FF00FF000000FF00FF0000007474DC74 + 74DC5C5CD63434CB3434CB3434CB3434CB000000FF00FF000000FF00FF000000 + 7474DC7474DC7474DC5C5CD63434CB3434CB3434CB000000FF00FF000000FF00 + FFFF00FF0000007474DC7474DC7474DC5C5CD65C5CD6000000FF00FFFF00FF00 + 0000FF00FFFF00FFFF00FF000000000000000000000000000000FF00FFFF00FF + FF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 + FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF + 00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF + FF00FFFF00FFFF00FFFF00FFFF00FF000000 + } + ImageIndex = 2 + end + object MenuItem7: TMenuItem + Caption = 'Paste' + end + object MenuItem8: TMenuItem + Caption = '-' + end + object MenuItem9: TMenuItem + Caption = 'Find' + end + object MenuItem10: TMenuItem + Caption = 'Find Next' + end + end + object MenuItem21: TMenuItem + Caption = 'Help' + object MenuItem22: TMenuItem + Caption = 'Contents' + Bitmap.Data = { + 42020000424D4202000000000000420000002800000010000000100000000100 + 1000030000000002000000000000000000000000000000000000007C0000E003 + 00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C + 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C + 1F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000000000000000 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7F9C739C739C733967396739673967 + 00001F7C1F7C1F7C1F7C1F7C1042FF7F9C73FF7FFF7F9C73FF7F9C735A6B3967 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F9C73FF7F9C733967 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7F9C73FF7FFF7F9C73FF7F9C73 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7FFF7FFF7F9C739C73 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F9C73FF7FFF7F9C73 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7FFF7F9C739C735A6B + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F0000000000000000 + 00001F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F1042FF7FFF7F0000 + 1F7C1F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F1042FF7F00001F7C + 1F7C1F7C1F7C1F7C1F7C1F7C1042FF7FFF7FFF7FFF7FFF7F104200001F7C1F7C + 1F7C1F7C1F7C1F7C1F7C1F7C10421042104210421042104200001F7C1F7C1F7C + 1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C + 1F7C1F7C1F7C + } + ImageIndex = 0 + end + object MenuItem23: TMenuItem + Caption = 'Tutorial' + end + object MenuItem24: TMenuItem + Caption = '-' + end + object MenuItem25: TMenuItem + Caption = 'About' + end + end + end + object ImageList1: TImageList + Masked = True + left = 425 + top = 273 + Bitmap = { + 4C69030000001000000010000000FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F70084868CFF8486 + 8CFF84868CFF84868CFF84868CFF84868CFF000000FFFF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF84868CFF000000FFFF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF84868CFFFFFFFFFF000000FFFF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF84868CFFFFFFFFFFFFFFFFFF0000 + 00FFFF00F700FF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF0000 + 00FF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EFFFE7E7EFFFD6D7 + DEFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFFFFFFFFFE7E7 + EFFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EFFFE7E7 + EFFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFE7E7 + EFFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFE7E7EFFFCECF + CEFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFE7E7EFFFFFFFFFFFFFFFFFFFE7E7EFFFFFFFFFFFE7E7EFFFD6D7DEFFCECF + CEFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F70084868CFFFFFF + FFFFFFFFFFFFE7E7EFFFE7E7EFFFE7E7EFFFCECFCEFFCECFCEFFCECFCEFFCECF + CEFF000000FFFF00F700FF00F700FF00F700FF00F700FF00F700000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FFFF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00F700FF00 + F700FF00F700FF00F700FF00F700FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF0065 + 63FF006563FF006563FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF9CFF + FFFF9CFFFFFF9CCFCEFF006563FF006563FF006563FF006563FF006563FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF9CFF + FFFF9CFFFFFF9CFFFFFF9CFFFFFF9CFFFFFF9CFFFFFF9CFFFFFF9CFFFFFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF00CF + FFFFFFFFFFFF00CFFFFF9CFFFFFF00CFFFFF00CFFFFF00CFFFFF009ACEFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFFFFFF + FFFF00CFFFFF9CFFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF009ACEFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF00CF + FFFF9CFFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF009ACEFF009ACEFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF9CFF + FFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF009ACEFF00CFFFFF009ACEFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00006563FF9CFFFFFF00CF + FFFF00CFFFFF00CFFFFF00CFFFFF009ACEFF00CFFFFF009ACEFF009ACEFF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00000000FF000000FF000000FF000000FF000000FFFF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000 + 00FF7474DCFF7474DCFF7474DCFF5C5CD6FF5C5CD6FF000000FFFF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF7474 + DCFF7474DCFF7474DCFF5C5CD6FF3434CBFF3434CBFF3434CBFF000000FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF7474 + DCFF7474DCFF5C5CD6FF3434CBFF3434CBFF3434CBFF3434CBFF000000FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF7474 + DCFF5C5CD6FF5C5CD6FF3434CBFF3434CBFF3434CBFF3434CBFF000000FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF5C5C + D6FF5C5CD6FF3434CBFF3434CBFF3434CBFF3434CBFF3434CBFF000000FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000FF5C5C + D6FF3434CBFF3434CBFF3434CBFF3434CBFF3434CBFF3434CBFF000000FFFF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000 + 00FF3434CBFF3434CBFF3434CBFF3434CBFF3434CBFF000000FFFF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00000000FF000000FF000000FF000000FF000000FFFF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00 + } + end + object ApplicationProperties1: TApplicationProperties + left = 476 + top = 257 + end + object TrayIcon1: TTrayIcon + Icon.Data = { + 7E04000000000100010010100000010020006804000016000000280000001000 + 0000200000000100200000000000000400006400000064000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00D69E72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC787 + 56FFC38452FFC38452FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFF + FF00FFFFFF00D7A175FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4 + DBFFF0E2D8FFEAD6C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFF + FF00FFFFFF00D9A47AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3 + C0FFFFFFFFFFEAC7ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFF + FF00FFFFFF00DDA87EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B5 + 7AFFEBD1BDFFEACDB5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFF + FF00FFFFFF00DFAA82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B5 + 79FFFFFFFFFFEACFBAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFF + FF00FFFFFF00E1AE87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B4 + 78FFEACEB7FF70B375FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFF + FF00FFFFFF00E3B18CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CB + B3FFFFFFFFFF6FB173FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFF + FF00FFFFFF00E5B48FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9 + AEFFE9C9B0FF6CB071FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFF + FF00FFFFFF00E7B794FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6 + AAFFFFFFFFFFE8C7ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFF + FF00FFFFFF00E9BA98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9F + FFFF5C9DFFFF5A9AFFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFF + FF00FFFFFF00EBBD9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8 + FFFF68B3FFFF61B0FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFF + FF00FFFFFF00ECBF9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899 + FFFF5496FFFF4D90FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFF + FF00FFFFFF00EEC1A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7 + F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFF + FF00FFFFFF00EFC2A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B7 + 93FFE6B590FFE4B28CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000 + } + Visible = True + left = 370 + top = 253 + end + object PopupNotifier1: TPopupNotifier + Color = 14483455 + Icon.Data = { + 07544269746D617036000000424D360000000000000036000000280000000000 + 0000000000000100180000000000000000006400000064000000000000000000 + 0000 + } + Text = 'Text' + Title = 'Caption' + Visible = False + left = 274 + top = 253 + end + object PopupMenu1: TPopupMenu + left = 323 + top = 273 + object MenuItem26: TMenuItem + Caption = 'File' + end + object MenuItem29: TMenuItem + Caption = 'New Item13' + end + object MenuItem28: TMenuItem + Caption = 'New Item12' + end + object MenuItem27: TMenuItem + Caption = 'New Item11' + end + end +end diff --git a/examples/bidi/unit1.pas b/examples/bidi/unit1.pas new file mode 100644 index 0000000000..eaa7eb2ff9 --- /dev/null +++ b/examples/bidi/unit1.pas @@ -0,0 +1,176 @@ +unit unit1; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, LResources, Dialogs, Forms, Controls, Graphics, + StdCtrls, Buttons, Menus, + ExtCtrls, PopupNotifier, ActnList, ComCtrls, Grids, + ColorBox, CheckLst, DBGrids; + +type + + { TForm1 } + + TForm1 = class(TForm) + ApplicationProperties1: TApplicationProperties; + BitBtn1: TBitBtn; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Button6: TButton; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + CheckListBox1: TCheckListBox; + ColorBox1: TColorBox; + ColorListBox1: TColorListBox; + ComboBox1: TComboBox; + ComboBox2: TComboBox; + DBGrid1: TDBGrid; + Edit1: TEdit; + GroupBox1: TGroupBox; + ImageList1: TImageList; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + ListBox1: TListBox; + ListBox2: TListBox; + MainMenu1: TMainMenu; + Memo1: TMemo; + MenuItem1: TMenuItem; + MenuItem10: TMenuItem; + FileMnu: TMenuItem; + MenuItem26: TMenuItem; + MenuItem27: TMenuItem; + MenuItem28: TMenuItem; + MenuItem29: TMenuItem; + NewMnu: TMenuItem; + MenuItem19: TMenuItem; + MenuItem2: TMenuItem; + MenuItem20: TMenuItem; + MenuItem21: TMenuItem; + MenuItem22: TMenuItem; + MenuItem23: TMenuItem; + MenuItem24: TMenuItem; + MenuItem25: TMenuItem; + MenuItem3: TMenuItem; + MenuItem4: TMenuItem; + MenuItem5: TMenuItem; + MenuItem6: TMenuItem; + MenuItem7: TMenuItem; + MenuItem8: TMenuItem; + MenuItem9: TMenuItem; + PageControl1: TPageControl; + Panel1: TPanel; + PopupMenu1: TPopupMenu; + PopupNotifier1: TPopupNotifier; + RadioButton1: TRadioButton; + RadioButton2: TRadioButton; + RadioButton3: TRadioButton; + RadioButton4: TRadioButton; + RadioButton5: TRadioButton; + RadioGroup1: TRadioGroup; + ScrollBar1: TScrollBar; + Shape2: TShape; + SpeedButton1: TSpeedButton; + StaticText1: TStaticText; + StringGrid1: TStringGrid; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + TrayIcon1: TTrayIcon; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure MenuItem20Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + private + procedure DefaultWidths; + public + end; + +var + Form1: TForm1; + +implementation + +{$r *.lfm} + +{ TForm1 } + +procedure TForm1.Button3Click(Sender: TObject); +begin + if BiDiMode <> bdLeftToRight then + BiDiMode := bdLeftToRight + else + BiDiMode := bdRightToLeft; +end; + +procedure TForm1.Button4Click(Sender: TObject); +begin + DefaultWidths; +end; + +procedure TForm1.Button5Click(Sender: TObject); +begin + ParentBidiMode := True; + if Application.BidiMode = bdRightToLeft then + Application.BidiMode := bdLeftToRight + else + Application.BidiMode := bdRightToLeft; +end; + +procedure TForm1.Button6Click(Sender: TObject); +begin + if StringGrid1.TitleStyle >= tsNative then + StringGrid1.TitleStyle := tsLazarus + else + StringGrid1.TitleStyle := succ(StringGrid1.TitleStyle); +end; + +procedure TForm1.Button1Click(Sender: TObject); +begin + TrayIcon1.BalloonHint := 'Balloon Hint?'; + TrayIcon1.Hint := 'Ok!'; + TrayIcon1.ShowBalloonHint; +end; + +procedure TForm1.Button2Click(Sender: TObject); +begin + FlipChildren(True); +end; + +procedure TForm1.FormCreate(Sender: TObject); +begin + DefaultWidths; +end; + +procedure TForm1.MenuItem20Click(Sender: TObject); +begin + Close; +end; + +procedure TForm1.SpeedButton1Click(Sender: TObject); +begin + PopupNotifier1.Text := 'Notify me?'; + PopupNotifier1.Show; +end; + +procedure TForm1.DefaultWidths; +var + i: Integer; +begin + for i := 0 to StringGrid1.ColCount -1 do + StringGrid1.ColWidths[i]:=50; +end; + +end. + diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp index 91450d40ac..5cc7a61b52 100644 --- a/ide/sourceeditor.pp +++ b/ide/sourceeditor.pp @@ -4860,6 +4860,8 @@ begin DebugLn(['TSourceNotebook.LineEndingClicked Old=',dbgstr(OldLineEnding),' New=',dbgstr(NewLineEnding)]); // change file SrcEdit.CodeBuffer.DiskLineEnding:=NewLineEnding; + SrcEdit.CodeBuffer.Source:= + ChangeLineEndings(SrcEdit.CodeBuffer.Source,NewLineEnding); SrcEdit.CodeBuffer.Modified:=true; SrcEdit.Modified:=true; end;