Bu API’lerin Linux e\u015fde\u011feri hangisidir, nereden bulabilirim?<\/p>\n
Cevap<\/b><\/p>\n \u015e\u00f6yle de bir ekran \u00e7\u0131kt\u0131s\u0131 \u00fcretiyor…<\/p>\n Bilindi\u011fi \u00fczere Tokyo s\u00fcr\u00fcm\u00fcyle beraber Linux i\u00e7in konsol uygulamalar\u0131 geli\u015ftirebiliyoruz. Windows konsol ortam\u0131nda imle\u00e7 pozisyonu ve text renklendirmeleri i\u00e7in<\/p>\n","protected":false},"author":1,"featured_media":262,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[43,4,40,11,42,41,44],"class_list":["post-175","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-blog","tag-ansi-escape-sequence","tag-delphi","tag-linux","tag-programlama","tag-setconsolecursorposition","tag-setconsoletextattribute","tag-soru-cevap"],"_links":{"self":[{"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/posts\/175","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.potansif.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=175"}],"version-history":[{"count":1,"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/posts\/175\/revisions"}],"predecessor-version":[{"id":182,"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/posts\/175\/revisions\/182"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.potansif.com\/index.php?rest_route=\/wp\/v2\/media\/262"}],"wp:attachment":[{"href":"http:\/\/www.potansif.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=175"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.potansif.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=175"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.potansif.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=175"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}program Renkli;\r\n\r\n{$APPTYPE CONSOLE}\r\n\r\nuses\r\n System.SysUtils \/\/ Format\r\n {$IFDEF MSWINDOWS} \/\/ Windows ise\r\n , WinApi.Windows \/\/ SetConsoleTextAttribute , SetConsoleCursorPosition\r\n {$ENDIF}\r\n ;\r\n\r\nconst\r\n clBlack = 0;\r\n clBlue = 1;\r\n clGreen = 2;\r\n clCyan = 3;\r\n clRed = 4;\r\n clMagenta = 5;\r\n clBrown = 6;\r\n clSilver = 7;\r\n\r\n {$IFDEF MSWINDOWS}\r\n clDarkGray = 8;\r\n clLightBlue = 9;\r\n clLightGreen = 10;\r\n clLightCyan = 11;\r\n clLightRed = 12;\r\n clLightMagenta = 13;\r\n clYellow = 14;\r\n clWhite = 15;\r\n {$ENDIF}\r\n\r\nprocedure Color(Zemin, Metin: Integer);\r\nbegin\r\n {$IFDEF MSWINDOWS}\r\n SetConsoleTextAttribute ( GetStdHandle(STD_OUTPUT_HANDLE)\r\n , (Zemin * 16) or Metin\r\n );\r\n {$ENDIF}\r\n {$IFNDEF MSWINDOWS}\r\n Write( Format(#27'[%d'#27'[%d', [Zemin + 40, Metin + 30] ) );\r\n {$ENDIF}\r\nend;\r\n\r\nprocedure CLS;\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n CRT : THandle;\r\n Bufinf : TConsoleScreenBufferInfo;\r\n ConsoleSize : DWORD;\r\n NumWritten : DWORD;\r\n Koordinat : TCoord;\r\n{$ENDIF}\r\nbegin\r\n {$IFDEF MSWINDOWS}\r\n CRT := GetStdHandle(STD_OUTPUT_HANDLE);\r\n Win32Check(CRT <> INVALID_HANDLE_VALUE);\r\n Win32Check(GetConsoleScreenBufferInfo(CRT, Bufinf));\r\n ConsoleSize := Bufinf.dwSize.X * Bufinf.dwSize.Y;\r\n Koordinat.X := 0;\r\n Koordinat.Y := 0;\r\n Win32Check(FillConsoleOutputCharacter(CRT, ' ', ConsoleSize, Koordinat, NumWritten));\r\n Win32Check(FillConsoleOutputAttribute(CRT, Bufinf.wAttributes, ConsoleSize, Koordinat, NumWritten));\r\n Win32Check(SetConsoleCursorPosition(CRT, Koordinat));\r\n {$ENDIF}\r\n {$IFNDEF MSWINDOWS}\r\n write(#27'[2J');\r\n {$ENDIF}\r\nend;\r\n\r\nprocedure GotoXY(X,Y: Byte);\r\n{$IFDEF MSWINDOWS}\r\nvar\r\n Z: _COORD;\r\n{$ENDIF}\r\nbegin\r\n {$IFDEF MSWINDOWS}\r\n Z.X := X;\r\n Z.Y := Y;\r\n SetConsoleCursorPosition( GetStdHandle(STD_OUTPUT_HANDLE), Z );\r\n {$ENDIF}\r\n {$IFNDEF MSWINDOWS}\r\n Write( Format(#27'[%d;%dH', [X.ToString, Y.ToString]) );\r\n {$ENDIF}\r\nend;\r\n\r\nfunction Print(aMetin: String): string; overload;\r\nbegin\r\n Result := aMetin;\r\n Write(Result);\r\nend;\r\n\r\nfunction Print(X, Y: Byte; aMetin: String): string; overload;\r\nbegin\r\n Result := aMetin;\r\n GotoXY(X, Y);\r\n Write(Result);\r\nend;\r\n\r\nfunction Print(aMetin: String; const Args: array of const): string; overload;\r\nbegin\r\n Result := format(aMetin, Args);\r\n Write(Result);\r\nend;\r\n\r\nfunction Print(X, Y: Byte; aMetin: String; const Args: array of const): string; overload;\r\nbegin\r\n GotoXY(X, Y);\r\n Result := Print(aMetin, Args);\r\nend;\r\n\r\nprocedure Pencere(aBaslik: AnsiString; X, Y, B, E: Byte; Zemin, Metin: Integer);\r\nvar\r\n I: Integer;\r\nbegin\r\n Color(Zemin, Metin);\r\n Print(X,Y, '\u250c%s\u2510', [StringOfChar('\u2500', E - 2)]);\r\n for I := 1 to B - 2 \r\n do Print(X, Y + I, '\u2502%s\u2502', [StringOfChar(' ', E - 2)]);\r\n Print(X, Y + I, '\u2514%s\u2518', [StringOfChar('\u2500', E - 2)]);\r\n Print(X + 2, Y, '[%s]', [aBaslik]);\r\nend;\r\n\r\nvar\r\n I, J, X: Integer;\r\nbegin\r\n CLS;\r\n Pencere('Bi Pencere', 2, 2, 15, 35, clSilver, clRed);\r\n Color(clSilver, clGreen);\r\n Print(4, 4, 'T\u00fcrk\u00e7e Harf Testleri ');\r\n Print(4, 5, '\u00e7\u00f6\u011f\u00fc\u015fi\u0131 \/ \u00c7\u00d6\u011e\u00dc\u015e\u0130I \/ 0123456789');\r\n Color(clBlack, clSilver);\r\n Print(0, 0, '');\r\n Readln;\r\nend.<\/code><\/pre>\n![\"\"](\"http:\/\/rubicube.com.tr\/wp-content\/uploads\/2018\/09\/rJ1MEP1.png\")
<\/p>\n","protected":false},"excerpt":{"rendered":"