mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-25 23:22:28 +02:00
IDE: resourcestring
git-svn-id: trunk@45568 -
This commit is contained in:
parent
52b4cf9240
commit
47ffa6e9c0
@ -441,10 +441,10 @@ var
|
||||
NewSource, NewValue: string;
|
||||
begin
|
||||
GetNewSource(NewSource,NewValue);
|
||||
SrcPreviewSynEdit.Text:=NewSource+#13#10
|
||||
SrcPreviewSynEdit.Text:=NewSource+LineEnding
|
||||
+StringOfChar('-',
|
||||
CodeToolBoss.SourceChangeCache.BeautifyCodeOptions.LineLength)
|
||||
+#13#10
|
||||
+LineEnding
|
||||
+CodeToolBoss.SourceChangeCache.BeautifyCodeOptions.BeautifyStatement(
|
||||
GetIdentifier+' = '''+NewValue+'''',0);
|
||||
end;
|
||||
@ -544,7 +544,7 @@ begin
|
||||
Code,EndPos.X,EndPos.Y,FormatStringConstant,FormatParameters,
|
||||
StartInStringConst,EndInStringConst)
|
||||
then begin
|
||||
SrcPreviewSynEdit.Text:='Error:'#13+CodeToolBoss.ErrorMessage;
|
||||
SrcPreviewSynEdit.Text:=lisCCOErrorCaption+':'#13+CodeToolBoss.ErrorMessage;
|
||||
exit;
|
||||
end;
|
||||
if FormatParameters='' then
|
||||
|
@ -31,7 +31,12 @@
|
||||
TProjectInspectorForm is the form of the project inspector.
|
||||
|
||||
ToDo:
|
||||
- show lfm/lrs files as sub items
|
||||
- draw red line for missing files
|
||||
- drop files
|
||||
- multi select
|
||||
- popup menu
|
||||
- delete files
|
||||
- delete deps
|
||||
- dnd move
|
||||
- project groups:
|
||||
- activate
|
||||
|
Loading…
Reference in New Issue
Block a user