Components and Code examples/sk: Difference between revisions

From Lazarus wiki
Jump to navigationJump to search
m (rozlišení platformy, oper. systému (OS))
(preklad z angl. originalu)
Line 1: Line 1:
unit opersys_u;
{{Code Examples}}


{$mode objfpc}{$H+}
Táto stránka má slúžiť na udržovanie ukážok fungujúceho Lazarovského kódu, a to buď na tejto wiki, alebo inde na webe.
Ukážky vrámci tejto wiki sú / budú preložené do slovenčiny. Väčšina odkazov mimo wiki smeruje na anglické stránky.


interface
[[Dialog Examples/sk|Príklady dialogóvých okien]] - užitočné dialógové okná, ktorých komponenty sa nenachádzajú na Palete Komponentov


uses
[[Howto Use TOpenDialog/sk|Používame TOpenDialog]] - Ako používať dialógové okno FileOpen (Otvoriť súbor)
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;


type
[[Howto Use TSaveDialog/sk|Používame TSaveDialog]] - Ako používať dialógové okno FileOpen (Uložiť súbor)


  { TForm1 }
A veľa ďalšieho:
 
[[Components and Code examples|Komponenty a ukážky zdrojového kódu (en)]]
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
var
  os:byte;
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  os:=0;
  {$IFDEF WIN32} // bezi WINDOWS
    os:=1;
  {$ENDIF}
  {$IFDEF LINUX} // bezi linux
    os:=2;
  {$ENDIF}
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='Spuštěn operační systém ';
  case os of
    0 : messagedlg(s+'neznámý', mtwarning,[mbok],0);
    1 : messagedlg(s+'WINDOWS', mtwarning,[mbok],0);
    2 : messagedlg(s+'LINUX', mtwarning,[mbok],0);
  end;
end;
 
initialization
  {$I opersys_u.lrs}
 
end.

Revision as of 15:16, 25 December 2008

Template:Code Examples

Táto stránka má slúžiť na udržovanie ukážok fungujúceho Lazarovského kódu, a to buď na tejto wiki, alebo inde na webe. Ukážky vrámci tejto wiki sú / budú preložené do slovenčiny. Väčšina odkazov mimo wiki smeruje na anglické stránky.

Príklady dialogóvých okien - užitočné dialógové okná, ktorých komponenty sa nenachádzajú na Palete Komponentov

Používame TOpenDialog - Ako používať dialógové okno FileOpen (Otvoriť súbor)

Používame TSaveDialog - Ako používať dialógové okno FileOpen (Uložiť súbor)

A veľa ďalšieho: Komponenty a ukážky zdrojového kódu (en)

Retrieved from "http://wiki.freepascal.org/index.php?title=Components_and_Code_examples/sk&oldid=32873"