Difference between revisions of "TCheckGroup/de"

From Free Pascal wiki
Jump to navigationJump to search
Line 32: Line 32:
 
** schreiben Sie folgenden Code in den Eventhandler:
 
** schreiben Sie folgenden Code in den Eventhandler:
 
<syntaxhighlight>
 
<syntaxhighlight>
procedure TForm1.cgRedItemClick(Sender: TObject;
+
procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
  Index: integer);
 
 
var
 
var
 
   i, c: Integer;
 
   i, c: Integer;
 
begin
 
begin
   c:=$000000;                                               //Ausgangsfarbe ist Schwarz
+
   c := $000000;                                         // Ausgangsfarbe ist Schwarz
   for i:=0 to 7 do begin                                   //Frage Items 0..7 aller Checkgroups ab
+
   for i:=0 to 7 do begin                                 // Frage Items 0..7 aller Checkgroups ab
     if cgRed.Checked[i]  then c:=c + 1 shl i;             //Rotanteil  $000000..$0000FF
+
     if cgRed.Checked[i]  then c := c + 1 shl i;         // Rotanteil  $000000..$0000FF
     if cgGreen.Checked[i] then c:=c + 1 shl (i + 8);       //Grünanteil $000000..$00FF00
+
     if cgGreen.Checked[i] then c := c + 1 shl (i + 8);   // Grünanteil $000000..$00FF00
     if cgBlue.Checked[i]  then c:=c + 1 shl (i + 16);       //Blauanteil $000000..$FF0000
+
     if cgBlue.Checked[i]  then c := c + 1 shl (i + 16); // Blauanteil $000000..$FF0000
 
   end;
 
   end;
   Color:=c;
+
   Color := c;
 
end;  
 
end;  
 
</syntaxhighlight>
 
</syntaxhighlight>

Revision as of 19:03, 10 June 2018

Deutsch (de) English (en) suomi (fi) français (fr) 日本語 (ja) русский (ru) 中文(中国大陆)‎ (zh_CN)

Diese Seite erklärt, wie man die TCheckGroup Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.

Beschreibung

Eine Gruppe CheckBoxen, die der Benutzer anwählen kann. Die Komponente ist wie eine TGroupBox mit integrierten TCheckBoxen.

Comp Standard TCheckGroup.png

Verwendung

Um eine TCheckGroup auf einem Formular zu nutzen, kann man sie einfach auf der Komponentenpalette Standard auswählen und, mit einem Klick auf das Formular, platzieren.

Kleines Beispiel

Es wird die Hintergrundfarbe eines Formulars geändert. Diese Farbe wird per Addition der einzelnen Farbanteilen bestimmt:

  • erstellen Sie eine neue Anwendung und platzieren Sie ein TCheckGroup auf Ihrem Formular
  • ändern Sie im Objektinspektor die Eigenschaft Name von CheckGroup1 zu cgRed und Caption zu Red
  • fügen Sie die Checkboxen für cgRed hinzu:
    • wählen Sie im Objektinspektor die Eigenschaft Items von cgRed
    • klicken Sie auf den Button [...], der Zeichenketteneditor öffnet sich
    • schreiben Sie untereinander 1 2 4 8 16 32 64 128 und beenden Sie die Eingabe mit Button OK
  • kopieren Sie diese TCheckGroup, indem Sie cgRed im Formular rechtsklicken und auf Kopieren klicken
  • rechtsklicken Sie das Formular und klicken Sie auf Einfügen, die TCheckGroup mit dem Namen cgRed1 wird erstellt
  • ändern Sie nun den Namen von cgRed1 zu cgGreen und Caption zu Green
  • fügen Sie noch eine TCheckGroup ein und ändern Sie den Namen zu cgBlue und Caption zu Blue
  • immer wenn eine CheckBox geklickt wird, soll sich die Farbe ändern:
    • erstellen Sie den OnItemClick Eventhandler von cgRed, indem Sie im Objektinspektor unter Ereignisse den Button [...] neben dem Ereignis OnItemClick klicken
    • wählen Sie für cgGreen und cgBlue ebenfalls diesen Eventhandler, indem Sie jeweils neben dem Ereignis OnItemClick in der ComboBox cgRedItemClick auswählen
    • schreiben Sie folgenden Code in den Eventhandler:
procedure TForm1.cgRedItemClick(Sender: TObject; Index: integer);
var
  i, c: Integer;
begin
  c := $000000;                                          // Ausgangsfarbe ist Schwarz
  for i:=0 to 7 do begin                                 // Frage Items 0..7 aller Checkgroups ab
    if cgRed.Checked[i]   then c := c + 1 shl i;         // Rotanteil  $000000..$0000FF
    if cgGreen.Checked[i] then c := c + 1 shl (i + 8);   // Grünanteil $000000..$00FF00
    if cgBlue.Checked[i]  then c := c + 1 shl (i + 16);  // Blauanteil $000000..$FF0000
  end;
  Color := c;
end;
  • starten Sie Ihre Anwendung, so könnte sie aussehen:

ExampleTCheckGroup.png

Siehe auch

TCheckBox
TGroupBox


Gehe zurück zu: LCL Components  — Komponente zuvor: TRadioGroup/de Nächste Komponente: TPanel/de
LCL Komponenten
Komponenten Tab Komponenten
Standard TMainMenu • TPopupMenu • TButton • TLabel • TEdit • TMemo • TToggleBox • TCheckBox • TRadioButton • TListBox • TComboBox • TScrollBar • TGroupBox • TRadioGroup • TCheckGroup • TPanel • TFrame • TActionList
Additional TBitBtn • TSpeedBtn • TStaticText • TImage • TShape • TBevel • TPaintBox • TNotebook • TLabeledEdit • TSplitter • TTrayIcon • TMaskEdit • TCheckListBox • TScrollBox • TApplicationProperties • TStringGrid • TDrawGrid • TPairSplitter • TColorBox • TColorListBox • TValueListEditor
Common Controls TTrackBar • TProgressBar • TTreeView • TListView • TStatusBar • TToolBar • TUpDown • TPageControl • TTabControl • THeaderControl • TImageList • TPopupNotifier
Dialogs TOpenDialog • TSaveDialog • TSelectDirectoryDialog • TColorDialog • TFontDialog • TFindDialog • TReplaceDialog • TOpenPictureDialog • TSavePictureDialog • TCalendarDialog • TCalculatorDialog • TPrinterSetupDialog • TPrintDialog • TPageSetupDialog
Data Controls TDBNavigator • TDBText • TDBEdit • TDBMemo • TDBImage • TDBListBox • TDBLookupListBox • TDBComboBox • TDBLookupComboBox • TDBCheckBox • TDBRadioGroup • TDBCalendar • TDBGroupBox • TDBGrid
System TTimer • TIdleTimer • TLazComponentQueue • THTMLHelpDatabase • THTMLBrowserHelpViewer • TAsyncProcess • TProcessUTF8 • TProcess • TSimpleIPCClient • TXMLConfig • TEventLog • TServiceManager
Misc TColorButton • TSpinEdit • TFloatSpinEdit • TArrow • TCalendar • TEditButton • TFileNameEdit • TDirectoryEdit • TDateEdit • TCalcEdit • TFileListBox • TFilterComboBox • TXMLPropStorage • TINIPropStorage • TBarChart • TButtonPanel • TShellTreeView • TShellListView • TIDEDialogLayoutStorage
Data Access TDatasource • TBufDataset • TMemDataset • TSdfDataset • TFixedFormatDataSet • TDbf
SynEdit TSynEdit • TSynMemo • TSynCompletion • TSynAutoComplete • TSynMacroRecorder • TSynExporterHTML • TsynPluginSyncroEdit • TSynPasSyn • TSynFreePascalSyn • TSynCppSyn • TSynJavaSyn • TSynPerlSyn • TSynHTMLSyn • TSynXMLSyn • TSynLFMSyn • TSynDiffSyn • TSynUNIXShellScriptSyn • TSynCssSyn • TSynPHPSyn • TSynTeXSyn • TSynSQLSyn • TSynPythonSyn • TSynVBSyn • TSynAnySyn • TSynMultiSyn • TSynBatSyn • TSynIniSyn • TSynPoSyn
LazControls TDividerBevel • TExtendedNotebook • TListFilterEdit • TTreeFilterEdit
RTTI TTIEdit • TTIComboBox • TTIButton • TTICheckBox • TTILabel • TTIGroupBox • TTIRadioGroup • TTICheckGroup • TTICheckListBox • TTIListBox • TTIMemo • TTICalendar • TTIImage • TTIFloatSpinEdit • TTISpinEdit • TTITrackBar • TTIProgressBar • TTIMaskEdit • TTIColorButton • TMultiPropertyLink • TTIPropertyGrid • TTIGrid
IPro TIpFileDataProvider • TIpHtmlPanel
Chart TChart • TListChartSource TRandomChartSource • TUserDefinedChartSource • TCalculatedChartSource • TDbChartSource • TChartToolset • TChartAxisTransformations • TChartStyles • TChartLegendPanel • TChartNavScrollBar • TChartNavPanel • TIntervalChartSource • TDateTimeIntervalChartSource • TChartListBox • TChartExtentLink • TChartImageList
SQLdb TSQLQuery • TSQLTransaction • TSQLScript • TSQLConnector • TMSSQLConnection • TSybaseConnection •TPQConnection • TPQTEventMonitor • TOracleConnection • TODBCConnection • TMySQL40Connection • TMySQL41Connection • TMySQL50Connection • TMySQL51Connection • TMySQL55Connection • TMySQL56Connection • TSQLite3Connection • TIBConnection • TFBAdmin • TFBEventMonitor • TSQLDBLibraryLoader

--Michl 00:04, 1 August 2014 (CEST)