paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-25 09:04:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed change file line ending

Browse Source 
git-svn-id: trunk@25195 -
This commit is contained in:
mattias 2010-05-04 20:58:31 +00:00
parent 6bbb561502
commit 9361e5a7ae
6 changed files with 1001 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -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

4
components/codetools/sourcelog.pas
View File

@ -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

20
examples/bidi/project1.lpr Normal file
View File

@ -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.

799
examples/bidi/unit1.lfm Normal file
View File

@ -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

176
examples/bidi/unit1.pas Normal file
View File

@ -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.

2
ide/sourceeditor.pp
View File

@ -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;