Difference between revisions of "Components and Code examples/sk"

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"