paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 22:29:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation of ipro

Browse Source 
git-svn-id: trunk@6112 -
This commit is contained in:
mattias 2004-10-04 09:36:23 +00:00
parent a690fc37d1
commit 82eee573aa
4 changed files with 162 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/turbopower_ipro/iphtml.pas
View File

@ -2940,9 +2940,7 @@ const
procedure THtmlRadioButton.CreateWnd; procedure THtmlRadioButton.CreateWnd;
begin begin
inherited CreateWnd; inherited CreateWnd;
{$IFDEF IP_LAZARUS} {$IFNDEF IP_LAZARUS}
CNSendMessage(LM_SetValue,Self,@CheckStates[FChecked]);
{$ELSE}
SendMessage(Handle, BM_SETCHECK, Integer(FChecked), 0); SendMessage(Handle, BM_SETCHECK, Integer(FChecked), 0);
{$ENDIF} {$ENDIF}
end; end;
@ -2953,6 +2951,11 @@ begin
end; end;
procedure THtmlRadioButton.SetChecked(Value: Boolean); procedure THtmlRadioButton.SetChecked(Value: Boolean);
{$IFDEF IP_LAZARUS}
begin
inherited SetChecked(Value);
end;
{$ELSE IP_LAZARUS}
procedure TurnSiblingsOff; procedure TurnSiblingsOff;
var var
@ -2976,11 +2979,7 @@ begin
FChecked := Value; FChecked := Value;
TabStop := Value; TabStop := Value;
if HandleAllocated then if HandleAllocated then
{$IFDEF IP_LAZARUS}
CNSendMessage(LM_SetValue,Self,@CheckStates[FChecked]);
{$ELSE}
SendMessage(Handle, BM_SETCHECK, Integer(FChecked), 0); SendMessage(Handle, BM_SETCHECK, Integer(FChecked), 0);
{$ENDIF}
if Value then begin if Value then begin
TurnSiblingsOff; TurnSiblingsOff;
inherited Changed; inherited Changed;
@ -2989,6 +2988,8 @@ begin
end; end;
end; end;
end; end;
{$ENDIF IP_LAZARUS}
{$ENDIF} {$ENDIF}
@ -17186,7 +17187,7 @@ end;
procedure TIpHtmlCustomPanel.WMGetDlgCode(var Msg: TMessage); procedure TIpHtmlCustomPanel.WMGetDlgCode(var Msg: TMessage);
begin begin
{ we want 'em all!} { we want 'em all! For Lazarus: Then use OnKeyDown }
Msg.Result := DLGC_WANTALLKEYS + Msg.Result := DLGC_WANTALLKEYS +
DLGC_WANTARROWS + DLGC_WANTARROWS +
DLGC_WANTCHARS + DLGC_WANTCHARS +
@ -17591,6 +17592,9 @@ initialization
InitScrollProcs; InitScrollProcs;
{ {
$Log$ $Log$
Revision 1.16 2004/10/04 09:36:22 mattias
fixed compilation of ipro
Revision 1.15 2004/08/30 16:02:17 mattias Revision 1.15 2004/08/30 16:02:17 mattias
started project interface started project interface

47
components/turbopower_ipro/ipstrms.pas
View File

@ -381,14 +381,16 @@ end;
{-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------}
procedure TIpMemMapStream.OpenFile; procedure TIpMemMapStream.OpenFile;
{$IFDEF IP_LAZARUS}
begin
writeln('TIpMemMapStream.OpenFile ToDo');
end;
{$ELSE}
var var
CreateMode, CreateMode,
Flags, Flags,
OpenMode : DWORD; OpenMode : DWORD;
begin begin
{$IFDEF IP_LAZARUS}
writeln('TIpMemMapStream.OpenFile ToDo');
{$ELSE}
{ Check requirements. } { Check requirements. }
CheckFileName; CheckFileName;
@ -422,21 +424,23 @@ begin
{ Raise exception. } { Raise exception. }
raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename +
mmFileName); mmFileName);
{$ENDIF}
end; end;
{$ENDIF}
{-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------}
procedure TIpMemMapStream.OpenMap; procedure TIpMemMapStream.OpenMap;
{$IFDEF IP_LAZARUS}
begin
writeln('TIpMemMapStream.OpenMap ToDo');
end;
{$ELSE}
var var
AccessMode, AccessMode,
ProtectMode, ProtectMode,
SizeHigh : DWORD; SizeHigh : DWORD;
Size : DWORD; Size : DWORD;
begin begin
{$IFDEF IP_LAZARUS}
writeln('TIpMemMapStream.OpenMap ToDo');
{$ELSE}
{ If this was an existing file then get the size of the file. } { If this was an existing file then get the size of the file. }
if mmFileExists then begin if mmFileExists then begin
SizeHigh := 0; SizeHigh := 0;
@ -473,8 +477,8 @@ begin
raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename +
mmFileName); mmFileName);
mmPos := 0; mmPos := 0;
{$ENDIF}
end; end;
{$ENDIF}
{-----------------------------------------------------------------------------} {-----------------------------------------------------------------------------}
@ -1617,21 +1621,23 @@ begin
end; end;
function TIpDownloadFileStream.Read(var Buffer; Count : Longint) : Longint; function TIpDownloadFileStream.Read(var Buffer; Count : Longint) : Longint;
{$IFDEF IP_LAZARUS}
begin
writeln('ToDo: TIpDownloadFileStream.Read ');
Result:=0;
end;
{$ELSE}
var var
ReadOK : Bool; ReadOK : Bool;
begin begin
{$IFDEF IP_LAZARUS}
writeln('ToDo: TIpDownloadFileStream.Read ');
Result:=0;
{$ELSE}
ReadOK := ReadFile(Handle, Buffer, Count, DWord(Result), nil); ReadOK := ReadFile(Handle, Buffer, Count, DWord(Result), nil);
if not ReadOK then begin if not ReadOK then begin
raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + FFileName); raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + FFileName);
Result := 0; Result := 0;
end; end;
{$ENDIF}
end; end;
{$ENDIF}
procedure TIpDownloadFileStream.Rename(aNewName : string); procedure TIpDownloadFileStream.Rename(aNewName : string);
var var
@ -1724,21 +1730,23 @@ begin
end; end;
function TIpDownloadFileStream.Write(const Buffer; Count : Longint) : Longint; function TIpDownloadFileStream.Write(const Buffer; Count : Longint) : Longint;
{$IFDEF IP_LAZARUS}
begin
writeln('ToDo: TIpDownloadFileStream.Write');
Result:=Count;
end;
{$ELSE}
var var
WriteOK : Bool; WriteOK : Bool;
begin begin
{$IFDEF IP_LAZARUS}
writeln('ToDo: TIpDownloadFileStream.Write');
Result:=Count;
{$ELSE}
WriteOK := WriteFile(Handle, Buffer, Count, DWord(Result), nil); WriteOK := WriteFile(Handle, Buffer, Count, DWord(Result), nil);
if not WriteOK then begin if not WriteOK then begin
raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + FFileName); raise EIpBaseException.Create(SysErrorMessage(GetLastError) + SFilename + FFileName);
Result := 0 Result := 0
end; end;
{$ENDIF}
end; end;
{$ENDIF}
{ TIpByteStream } { TIpByteStream }
@ -1780,6 +1788,9 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2004/10/04 09:36:23 mattias
fixed compilation of ipro
Revision 1.3 2004/02/04 22:17:59 mattias Revision 1.3 2004/02/04 22:17:59 mattias
TipHtmlPanel can now show fpdoc html output TipHtmlPanel can now show fpdoc html output

10
components/turbopower_ipro/iputils.pas
View File

@ -41,7 +41,7 @@ uses
GraphType, GraphType,
LCLIntf, LCLIntf,
LMessages, LMessages,
FileCtrl, FileUtil,
{$ELSE} {$ELSE}
Messages, Messages,
Windows, Windows,
@ -504,19 +504,19 @@ end;
{ Returns True if a given address is a Class B address } { Returns True if a given address is a Class B address }
function InClassB(Addr : LongInt) : Boolean; function InClassB(Addr : LongInt) : Boolean;
begin begin
Result := (Addr and $C0000000) = $80000000; Result := (Cardinal(Addr) and $C0000000) = $80000000;
end; end;
{ Returns True if a given address is a Class C address } { Returns True if a given address is a Class C address }
function InClassC(Addr : LongInt) : Boolean; function InClassC(Addr : LongInt) : Boolean;
begin begin
Result := (Addr and $E0000000) = $C0000000; Result := (Cardinal(Addr) and $E0000000) = $C0000000;
end; end;
{ Returns True if a given address is a Class D address } { Returns True if a given address is a Class D address }
function InClassD(Addr : LongInt) : Boolean; function InClassD(Addr : LongInt) : Boolean;
begin begin
Result := (Addr and $F0000000) = $E0000000; Result := (Cardinal(Addr) and $F0000000) = $E0000000;
end; end;
{ Returns True if a given address is a multicast address } { Returns True if a given address is a multicast address }
@ -2686,7 +2686,7 @@ end;
function GetTemporaryFile(const Path : string) : string; function GetTemporaryFile(const Path : string) : string;
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
begin begin
Result:=FileCtrl.GetTempFileName(Path,'IP_'); Result:=FileUtil.GetTempFileName(Path,'IP_');
end; end;
{$ELSE} {$ELSE}
var var

126
examples/turbopower_ipro/tpiproexample.lpi
View File

@ -1,20 +1,73 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="3"/> <Version Value="5"/>
<General> <General>
<ProjectType Value="Application"/>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="3"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="tpiproexample"/> <Title Value="tpiproexample"/>
</General> </General>
<Units Count="3"> <JumpHistory Count="14" HistoryIndex="9">
<Position1>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iputils.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iputils.pas"/>
<Caret Line="2672" Column="11" TopLine="2648"/>
</Position2>
<Position3>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iputils.pas"/>
<Caret Line="44" Column="11" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iphtml.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position4>
<Position5>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iputils.pas"/>
<Caret Line="2689" Column="19" TopLine="2667"/>
</Position5>
<Position6>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position6>
<Position7>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="428" Column="1" TopLine="390"/>
</Position7>
<Position8>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="387" Column="3" TopLine="365"/>
</Position8>
<Position9>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="481" Column="1" TopLine="438"/>
</Position9>
<Position10>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="433" Column="3" TopLine="411"/>
</Position10>
<Position11>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iphtml.pas"/>
<Caret Line="2944" Column="3" TopLine="2920"/>
</Position11>
<Position12>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iphtml.pas"/>
<Caret Line="17646" Column="33" TopLine="17607"/>
</Position12>
<Position13>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Caret Line="434" Column="3" TopLine="412"/>
</Position13>
<Position14>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iphtml.pas"/>
<Caret Line="16503" Column="1" TopLine="16503"/>
</Position14>
</JumpHistory>
<Units Count="9">
<Unit0> <Unit0>
<CursorPos X="5" Y="6"/> <CursorPos X="5" Y="6"/>
<Filename Value="tpiproexample.lpr"/> <Filename Value="tpiproexample.lpr"/>
@ -24,14 +77,14 @@
<UsageCount Value="25"/> <UsageCount Value="25"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<CursorPos X="15" Y="81"/> <CursorPos X="11" Y="72"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<Filename Value="mainunit.pas"/> <Filename Value="mainunit.pas"/>
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<ResourceFilename Value="mainunit.lrs"/> <ResourceFilename Value="mainunit.lrs"/>
<TopLine Value="54"/> <TopLine Value="51"/>
<UnitName Value="MainUnit"/> <UnitName Value="MainUnit"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
</Unit1> </Unit1>
@ -43,6 +96,59 @@
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
</Unit2> </Unit2>
<Unit3>
<CursorPos X="28" Y="519"/>
<EditorIndex Value="1"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iputils.pas"/>
<Loaded Value="True"/>
<TopLine Value="485"/>
<UnitName Value="IpUtils"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<CursorPos X="1" Y="29"/>
<EditorIndex Value="6"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/fileutil.pas"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="FileUtil"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<CursorPos X="1" Y="2991"/>
<EditorIndex Value="3"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/iphtml.pas"/>
<Loaded Value="True"/>
<TopLine Value="2964"/>
<UnitName Value="IpHtml"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<CursorPos X="3" Y="434"/>
<EditorIndex Value="2"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/components/turbopower_ipro/ipstrms.pas"/>
<Loaded Value="True"/>
<TopLine Value="412"/>
<UnitName Value="IpStrms"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<CursorPos X="15" Y="820"/>
<EditorIndex Value="4"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/stdctrls.pp"/>
<Loaded Value="True"/>
<TopLine Value="798"/>
<UnitName Value="StdCtrls"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<CursorPos X="3" Y="142"/>
<EditorIndex Value="5"/>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/include/customcheckbox.inc"/>
<Loaded Value="True"/>
<TopLine Value="131"/>
<UsageCount Value="10"/>
</Unit8>
</Units> </Units>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>