IDE: todo list: commit synedit buffers to codetools

git-svn-id: trunk@19940 -
This commit is contained in:
mattias 2009-05-12 12:39:49 +00:00
parent 1994036cf2
commit a8ecb3e7aa
3 changed files with 61 additions and 60 deletions

View File

@ -1,19 +1,20 @@
object TodoDialog: TTodoDialog object TodoDialog: TTodoDialog
Left = 342 Left = 342
Height = 269 Height = 267
Top = 202 Top = 202
Width = 475 Width = 475
ActiveControl = TodoMemo
Caption = 'Insert Todo' Caption = 'Insert Todo'
ClientHeight = 269 ClientHeight = 267
ClientWidth = 475 ClientWidth = 475
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
object TodoLabel: TLabel object TodoLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 18
Top = 8 Top = 8
Width = 27 Width = 30
Caption = 'Text:' Caption = 'Text:'
FocusControl = TodoMemo FocusControl = TodoMemo
ParentColor = False ParentColor = False
@ -22,9 +23,9 @@ object TodoDialog: TTodoDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = PriorityEdit AnchorSideBottom.Control = PriorityEdit
Left = 10 Left = 10
Height = 14 Height = 18
Top = 189 Top = 179
Width = 35 Width = 45
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Priority' Caption = 'Priority'
@ -33,18 +34,18 @@ object TodoDialog: TTodoDialog
object OwnerLabel: TLabel object OwnerLabel: TLabel
AnchorSideTop.Control = PriorityLabel AnchorSideTop.Control = PriorityLabel
Left = 75 Left = 75
Height = 14 Height = 18
Top = 189 Top = 179
Width = 33 Width = 41
Caption = 'Owner' Caption = 'Owner'
ParentColor = False ParentColor = False
end end
object CategoryLabel: TLabel object CategoryLabel: TLabel
AnchorSideTop.Control = PriorityLabel AnchorSideTop.Control = PriorityLabel
Left = 248 Left = 248
Height = 14 Height = 18
Top = 189 Top = 179
Width = 46 Width = 59
Caption = 'Category' Caption = 'Category'
ParentColor = False ParentColor = False
end end
@ -55,8 +56,8 @@ object TodoDialog: TTodoDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PriorityLabel AnchorSideBottom.Control = PriorityLabel
Left = 6 Left = 6
Height = 159 Height = 145
Top = 24 Top = 28
Width = 463 Width = 463
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -68,11 +69,10 @@ object TodoDialog: TTodoDialog
object PriorityEdit: TEdit object PriorityEdit: TEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 27
Top = 205 Top = 199
Width = 38 Width = 38
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
OnKeyPress = PriorityEditKeyPress OnKeyPress = PriorityEditKeyPress
TabOrder = 1 TabOrder = 1
@ -80,10 +80,9 @@ object TodoDialog: TTodoDialog
object OwnerEdit: TEdit object OwnerEdit: TEdit
AnchorSideTop.Control = PriorityEdit AnchorSideTop.Control = PriorityEdit
Left = 76 Left = 76
Height = 23 Height = 27
Top = 205 Top = 199
Width = 162 Width = 162
AutoSize = True
TabOrder = 2 TabOrder = 2
end end
object CategoryEdit: TEdit object CategoryEdit: TEdit
@ -91,18 +90,17 @@ object TodoDialog: TTodoDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 248 Left = 248
Height = 23 Height = 27
Top = 205 Top = 199
Width = 221 Width = 221
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
TabOrder = 3 TabOrder = 3
end end
object BtnPanel: TButtonPanel object BtnPanel: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 36
Top = 237 Top = 225
Width = 463 Width = 463
TabOrder = 4 TabOrder = 4
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]

View File

@ -1,37 +1,37 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TTodoDialog','FORMDATA',[ LazarusResources.Add('TTodoDialog','FORMDATA',[
'TPF0'#11'TTodoDialog'#10'TodoDialog'#4'Left'#3'V'#1#6'Height'#3#13#1#3'Top'#3 'TPF0'#11'TTodoDialog'#10'TodoDialog'#4'Left'#3'V'#1#6'Height'#3#11#1#3'Top'#3
+#202#0#5'Width'#3#219#1#7'Caption'#6#11'Insert Todo'#12'ClientHeight'#3#13#1 +#202#0#5'Width'#3#219#1#13'ActiveControl'#7#8'TodoMemo'#7'Caption'#6#11'Inse'
+#11'ClientWidth'#3#219#1#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScr' +'rt Todo'#12'ClientHeight'#3#11#1#11'ClientWidth'#3#219#1#8'OnCreate'#7#10'F'
+'eenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#9'TodoLabel'#4'Left'#2#8#6 +'ormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6
+'Height'#2#14#3'Top'#2#8#5'Width'#2#27#7'Caption'#6#5'Text:'#12'FocusControl' +'TLabel'#9'TodoLabel'#4'Left'#2#8#6'Height'#2#18#3'Top'#2#8#5'Width'#2#30#7
+#7#8'TodoMemo'#11'ParentColor'#8#0#0#6'TLabel'#13'PriorityLabel'#18'AnchorSi' +'Caption'#6#5'Text:'#12'FocusControl'#7#8'TodoMemo'#11'ParentColor'#8#0#0#6
+'deTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'PriorityEdit'#4 +'TLabel'#13'PriorityLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSi'
+'Left'#2#10#6'Height'#2#14#3'Top'#3#189#0#5'Width'#2'#'#7'Anchors'#11#6'akLe' +'deBottom.Control'#7#12'PriorityEdit'#4'Left'#2#10#6'Height'#2#18#3'Top'#3
+'ft'#8'akBottom'#0#20'BorderSpacing.Bottom'#2#2#7'Caption'#6#8'Priority'#11 +#179#0#5'Width'#2'-'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.'
+'ParentColor'#8#0#0#6'TLabel'#10'OwnerLabel'#21'AnchorSideTop.Control'#7#13 +'Bottom'#2#2#7'Caption'#6#8'Priority'#11'ParentColor'#8#0#0#6'TLabel'#10'Own'
+'PriorityLabel'#4'Left'#2'K'#6'Height'#2#14#3'Top'#3#189#0#5'Width'#2'!'#7'C' +'erLabel'#21'AnchorSideTop.Control'#7#13'PriorityLabel'#4'Left'#2'K'#6'Heigh'
+'aption'#6#5'Owner'#11'ParentColor'#8#0#0#6'TLabel'#13'CategoryLabel'#21'Anc' +'t'#2#18#3'Top'#3#179#0#5'Width'#2')'#7'Caption'#6#5'Owner'#11'ParentColor'#8
+'horSideTop.Control'#7#13'PriorityLabel'#4'Left'#3#248#0#6'Height'#2#14#3'To' +#0#0#6'TLabel'#13'CategoryLabel'#21'AnchorSideTop.Control'#7#13'PriorityLabe'
+'p'#3#189#0#5'Width'#2'.'#7'Caption'#6#8'Category'#11'ParentColor'#8#0#0#5'T' +'l'#4'Left'#3#248#0#6'Height'#2#18#3'Top'#3#179#0#5'Width'#2';'#7'Caption'#6
+'Memo'#8'TodoMemo'#21'AnchorSideTop.Control'#7#9'TodoLabel'#18'AnchorSideTop' +#8'Category'#11'ParentColor'#8#0#0#5'TMemo'#8'TodoMemo'#21'AnchorSideTop.Con'
+'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideR' +'trol'#7#9'TodoLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRig'
+'ight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#13'PriorityLabel'#4 +'ht.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
+'Left'#2#6#6'Height'#3#159#0#3'Top'#2#24#5'Width'#3#207#1#7'Anchors'#11#5'ak' +'eBottom.Control'#7#13'PriorityLabel'#4'Left'#2#6#6'Height'#3#145#0#3'Top'#2
+'Top'#6'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.Top'#2#2#19'Border' +#28#5'Width'#3#207#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+'Spacing.Right'#2#6#20'BorderSpacing.Bottom'#2#6#10'ScrollBars'#7#10'ssAutoB' +#0#17'BorderSpacing.Top'#2#2#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bo'
+'oth'#8'TabOrder'#2#0#0#0#5'TEdit'#12'PriorityEdit'#18'AnchorSideTop.Side'#7 +'ttom'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#5'TEdit'#12'P'
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#205#0#5'Width'#2'&'#7'Anch' +'riorityEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+'ors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Bottom'#2#6 +#27#3'Top'#3#199#0#5'Width'#2'&'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'Bo'
+#10'OnKeyPress'#7#20'PriorityEditKeyPress'#8'TabOrder'#2#1#0#0#5'TEdit'#9'Ow' +'rderSpacing.Bottom'#2#6#10'OnKeyPress'#7#20'PriorityEditKeyPress'#8'TabOrde'
+'nerEdit'#21'AnchorSideTop.Control'#7#12'PriorityEdit'#4'Left'#2'L'#6'Height' +'r'#2#1#0#0#5'TEdit'#9'OwnerEdit'#21'AnchorSideTop.Control'#7#12'PriorityEdi'
+#2#23#3'Top'#3#205#0#5'Width'#3#162#0#8'AutoSize'#9#8'TabOrder'#2#2#0#0#5'TE' +'t'#4'Left'#2'L'#6'Height'#2#27#3'Top'#3#199#0#5'Width'#3#162#0#8'TabOrder'#2
+'dit'#12'CategoryEdit'#21'AnchorSideTop.Control'#7#12'PriorityEdit'#23'Ancho' +#2#0#0#5'TEdit'#12'CategoryEdit'#21'AnchorSideTop.Control'#7#12'PriorityEdit'
+'rSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le' +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
+'ft'#3#248#0#6'Height'#2#23#3'Top'#3#205#0#5'Width'#3#221#0#7'Anchors'#11#5 +'om'#4'Left'#3#248#0#6'Height'#2#27#3'Top'#3#199#0#5'Width'#3#221#0#7'Anchor'
+'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#8'T' +'s'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'BorderSpacing.Right'#2#6#8'TabOrde'
+'abOrder'#2#3#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2#26#3 +'r'#2#3#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6'Height'#2'$'#3'Top'#3
+'Top'#3#237#0#5'Width'#3#207#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'#8 +#225#0#5'Width'#3#207#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'#8'pbCance'
+'pbCancel'#0#9'ShowBevel'#8#0#0#0 +'l'#0#9'ShowBevel'#8#0#0#0
]); ]);

View File

@ -614,13 +614,16 @@ var
begin begin
if fBuild then Exit; if fBuild then Exit;
DebugLn(['TfrmTodo.acRefreshExecute MainSourceFilename=',MainSourceFilename]); //DebugLn(['TfrmTodo.acRefreshExecute MainSourceFilename=',MainSourceFilename]);
if not LazarusIDE.BeginCodeTools then exit;
Screen.Cursor:=crHourGlass; Screen.Cursor:=crHourGlass;
Owners:=nil; Owners:=nil;
try try
fBuild:=True; fBuild:=True;
CodeToolBoss.ActivateWriteLock; CodeToolBoss.ActivateWriteLock;
fScannedFiles.FreeAndClear; fScannedFiles.FreeAndClear;
lvTodo.Items.Clear; lvTodo.Items.Clear;