Desmarcar todos os itens de uma lista

Compartilhe :Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf…

Compartilhe :Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result :=…

Compartilhe :Função que captura a tela e salva-a em um Bitmap em Delphi function CaptureScreenRect( ARect: TRect ): TBitmap; //…