← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/amunits/otherlibs/picasso/examples/requestmodeid.pas

  • 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:
packages/extra/amunits/otherlibs/picasso/examples/requestmodeid.pas
47
47
    End;
48
48
 
49
49
    DisplayID := p96RequestModeIDTags([P96MA_MinWidth, width,
50
 
                                       P96MA_MinHeight, height,
51
 
                                       P96MA_MinDepth, depth,
52
 
                                       P96MA_WindowTitle, 'RequestModeID Test',
53
 
                                       P96MA_FormatsAllowed, (RGBFF_CLUT or RGBFF_R5G6B5 or RGBFF_R8G8B8 or RGBFF_A8R8G8B8),
54
 
                                       TAG_DONE]);
 
50
                                       P96MA_MinHeight, height,
 
51
                                       P96MA_MinDepth, depth,
 
52
                                       P96MA_WindowTitle, 'RequestModeID Test',
 
53
                                       P96MA_FormatsAllowed, (RGBFF_CLUT or RGBFF_R5G6B5 or RGBFF_R8G8B8 or RGBFF_A8R8G8B8),
 
54
                                       TAG_DONE]);
55
55
 
56
56
    Writeln ('DisplayID:', hexstr(DisplayID,8));
57
 
   
 
57
 
58
58
    If DisplayID <> INVALID_ID Then Begin
59
59
        If GetDisplayInfoData(Nil, @dim ,SizeOf(tDimensionInfo),DTAG_DIMS,DisplayID) <> 0 Then
60
60
            Writeln('Dimensions: ',dim.Nominal.MaxX-dim.Nominal.MinX+1,'x',dim.Nominal.MaxY-dim.Nominal.MinY+1,'x',dim.MaxDepth)