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

LazSvn package: restore Application.QueueAsyncCalls

Browse Source 
git-svn-id: trunk@35471 -
This commit is contained in:
juha 2012-02-19 09:58:40 +00:00
parent efa58a1062
commit 6e64f6d1fc
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazsvnpkg/svnlogform.pas
View File

@ -206,8 +206,7 @@ procedure TSVNLogFrm.FormShow(Sender: TObject);
begin
ChangeCursor(crHourGlass);
Caption := Format(rsLazarusSVNLog, [RepositoryPath]);
// Application.QueueAsyncCall(@Execute, 0);
Execute(0);
Application.QueueAsyncCall(@Execute, 0);
end;
procedure TSVNLogFrm.LogListViewSelectItem(Sender: TObject; Item: TListItem;

3
components/lazsvnpkg/svnstatusform.pas
View File

@ -102,8 +102,7 @@ begin
Caption := Format('%s - %s...', [RepositoryPath, rsLazarusSVNCommit]);
CommitMsgHistoryLabel.Caption:=rsCommitMsgHistory;
CommitMsgLabel.Caption:=rsCommitMsg;
// Application.QueueAsyncCall(@Initialize, 0);
Initialize(0);
Application.QueueAsyncCall(@Initialize, 0);
end;
procedure TSVNStatusFrm.Initialize(Data: PtrInt);