← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/win32/graph.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/win32/graph.pp
1
1
{
2
 
    $Id: graph.pp,v 1.12 2003/04/23 11:35:00 peter Exp $
 
2
    $Id: graph.pp,v 1.15 2005/04/04 16:13:09 peter Exp $
3
3
    This file is part of the Free Pascal run time library.
4
4
    Copyright (c) 1999-2000 by Florian Klaempfl
5
5
 
168
168
     GetPaletteEntry:=index;
169
169
  end;
170
170
 
171
 
procedure PutPixel16Win32GUI(x,y : integer;pixel : word);
 
171
procedure PutPixel16Win32GUI(x,y : smallint;pixel : word);
172
172
 
173
173
  var
174
174
     c : colorref;
195
195
      end;
196
196
  end;
197
197
 
198
 
function GetPixel16Win32GUI(x,y : integer) : word;
 
198
function GetPixel16Win32GUI(x,y : smallint) : word;
199
199
 
200
200
  var
201
201
     c : COLORREF;
224
224
      end;
225
225
  end;
226
226
 
227
 
procedure DirectPutPixel16Win32GUI(x,y : integer);
 
227
procedure DirectPutPixel16Win32GUI(x,y : smallint);
228
228
 
229
229
  var
230
230
     col : longint;
715
715
    CurrentWriteMode := WriteMode;
716
716
  end;
717
717
 
718
 
procedure HLine16Win32GUI(x,x2,y: integer);
 
718
procedure HLine16Win32GUI(x,x2,y: smallint);
719
719
 
720
720
   var
721
721
      c,c2 : COLORREF;
1117
1117
end;
1118
1118
}
1119
1119
procedure SetRGBPaletteWin32GUI(colorNum,redValue,greenvalue,
1120
 
      bluevalue : integer);
 
1120
      bluevalue : smallint);
1121
1121
 
1122
1122
  begin
1123
1123
     if directcolor or (colornum<0) or (colornum>=maxcolor) then
1135
1135
       end;
1136
1136
  end;
1137
1137
 
1138
 
procedure GetRGBPaletteWin32GUI(colorNum : integer;
1139
 
      var redValue,greenvalue,bluevalue : integer);
 
1138
procedure GetRGBPaletteWin32GUI(colorNum : smallint;
 
1139
      var redValue,greenvalue,bluevalue : smallint);
1140
1140
 
1141
1141
  begin
1142
1142
     if directcolor or (colornum<0) or (colornum>=maxcolor) then
1496
1496
                    ExitThread(1);
1497
1497
                 end;
1498
1498
            end;
1499
 
          GraphWindow:=WinCreate;
1500
1499
          winregistered:=true;
1501
1500
       end;
 
1501
     GraphWindow:=WinCreate;
1502
1502
     if longint(GraphWindow) = 0 then begin
1503
1503
       MessageBox(0, 'Window creation failed', nil, mb_Ok);
1504
1504
       ExitThread(1);
1562
1562
     CloseHandle(MessageThreadHandle);
1563
1563
     DeleteCriticalSection(graphdrawing);
1564
1564
     freemem(pal,sizeof(RGBrec)*maxcolor);
 
1565
 
 
1566
     MessageThreadID := 0;
 
1567
     MessageThreadHandle := 0;
 
1568
     isgraphmode := false;
1565
1569
  end;
1566
1570
 
1567
1571
procedure LineWin32GUI(X1, Y1, X2, Y2: smallint); {$ifndef fpc}far;{$endif fpc}
2222
2226
end.
2223
2227
{
2224
2228
  $Log: graph.pp,v $
2225
 
  Revision 1.12  2003/04/23 11:35:00  peter
2226
 
    * wndproc definition fixed
2227
 
 
2228
 
  Revision 1.11  2003/04/23 11:08:09  florian
2229
 
    * fixed parameter types
2230
 
 
2231
 
  Revision 1.10  2002/09/07 16:01:28  peter
2232
 
    * old logs removed and tabs fixed
2233
 
 
2234
 
  Revision 1.9  2002/01/06 15:37:20  florian
2235
 
    * log fixed
2236
 
 
2237
 
  Revision 1.8  2002/01/06 15:23:42  florian
2238
 
    * SetRGBColor with cached pens fixed
 
2229
  Revision 1.15  2005/04/04 16:13:09  peter
 
2230
    * use smallint
 
2231
 
 
2232
  Revision 1.14  2005/03/31 12:47:20  marco
 
2233
   * fix from Thomas Schatzl for 3208
 
2234
 
 
2235
  Revision 1.13  2005/02/14 17:13:32  peter
 
2236
    * truncate log
2239
2237
 
2240
2238
}