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

Formatting, comment.

Browse Source 
git-svn-id: trunk@52109 -
This commit is contained in:
juha 2016-04-06 10:19:12 +00:00
parent 3594a6b528
commit 2c41ccf609
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazutf8.pas
View File

@ -643,7 +643,7 @@ begin
end;
{ Find the start of the UTF8 character which contains BytePos,
if BytePos is not part of a valid Utf8Codepoint the function returns BytePos
if BytePos is not part of a valid Utf8 Codepoint the function returns BytePos
Len is length in byte, BytePos starts at 0 }
function UTF8FindNearestCharStart(UTF8Str: PChar; Len: SizeInt; BytePos: SizeInt): SizeInt;
var

6
ide/frames/compiler_path_options.pas
View File

@ -639,7 +639,7 @@ begin
// register special buttons in the dialog itself
btnShowOptions := CreateButton(dlgCOShowOptions);
btnShowOptions.LoadGlyphFromResourceName(HInstance, 'menu_compiler_options');
btnShowOptions.OnClick := @DoShowOptions;
btnShowOptions.OnClick := @DoShowOptions;
// Check
btnCheck := CreateButton(lisCompTest);
btnCheck.ModalResult := mrNone;
@ -650,12 +650,12 @@ begin
// Export
btnExport := CreateButton(lisExport);
btnExport.OnClick := @DoExport;
btnExport.OnClick := @DoExport;
btnExport.Hint := dlgCOLoadSaveHint;
btnExport.LoadGlyphFromStock(idButtonSave);
// Import
btnLoadSave := CreateButton(lisImport);
btnLoadSave.OnClick := @DoImport;
btnLoadSave.OnClick := @DoImport;
btnLoadSave.Hint := dlgCOLoadSaveHint;
btnLoadSave.LoadGlyphFromStock(idButtonOpen);
if btnLoadSave.Glyph.Empty then