paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

started make resource string

Browse Source 
git-svn-id: trunk@2864 -
This commit is contained in:
mattias 2002-08-18 08:55:10 +00:00
parent 5021a1675e
commit 7051ff6918
2 changed files with 117 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/main.pp
View File

@ -173,6 +173,7 @@ type
procedure mnuToolSyntaxCheckClicked(Sender : TObject); procedure mnuToolSyntaxCheckClicked(Sender : TObject);
procedure mnuToolGuessUnclosedBlockClicked(Sender : TObject); procedure mnuToolGuessUnclosedBlockClicked(Sender : TObject);
procedure mnuToolGuessMisplacedIFDEFClicked(Sender : TObject); procedure mnuToolGuessMisplacedIFDEFClicked(Sender : TObject);
procedure mnuToolMakeResourceStringClicked(Sender : TObject);
procedure mnuToolConvertDFMtoLFMClicked(Sender : TObject); procedure mnuToolConvertDFMtoLFMClicked(Sender : TObject);
procedure mnuToolBuildLazarusClicked(Sender : TObject); procedure mnuToolBuildLazarusClicked(Sender : TObject);
procedure mnuToolConfigBuildLazClicked(Sender : TObject); procedure mnuToolConfigBuildLazClicked(Sender : TObject);
@ -506,6 +507,7 @@ type
procedure DoJumpToGuessedMisplacedIFDEF(FindNext: boolean); procedure DoJumpToGuessedMisplacedIFDEF(FindNext: boolean);
procedure DoGotoIncludeDirective; procedure DoGotoIncludeDirective;
procedure SaveIncludeLinks; procedure SaveIncludeLinks;
function DoMakeResourceString: TModalResult;
// methods for debugging, compiling and external tools // methods for debugging, compiling and external tools
function DoJumpToCompilerMessage(Index:integer; function DoJumpToCompilerMessage(Index:integer;
@ -1441,6 +1443,7 @@ begin
itmToolSyntaxCheck.OnClick := @mnuToolSyntaxCheckClicked; itmToolSyntaxCheck.OnClick := @mnuToolSyntaxCheckClicked;
itmToolGuessUnclosedBlock.OnClick := @mnuToolGuessUnclosedBlockClicked; itmToolGuessUnclosedBlock.OnClick := @mnuToolGuessUnclosedBlockClicked;
itmToolGuessMisplacedIFDEF.OnClick := @mnuToolGuessMisplacedIFDEFClicked; itmToolGuessMisplacedIFDEF.OnClick := @mnuToolGuessMisplacedIFDEFClicked;
itmToolMakeResourceString.OnClick := @mnuToolMakeResourceStringClicked;
itmToolConvertDFMtoLFM.OnClick := @mnuToolConvertDFMtoLFMClicked; itmToolConvertDFMtoLFM.OnClick := @mnuToolConvertDFMtoLFMClicked;
itmToolBuildLazarus.OnClick := @mnuToolBuildLazarusClicked; itmToolBuildLazarus.OnClick := @mnuToolBuildLazarusClicked;
itmToolConfigureBuildLazarus.OnClick := @mnuToolConfigBuildLazClicked; itmToolConfigureBuildLazarus.OnClick := @mnuToolConfigBuildLazClicked;
@ -1779,6 +1782,9 @@ begin
ecGuessMisplacedIFDEF: ecGuessMisplacedIFDEF:
DoJumpToGuessedMisplacedIFDEF(true); DoJumpToGuessedMisplacedIFDEF(true);
ecMakeResourceString:
DoMakeResourceString;
ecConvertDFM2LFM: ecConvertDFM2LFM:
DoConvertDFMtoLFM; DoConvertDFMtoLFM;
@ -2236,6 +2242,11 @@ begin
DoJumpToGuessedMisplacedIFDEF(true); DoJumpToGuessedMisplacedIFDEF(true);
end; end;
procedure TMainIDE.mnuToolMakeResourceStringClicked(Sender : TObject);
begin
DoMakeResourceString;
end;
procedure TMainIDE.mnuToolConvertDFMtoLFMClicked(Sender : TObject); procedure TMainIDE.mnuToolConvertDFMtoLFMClicked(Sender : TObject);
begin begin
DoConvertDFMtoLFM; DoConvertDFMtoLFM;
@ -6762,10 +6773,10 @@ var ActiveSrcEdit: TSourceEditor;
NewX, NewY, NewTopLine: integer; NewX, NewY, NewTopLine: integer;
begin begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit; if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
{ $IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
writeln(''); writeln('');
writeln('[TMainIDE.DoGotoIncludeDirective] ************'); writeln('[TMainIDE.DoGotoIncludeDirective] ************');
{ $ENDIF} {$ENDIF}
if CodeToolBoss.FindEnclosingIncludeDirective(ActiveUnitInfo.Source, if CodeToolBoss.FindEnclosingIncludeDirective(ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX, ActiveSrcEdit.EditorComponent.CaretX,
ActiveSrcEdit.EditorComponent.CaretY, ActiveSrcEdit.EditorComponent.CaretY,
@ -6785,8 +6796,28 @@ begin
CodeToolBoss.SourceCache.SaveIncludeLinksToFile(AFilename); CodeToolBoss.SourceCache.SaveIncludeLinksToFile(AFilename);
end; end;
function TMainIDE.DoMakeResourceString: TModalResult;
var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
//StartX, StartY, EndX, EndY: integer;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
{$IFDEF IDE_DEBUG}
writeln('');
writeln('[TMainIDE.DoGotoIncludeDirective] ************');
{$ENDIF}
// ToDo:
// - determine start and end of string constant in source
// - write and open wizard
MessageDlg('Not implemented yet','Sorry, not implemented yet.',mtInformation,
[mbCancel],0);
Result:=mrCancel;
end;
procedure TMainIDE.DoCompleteCodeAtCursor; procedure TMainIDE.DoCompleteCodeAtCursor;
var ActiveSrcEdit: TSourceEditor; var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo; ActiveUnitInfo: TUnitInfo;
NewSource: TCodeBuffer; NewSource: TCodeBuffer;
NewX, NewY, NewTopLine: integer; NewX, NewY, NewTopLine: integer;
@ -7628,6 +7659,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.455 2003/01/19 14:44:27 mattias
started make resource string
Revision 1.454 2003/01/15 09:08:08 mattias Revision 1.454 2003/01/15 09:08:08 mattias
fixed search paths for virtual projects fixed search paths for virtual projects

82
lcl/include/defaultbitbtnimages.inc
View File

@ -14,8 +14,8 @@
} }
type type
PCharArray = Array[0..18+60] of PChar; PCharArray = Array[0..18+60] of PChar;
PCharArray22 = Array[0..22] of PChar;
const const
//IMGOK_Check : array [0..18+60] of PChar = //IMGOK_Check : array [0..18+60] of PChar =
@ -431,6 +431,82 @@ const
'......zwxz..........', '......zwxz..........',
'.......zz...........'); '.......zz...........');
IMG_NO : PCharArray22 =
(
'18 18 4 1',
'a c #800000',
'b c #808080',
'# c #ff0000',
'. c None',
'..................',
'......######......',
'....##aaaaaa##....',
'...#aaabbbbaaab...',
'..#aaab....baaab..',
'..#aaaa#.....#ab..',
'.#aabaaa#....#aab.',
'.#ab.baaa#....#ab.',
'.#ab..baaa#...#ab.',
'.#ab...baaa#..#ab.',
'.#ab....baaa#.#ab.',
'.#aab....baaa#aab.',
'..#aa.....baaaab..',
'..#aa##....aaaab..',
'...baaa####aaab...',
'....bbaaaaaabb....',
'......bbbbbb......',
'..................');
IMG_RETRY : PCharArray22 =
(
'19 18 4 1',
'b c #000080',
'a c #008000',
'# c #00ff00',
'. c none',
'...................',
'......######.......',
'....##aaaaaa##..#..',
'...#aaaaaaaaaa##ab.',
'..#aaabbbbbaaaaaab.',
'..#aab.....bbaaaab.',
'.#aab.......#aaaab.',
'.#bbb......#aaaaab.',
'............bbbbbb.',
'...................',
'.#######...........',
'.aaaaaa......#bbb..',
'.aaaaa.......#aab..',
'.aaaaa#.....#aaab..',
'.aaaaaa#####aaab...',
'.aabbaaaaaaaaab....',
'.ab..baaaaaabb.....',
'......bbbbbb.......');
IMG_IGNIORE: PCharArray22 =
(
'18 18 5 1',
'b c #000080',
'c c #008000',
'# c #008080',
'a c #00ff00',
'. c none',
'........###.......',
'.......#aab.......',
'.......#acb.......',
'.......bbab.......',
'........ccab......',
'.......ccaaab.....',
'......acaacaab....',
'....#acbaabbcab...',
'..#aacb#acb.#ab...',
'..bbbb##aab.#ab...',
'......#aaacc#b#...',
'.....caacccb#.....',
'....#aabb#cab#....',
'....aab#..#cab....',
'...cacb....#a##...',
'..aaab......cab...',
'.bbbb#.....bbbb...');