moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 15:58:51 -05:00
Code Issues Releases Wiki Activity

Fuck dragging for linux users!

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@170 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-11-01 15:30:32 +00:00
parent 5d4f147e51
commit a23dd1b397
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/SAMufasaGUI/project1.lpi
View File

@ -168,7 +168,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="68" Y="770"/> <CursorPos X="33" Y="771"/>
<TopLine Value="760"/> <TopLine Value="760"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
@ -1397,7 +1397,7 @@
<CursorPos X="56" Y="576"/> <CursorPos X="56" Y="576"/>
<TopLine Value="560"/> <TopLine Value="560"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="10"/> <UsageCount Value="11"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit194> </Unit194>
</Units> </Units>

4
Projects/SAMufasaGUI/testunit.pas
View File

@ -767,7 +767,9 @@ end;
procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
begin begin
PageControl1.BeginDrag({$ifdef linux}true{$else} false {$endif}); {$ifdef mswindows}
PageControl1.BeginDrag(false);
{$endif}
end; end;