pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Cleanup JvTimeline

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6239 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-12 10:47:48 +00:00
parent 6ee65d5dbb
commit 251ed51f04
5 changed files with 22 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jvcllaz/examples/JVTimeLine/TimelineMainFormU.lfm
View File

@ -14,7 +14,6 @@ object TimelineMainForm: TTimelineMainForm
Font.Color = clWindowText
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
Position = poScreenCenter
LCLVersion = '1.9.0.0'
Scaled = False

10
components/jvcllaz/examples/JVTimeLine/TimelineMainFormU.pas
View File

@ -138,7 +138,6 @@ type
procedure chkFlatClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure chkHelpYearClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure ColorBtnClick(Sender: TObject);
procedure Disable1Click(Sender: TObject);
procedure TimeLine1ItemClick(Sender: TObject; Item: TJvTimeItem);
@ -585,15 +584,6 @@ begin
TimeLine1.HelperYears := chkHelpYear.Checked;
end;
procedure TTimelineMainForm.FormResize(Sender: TObject);
begin
{
TimeLine1.Height := Height div 2;
if Panel2.Height < 250 then
TimeLine1.Height := Height - 250;
}
end;
procedure TTimelineMainForm.ColorBtnClick(Sender: TObject);
begin
with TColorDialog.Create(nil) do