Accueil

Lexique

UNITéS

Algorithmes

Tutoriel

Les unités de Pure Pascal (langage Pascal pour les ordinateurs de la gamme Atari ST), compatible Turbo Pascal.

Unité GEM : Liste des fenêtre

Lors du rafraîchissement des fenêtres (déclenché par un message WM_REDRAW, par exemple), seules les zones réellement visibles à l'écran peuvent être redessinées.

AES garde la trace des parties d'une fenêtre qui ne sont pas couvertes par d'autres fenêtres. Il construit une liste de rectangles contenus dans la zone de travail de la fenêtre, non couverts par d'autres fenêtres et, non obstrués par la zone de travail de la fenêtre. Cette liste est accessible à l'aide de la fonction wind_get.

Malheureusement, cela devient encore plus compliqué: AES ne tient pas compte du fait qu'une fenêtre peut également être partiellement à l'extérieur de l'écran, c'est-à-dire que la partie extérieure apparaît également dans la liste rectangulaire. Mais vous n'êtes pas autorisé à y dessiner quoi que ce soit.

Pour tirer le meilleur parti des complications, il se peut que seule une partie de la fenêtre soit redessinée car, par exemple, seule une partie de celle-ci était couverte par une boîte de dialogue.

Heureusement, il existe une approche normalisée qui répond à toutes ces exigences et qui peut être appliquée à de nouveaux programmes avec relativement peu de travail.

Voici un exemple:

procedure  Redraw( winHandle : Integer; dirty : Rect );

    procedure  RectIntersect( r1 : Rect; var r2 : Rect );

        functionMin( a, b : Integer ) : Integer;
        begin
            if a < b then
                Min := a
            else
                Min := b;
        end;

        function Max( a, b : Integer ) : Integer;
        begin
            if a > b then
                Max := a
            else
                Max := b;
        end;

        var
            x, y, w, h : Integer;

        begin
            x := Max( r1.x, r2.x );
            y := Max( r1.y, r2.y );
            w := Min( r1.x + r1.w, r2.x + r2.w ) - x;
            h := Min( r1.y + r1.h, r2.y + r2.h ) - y;
            r2.x := x;
            r2.y := y;
            r2.w := w;
            r2.h := h;
        end;

    var
    f, r : Rect;
    pxyarray : ARRAY_4;

    begin
        wind_update( BEG_UPDATE );
        wind_get( 0, WF_WORKXYWH, f.x, f.y, f.w, f.h );
        RectIntersect( f, dirty );
        wind_get( winHandle, WF_FIRSTXYWH, r.x, r.y, r.w, r.h );
        while ( r.w > 0 ) and ( r.h > 0 ) do begin
        RectIntersect( dirty, r );
        if ( r.w > 0 ) and ( r.h > 0 ) then
        begin
            pxyarray[0] := r.x;
            pxyarray[1] := r.y;
            pxyarray[2] := r.x + r.w - 1;
            pxyarray[3] := r.y + r.h - 1;
            vs_clip( GemInit.vdiHandle, 1, pxyarray );
            graf_mouse( M_OFF, nil );
            DrawWindowContents( winHandle, r );
            graf_mouse( M_ON, nil );
            vs_clip( GemInit.vdiHandle, 0, pxyarray );
        end;
        wind_get( winHandle, WF_NEXTXYWH, r.x, r.y, r.w, r.h );
    end;
    wind_update( END_UPDATE );
end;

La procédure auxiliaire RectIntersect calcule l'intersection de deux rectangles, c'est-à-dire la zone où les deux se chevauchent.

L'appel wind_update verrouille les structures de données internes à AES afin que la liste des rectangles ne change pas pendant que nous la traitons.

L'appel wind_get(0, WF_WORKXYWH, ...) récupère les dimensions de l'écran. Si nous coupons ceci avec le rectangle à dessiner ("sale"), nous obtenons un rectangle pour la zone à dessiner sur l'écran.

Ensuite, la liste des rectangles est traitée. Chaque rectangle est récupéré avec wind_get et coupé avec le rectangle à dessiner. Si l'intersection n'est pas vide, les options de dessin VDI sont limitées au rectangle avec vs_clip et le contenu est dessiné en appelant une procédure DrawWindowContents. La souris doit d'abord être allumée puis éteinte (appels à graf_mouse).

Enfin, nous publions les structures de données internes AES avec un autre appel wind_update.

---

Vous trouverez dans cette zone la liste de toutes les Unités (équivalent des "Librairies" en C) de Pure Pascal. Les Unités indiqués comme standards existent dans la majorité des compilateurs Pascal existant sur ordinateurs 16 bits et au dela (dont Turbo Pascal 3 mini). Les unités indiqués comme Atari sont spécifiques aux systèmes d'exploitation des Atari ST (TOS n.n).

Accès aux unités

Les menus déroulants de chaque unité sont des accès directs aux procédures et fonctions, classés alphabétiquement (sans tenir compte de la casse, puisque le langage Pascal ne tient pas compte de la casse!)

CRT (Standard) Choix fonction/Proc CRT1) Procédure AssignCrt 2) Procédure ClrEol 3) Procédure ClrScr 4) Procédure Delay 5) Procédure DelLine 6) Procédure GotoXY 7) Procédure HighVideo 8) Procédure InsLine 9) Fonction KeyPressed 10) Procédure LowVideo 11) Procédure NormVideo 12) Procédure NoSound 13) Procédure ReadKey 14) Procédure Sound 15) Procédure TextBackground 16) Procédure TextColor 17) Procédure TextMode 18) Procédure WhereX 19) Procédure WhereY 20) Procédure Window	DOS (Standard) Choix fonction/Proc DOS1) Fonction DiskFree 2) Fonction DiskSize 3) Fonction DosExitCode 4) Fonction DosVersion 5) Fonction EnvCount 6) Fonction EnvStr 7) Fonction Exec 8) Procédure FindFirst 9) Fonction FExpand 10) Procédure FSearch 11) Procédure FSplit 12) Procédure GetCBreak 13) Procédure GetDate 14) Fonction GetEnv 15) Procédure GetFAttr 16) Procédure GetFTime 17) Procédure GetIntVec 18) Procédure GetTime 19) Procédure GetVerify 20) Procédure Intr 21) Procédure Keep 22) Procédure MsDos 23) Procédure PackTime 24) Procédure SetCBreak 25) Procédure SetDate 26) Procédure SetFAttr 27) Procédure SetFTime 28) Procédure SetIntVec 29) Procédure SetTime 30) Procédure SetVerify 31) Procédure SwapVectors 32) Procédure UnpackTime	GEM : AES (Atari) Choix fonction/Proc AES1) Fonction appl_exit 2) Fonction appl_find 3) Fonction appl_init 4) Fonction appl_read 5) Fonction appl_tplay 6) Fonction appl_trecord 7) Fonction appl_write 8) Fonction evnt_button 9) Fonction evnt_dclick 10) Fonction evnt_keybd 11) Fonction evnt_mesag 12) Fonction evnt_mouse 13) Fonction evnt_multi 14) Fonction evnt_timer 15) Fonction form_alert 16) Fonction form_button 17) Fonction form_center 18) Fonction form_dial 19) Fonction form_do 20) Fonction form_error 21) Fonction form_keybd 22) Fonction fsel_exinput 23) Fonction fsel_input 24) Procédure GetFreeString 25) Procédure GetIcontext 26) Procédure GetPtext 27) Procédure GetPtmplt 28) Procédure GetPvalid 29) Fonction graf_dragbox 30) Fonction graf_growbox 31) Fonction graf_handle 32) Fonction graf_mbox 33) Fonction graf_mkstate 34) Fonction graf_mouse 35) Fonction graf_rubbox 36) Fonction graf_shrinkbox 37) Fonction graf_slidebox 38) Fonction graf_watchbox 39) Fonction menu_bar 40) Fonction menu_icheck 41) Fonction menu_ienable 42) Fonction menu_register 43) Fonction menu_text 44) Fonction menu_tnormal 45) Fonction objc_add 46) Fonction objc_change 47) Fonction objc_delete 48) Fonction objc_draw 49) Fonction objc_edit 50) Fonction objc_find 51) Fonction objc_offset 52) Fonction objc_order 53) Fonction rsrc_free 54) Fonction rsrc_gaddr 55) Fonction rsrc_load 56) Fonction rsrc_obfix 57) Fonction rsrc_saddr 58) Fonction scrp_read 59) Fonction scrp_write 60) Procédure SetFreeString 61) Procédure SetIcontext 62) Procédure SetPtext 63) Procédure SetPtmplt 64) Procédure SetPvalid 65) Fonction shel_envrn 66) Fonction shel_find 67) Fonction shel_get 68) Fonction shel_put 69) Fonction shel_read 70) Fonction shel_write 71) Procédure WindSetInfo 72) Procédure WindSetNewDesk 73) Procédure WindSetTitle 74) Fonction wind_calc 75) Fonction wind_close 76) Fonction wind_create 77) Fonction wind_delete 78) Fonction wind_find 79) Fonction wind_get 80) Procédure wind_new 81) Fonction wind_open 82) Fonction wind_set 83) Fonction wind_update	GEM : VDI (Atari) Choix fonction/Proc VDI1) Procédure v_alpha_text 2) Procédure v_arc 3) Procédure v_bar 4) Procédure v_bit_image 5) Procédure v_cellarray 6) Procédure v_circle 7) Procédure v_clear_disp_list 8) Procédure v_clrwk 9) Procédure v_clsvwk 10) Procédure v_clswk 11) Procédure v_contourfill 12) Procédure v_curaddress 13) Procédure v_curdown 14) Procédure v_curhome 15) Procédure v_curleft 16) Procédure v_curright 17) Procédure v_curtext 18) Procédure v_curup 19) Procédure v_dspcur 20) Procédure v_eeol 21) Procédure v_eeos 22) Procédure v_ellarc 23) Procédure v_ellipse 24) Procédure v_ellpie 25) Procédure v_enter_cur 26) Procédure v_escape2000 27) Procédure v_exit_cur 28) Procédure v_fillarea 29) Procédure v_form_adv 30) Procédure v_get_pixel 31) Procédure v_gtext 32) Procédure v_hardcopy 33) Procédure v_hide_c 34) Procédure v_justified 35) Procédure v_meta_extents 36) Procédure v_opnvwk 37) Procédure v_opnwk 38) Procédure v_output_window 39) Procédure v_pieslice 40) Procédure v_pline 41) Procédure v_pmarker 42) Procédure v_rbox 43) Procédure v_rfbox 44) Procédure v_rmcur 45) Procédure v_rvoff 46) Procédure v_rvon 47) Procédure v_show_c 48) Procédure v_updwk 49) Procédure v_write_meta 50) Procédure vex_butv 51) Procédure vex_curv 52) Procédure vex_motv 53) Procédure vex_timv 54) Procédure vm_coords 55) Procédure vm_filename 56) Procédure vm_pagesize 57) Procédure vq_cellarray 58) Procédure vq_chcells 59) Fonction vq_color 60) Procédure vq_curaddress 61) Procédure vq_extnd 62) Fonction vq_gdos 63) Procédure vq_key_s 64) Procédure vq_mouse 65) Procédure vq_scan 66) Fonction vq_tabstatus 67) Procédure vq_tdimensions 68) Procédure vqf_attributes 69) Procédure vqin_mode 70) Procédure vql_attributes 71) Procédure vqm_attributes 72) Fonction vqp_filmname 73) Procédure vqt_attributes 74) Procédure vqt_extent 75) Procédure vqt_fontinfo 76) Fonction vqt_name 77) Fonction vqt_width 78) Procédure vr_recfl 79) Procédure vr_trnfm 80) Procédure vro_cpyfm 81) Procédure vrq_choice 82) Procédure vrq_locator 83) Procédure vrq_string 84) Procédure vrq_valuator 85) Procédure vrt_cpyfm 86) Procédure vs_clip 87) Fonction vs_color 88) Procédure vsc_expose 89) Procédure vsc_form 90) Fonction vsf_color 91) Fonction vsf_interior 92) Fonction vsf_perimeter 93) Fonction vsf_style 94) Procédure vsf_udpat 95) Fonction vsin_mode 96) Fonction vsl_color 97) Procédure vsl_ends 98) Procédure vsl_type 99) Procédure vsl_udsty 100) Fonction vsl_width 101) Fonction vsm_choice 102) Fonction vsm_color 103) Fonction vsm_height 104) Fonction vsm_locator 105) Fonction vsm_string 106) Fonction vsm_type 107) Procédure vsm_valuator 108) Procédure vsp_film 109) Procédure vst_alignment 110) Fonction vst_color 111) Fonction vst_effects 112) Fonction vst_font 113) Procédure vst_height 114) Fonction vst_load_fonts 115) Fonction vst_point 116) Fonction vst_rotation 117) Procédure vst_unload_fonts 118) Fonction vswr_mode 119) Procédure vt_alignment 120) Procédure vt_axis 121) Procédure vt_origin 122) Procédure vt_resolution
Graph (Standard) Choix fonction/Proc Graph1) Procédure Arc 2) Procédure Bar 3) Procédure Bar3D 4) Procédure Circle 5) Procédure ClearDevice 6) Procédure ClearViewPort 7) Procédure CloseGraph 8) Procédure DetectGraph 9) Procédure DrawPoly 10) Procédure Ellipse 11) Procédure FillEllipse 12) Procédure FillPoly 13) Procédure FloodFill 14) Procédure GetArcCoords 15) Procédure GetAspectRatio 16) Fonction GetBkColor 17) Fonction GetColor 18) Procédure GetDefaultPalette 19) Fonction GetDriverName 20) Procédure GetFillPattern 21) Procédure GetFillSettings 22) Fonction GetGraphMode 23) Procédure GetImage 24) Procédure GetLineSettings 25) Fonction GetMaxColor 26) Fonction GetMaxMode 27) Fonction GetMaxX 28) Fonction GetMaxY 29) Fonction GetModeName 30) Procédure GetModeRange 31) Procédure GetPalette 32) Fonction GetPaletteSize 33) Fonction GetPixel 34) Procédure GetTextSettings 35) Procédure GetViewSettings 36) Fonction GetX 37) Fonction GetY 38) Procédure GraphDefaults 39) Fonction GraphErrorMsg 40) Fonction GraphResult 41) Fonction ImageSize 42) Procédure InitGraph 43) Fonction InstallUserDriver 44) Fonction InstallUserFont 45) Procédure Line 46) Procédure LineRel 47) Procédure LineTo 48) Procédure MoveRel 49) Procédure MoveTo 50) Procédure OutText 51) Procédure OutTextXY 52) Procédure PieSlice 53) Procédure PutImage 54) Procédure PutPixel 55) Procédure Rectangle 56) Fonction RegisterBGIdriver 57) Fonction RegisterBGIfont 58) Procédure RestoreCrtMode 59) Procédure Sector 60) Procédure SetActivePage 61) Procédure SetAllPalette 62) Procédure SetAspectRatio 63) Procédure SetBkColor 64) Procédure SetColor 65) Procédure SetFillPattern 66) Procédure SetFillStyle 67) Procédure SetGraphBufSize 68) Procédure SetGraphMode 69) Procédure SetLineStyle 70) Procédure SetPalette 71) Procédure SetRGBPalette 72) Procédure SetTextJustify 73) Procédure SetTextStyle 74) Procédure SetUserCharSize 75) Procédure SetViewPort 76) Procédure SetVisualPage 77) Procédure SetWriteMode 78) Fonction TextHeight 79) Fonction TextWidth	Overlay (Standard) Choix fonction/Proc Overlay1) Procédure OvrClearBuf 2) Fonction OvrGetBuf 3) Procédure OvrInit 4) Procédure OvrInitEMS 5) Procédure OvrSetBuf	Printer	Strings (Standard) Choix fonction/Proc Strings1) Fonction StrCat 2) Fonction StrComp 3) Fonction StrCopy 4) Fonction StrDispose 5) Fonction StrECopy 6) Fonction StrEnd 7) Fonction StrIComp 8) Fonction StrLCat 9) Fonction StrLComp 10) Fonction StrLCopy 11) Fonction StrLen 12) Fonction StrLIComp 13) Fonction StrLower 14) Fonction StrMove 15) Fonction StrNew 16) Fonction StrPas 17) Fonction StrPCopy 18) Fonction StrPos 19) Fonction StrRScan 20) Fonction StrScan 21) Fonction StrUpper
System (Standard) Choix fonction/Proc système1) Fonction Abs 2) Fonction Addr 3) Procédure Append 4) Fonction ArcTan 5) Procédure Assign 6) Fonction Assigned 7) Procédure BlockRead 8) Procédure BlockWrite 9) Procédure Break 10) Procédure ChDir 11) Fonction Chr 12) Procédure Close 13) Fonction Concat 14) Procédure Continue 15) Fonction Copy 16) Fonction Cos 17) Fonction CSeg 18) Procédure CToPascalString 19) Procédure Dec 20) Procédure Delete 21) Procédure Dispose 22) Fonction DSeg 23) Fonction Eof 24) Fonction Eoln 25) Procédure Erase 26) Procédure Exit 27) Fonction Exp 28) Procédure Fail 29) Fonction FilePos 30) Fonction FileSize 31) Procédure FillChar 32) Procédure Flush 33) Fonction Frac 34) Procédure FreeMem 35) Procédure GetDir 36) Procédure GetMem 37) Procédure Halt 38) Fonction Hi 39) FonctionS High et Low 40) Procédure Inc 41) Procédures Include/Exclude 42) Procédure Insert 43) Fonction Int 44) Fonction IOResult 45) Fonction Length 46) Fonction Ln 47) Fonction Lo 48) Procédure Mark 49) Fonction MaxAvail 50) Fonction MemAvail 51) Procédure MkDir 52) Procédure Move 53) Procédure New 54) Fonction Odd 55) Fonction Ofs 56) Fonction Ord 57) Fonction ParamCount 58) Fonction ParamStr 59) Procédure PascalToCString 60) Fonction Pi 61) Fonction Pos 62) Fonction Pred 63) Fonction Ptr 64) Fonction Random 65) Procédure Randomize 66) Procédure Read 67) Procédure Readln 68) Procédure Release 69) Procédure Rename 70) Procédure Reset 71) Procédure Rewrite 72) Procédure RmDir 73) Fonction Round 74) Procédure RunError 75) Procédure Seek 76) Fonction SeekEof 77) Fonction SeekEoln 78) Fonction Seg 79) Procédure SetTextBuf 80) Fonction Sin 81) Fonction SizeOf 82) Fonction SPtr 83) Fonction Sqr 84) Fonction Sqrt 85) Fonction SSeg 86) Procédure Str 87) Fonction Succ 88) Fonction Swap 89) Fonction Trunc 90) Procédure Truncate 91) Fonction TypeOf 92) Fonction UpCase 93) Procédure Val 94) Procédure Write 95) Procédure Writeln	TOS : BIOS (Atari) Choix fonction/Proc BIOS1) Fonction Bconin 2) Procédure Bconout 3) Fonction Bconstat 4) Fonction Bcostat 5) Fonction Drvmap 6) Fonction Getbpb 7) Procédure Getmpb 8) Fonction Kbshift 9) Fonction Mediach 10) Fonction Rwabs 11) Fonction Setexc 12) Fonction Tickcal	TOS : GEMDOS (Atari) Choix fonction/Proc GEMDOS1) Fonction Cauxin (GEMDOS 3) 2) Fonction Cauxis (GEMDOS 18) 3) Fonction Cauxos (GEMDOS 19) 4) Procédure Cauxout (GEMDOS 4) 5) Fonction Cconin (GEMDOS 1) 6) Fonction Cconis (GEMDOS 11) 7) Fonction Cconos (GEMDOS 16) 8) Fonction Cconout (GEMDOS 2) 9) Procédure Cconrs (GEMDOS 10) 10) Procédure Cconws (GEMDOS 9) 11) Fonction Cnecin (GEMDOS 8) 12) Fonction Cprnos (GEMDOS 17) 13) Fonction Cprnout (GEMDOS 5) 14) Fonction Crawcin (GEMDOS 7) 15) Fonction Crawio (GEMDOS 6) 16) Fonction Dclosedir (GEMDOS 299) 17) Fonction Dcreate (GEMDOS 57) 18) Fonction Ddelete (GEMDOS 58) 19) Fonction Dfree (GEMDOS 54) 20) Fonction Dgetdrv (GEMDOS 25) 21) Fonction Dgetpath (GEMDOS 71) 22) Fonction Dopendir (GEMDOS 296) 23) Fonction Dreaddir (GEMDOS 297) 24) Fonction Drewinddir (GEMDOS 298) 25) Fonction Dsetdrv (GEMDOS 14) 26) Fonction Dsetpath (GEMDOS 59) 27) Fonction Fattrib (GEMDOS 67) 28) Fonction Fclose (GEMDOS 62) 29) Fonction Fcreate (GEMDOS 60) 30) Procédure Fdatime (GEMDOS 87) 31) Fonction Fdelete (GEMDOS 65) 32) Fonction Fdup (GEMDOS 69) 33) Fonction Fflush (GEMDOS 102) 34) Fonction Fforce (GEMDOS 70) 35) Fonction Fgetdta (GEMDOS 47) 36) Fonction Flock (GEMDOS 100) 37) Fonction Fopen (GEMDOS 61) 38) Fonction Fpipe (GEMDOS 256) 39) Fonction Fread (GEMDOS 63) 40) Fonction Frename (GEMDOS 86) 41) Fonction Frlock (GEMDOS 98) 42) Fonction Frunlock (GEMDOS 99) 43) Fonction Fseek (GEMDOS 66) 44) Procédure Fsetdta (GEMDOS 26) 45) Fonction Fsfirst (GEMDOS 78) 46) Fonction Fsnext (GEMDOS 79) 47) Fonction Funlock (GEMDOS 101) 48) Fonction Fwrite (GEMDOS 64) 49) Fonction Lock (GEMDOS 124) 50) Fonction Maddalt (GEMDOS 20) 51) Fonction Malloc (GEMDOS 72) 52) Fonction Mfree (GEMDOS 73) 53) Fonction Mshrink (GEMDOS 74) 54) Fonction Mxalloc (GEMDOS 68) 55) Fonction Nversion (GEMDOS 96) 56) Procédure Pause (GEMDOS 289) 57) Fonction Pdomain (GEMDOS 281) 58) Fonction Pexec (GEMDOS 75) 59) Fonction Pfork (GEMDOS 283) 60) Fonction Pgetpgrp (GEMDOS 269) 61) Fonction Pmsg (GEMDOS 293) 62) Fonction Psetpgrp (GEMDOS 270) 63) Fonction Psigblock (GEMDOS 278) 64) Fonction Psignal (GEMDOS 274) 65) Fonction Psigpause (GEMDOS 310) 66) Fonction Psigsetmask (GEMDOS 279) 67) Procédure Pterm (GEMDOS 76) 68) Procédure Pterm0 (GEMDOS 0) 69) Procédure Ptermres (GEMDOS 49) 70) Fonction Super (GEMDOS 32) 71) Fonction Sversion (GEMDOS 48) 72) Fonction Tgetdate (GEMDOS 42) 73) Fonction Tgettime (GEMDOS 44) 74) Fonction Tsetdate (GEMDOS 43) 75) Fonction Tsettime (GEMDOS 45) 76) Fonction Unlock (GEMDOS 123)	TOS : XBIOS (Atari)

Cette page Unités est issu du fichier UNIT.HLP de la documentation de Pure Pascal (d'Application Systems Heidelberg), qui a été convertie en format TXT puis traduite de l'Allemand grâce à Google Translator : des milliers de copier/coller de et vers Google translator ont été nécessaires, ne connaissant pas un mot d'Allemand!