Programmerning Lazarus - Versionshistorik

Madmodder den 16 februari 2014 kl. 14.22

2014-02-16T14:22:14Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.22
Rad 21:		Rad 21:


	<~~source lang~~="~~delphi~~">		<pre style="color:green">

	procedure TForm1.Button4Click(Sender: TObject);		procedure TForm1.Button4Click(Sender: TObject);
	begin		begin
Rad 34:		Rad 33:
	end;		end;
	end;		end;
			</pre>
	</~~source~~>

Lgrfbs den 16 februari 2014 kl. 14.11

2014-02-16T14:11:52Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.11
Rad 2:		Rad 2:
	----		----
	Innehåll:<br>		Innehåll:<br>
	''För att visa/dölja en GroupBox med innehåll~~:''~~		''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel.

	----		----

Lgrfbs den 16 februari 2014 kl. 14.10

2014-02-16T14:10:47Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.10
Rad 1:		Rad 1:
			Åter till [[Programmerning]]
			----
			Innehåll:<br>
	''För att visa/dölja en GroupBox med innehåll:''		''För att visa/dölja en GroupBox med innehåll:''
	~~Åter till [[Programmerning]]~~
	----		----

Lgrfbs den 16 februari 2014 kl. 14.09

2014-02-16T14:09:43Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.09
Rad 1:		Rad 1:
	''För att visa/dölja en GroupBox med innehåll:''		''För att visa/dölja en GroupBox med innehåll:''
			Åter till [[Programmerning]]
	----		----

Lgrfbs den 16 februari 2014 kl. 14.06

2014-02-16T14:06:24Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.06
Rad 16:		Rad 16:
	<nowiki> end;</nowiki><br>		<nowiki> end;</nowiki><br>
	<nowiki>end;</nowiki><br>		<nowiki>end;</nowiki><br>


			<source lang="delphi">

			procedure TForm1.Button4Click(Sender: TObject);
			begin
			If GroupBox1.Visible=True then
			Begin
			GroupBox1.Visible:=False;
			end
			Else
			Begin
			GroupBox1.Visible:=True;
			end;
			end;

			</source>

Lgrfbs den 16 februari 2014 kl. 10.43

2014-02-16T10:43:03Z

← Äldre version		Versionen från 16 februari 2014 kl. 10.43
Rad 1:		Rad 1:
	För att visa/dölja en GroupBox med innehåll:		''För att visa/dölja en GroupBox med innehåll:''

	----		----

Lgrfbs: Skapade sidan med 'För att visa/dölja en GroupBox med innehåll: ---- procedure TForm1.Button4Click(Sender: TObject);
begin
If GroupBox1.Vis…'

2014-02-16T00:01:21Z

Skapade sidan med 'För att visa/dölja en GroupBox med innehåll: ---- <nowiki>procedure TForm1.Button4Click(Sender: TObject);</nowiki> <nowiki>begin</nowiki> <nowiki> If GroupBox1.Vis…'

Ny sida

För att visa/dölja en GroupBox med innehåll:

----

<nowiki>procedure TForm1.Button4Click(Sender: TObject);</nowiki> 
<nowiki>begin</nowiki> 
<nowiki> If GroupBox1.Visible=True then</nowiki> 
<nowiki> Begin</nowiki> 
<nowiki> GroupBox1.Visible:=False;</nowiki> 
<nowiki> end</nowiki> 
<nowiki> Else</nowiki> 
<nowiki> Begin</nowiki> 
<nowiki> GroupBox1.Visible:=True;</nowiki> 
<nowiki> end;</nowiki> 
<nowiki>end;</nowiki>