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

TvPlanIt: Workaround for opaque labels issue in Laz 2.2.4.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-18 10:55:52 +00:00
parent 19b469917e
commit 98b7bb2e30
26 changed files with 83 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpselresdlg.pas
View File

@ -37,9 +37,12 @@ uses
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
VpBaseDS, VpResEditDlg;
VpMisc, VpBaseDS, VpResEditDlg;
type
{ TfrmSelectResource }
TfrmSelectResource = class(TForm)
VpResourceCombo1: TVpResourceCombo;
lblSelectResource: TLabel;
@ -51,6 +54,7 @@ type
Bevel1: TBevel;
procedure btnAddNewClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
@ -78,5 +82,10 @@ begin
VpResourceEditDialog1.Execute;
end;
procedure TfrmSelectResource.FormCreate(Sender: TObject);
begin
FixLabels(Self);
end;
end.